以下是取代字串的範例:

uses Word97;  { or Word_TLB in Delphi 3-4 }

var
  FindText, OleFalse, OleTrue, Replace, ReplaceText, Wrap: OleVariant;
begin
  FindText := 'Hello';
  ReplaceText := 'World';
  OleFalse := False;
  OleTrue := True;
  Wrap := wdFindContinue;
  Replace := wdReplaceAll;
  Word.Selection.Find.Execute(FindText, OleFalse, OleFalse,
                              OleTrue, OleFalse, OleFalse,
                              OleTrue, Wrap, OleFalse,
                              ReplaceText, Replace);

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)