以下是取代字串的範例:
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);
               (
geocities.com/huanlin_tsai)