1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

    FileName:=Result+'\office\order.doc';
    WordApplication1.Connect;
    WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
                                       EmptyParam, EmptyParam, EmptyParam,
                                       EmptyParam, EmptyParam, EmptyParam,
                                       EmptyParam);
    Doc.ConnectTo(WordApplication1.ActiveDocument);
    WordApplication1.Visible:= true;
    { start to replace }
    SearchText:= '
order_id';
    ReplaceText:= Module.Query27.FieldByName('order_id').AsString;
    Wrap := wdFindContinue;
    All := wdReplaceAll;
    Doc.Content.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam, Wrap,
                             EmptyParam, ReplaceText, All, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam);                    

1:
2:
3:

Doc.Content.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
               EmptyParam, EmptyParam, EmptyParam, Wrap, 
               EmptyParam, ReplaceText, All);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

function Word_SearchReplace(ADocument: TFileName; SearchString, ReplaceString: string): Boolean;
var
  WordApplication: TWordApplication;
  WordDocument: TWordDocument;
  FileName, _Find, _Replace, _All, _Wrap: OleVariant;
begin
  { Assume Failure }
  Result := False;

  FileName := ADocument;
  { Connect to Word }
  WordApplication := TWordApplication.Create(nil);
  try
    WordApplication.Connect;
    WordApplication.Documents.Open(FileName, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam);

    WordDocument := TWordDocument.Create(nil);
    { Connect to Active Document }
    WordDocument.ConnectTo(WordApplication.ActiveDocument);
    try
      { Initialize parameters}
      _Wrap := wdFindContinue;
      _All := wdReplaceAll;
      _Find := SearchString;
      _Replace := ReplaceString;

      { Perform the search}
      WordDocument.Content.Find.Execute(_Find, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, _Wrap, EmptyParam, _Replace, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, _All);

      { Close Word }
    finally
      WordDocument.Close;
      WordDocument.Disconnect;
    end;
    // WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
    { Save }
    WordDocument.SaveAs(FileName);
    WordDocument.Disconnect;
    WordDocument.Free;
    Result:= True;
  finally
    { Quit }
    WordApplication.Quit;
    WordApplication.Disconnect;
    WordApplication.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

uses
  ComObj;

type
  TWordReplaceFlags = set of (wrfReplaceAll, wrfMatchCase, wrfMatchWildcards);

function Word_StringReplace(ADocument: TFileName; SearchString, ReplaceString: string; Flags: TWordReplaceFlags): Boolean;
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
var
  WordApp: OLEVariant;
begin
  Result := False;

  { Check if file exists }
  if not FileExists(ADocument) then
  begin
    ShowMessage('Specified Document not found.');
    Exit;
  end;

  { Create the OLE Object }
  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      E.Message := 'Word is not available.';
      raise;
    end;
  end;

  try
    { Hide Word }
    WordApp.Visible := False;
    { Open the document }
    WordApp.Documents.Open(ADocument);
    { Initialize parameters}
    WordApp.Selection.Find.ClearFormatting;
    WordApp.Selection.Find.Text := SearchString;
    WordApp.Selection.Find.Replacement.Text := ReplaceString;
    WordApp.Selection.Find.Forward := True;
    WordApp.Selection.Find.Wrap := wdFindContinue;
    WordApp.Selection.Find.Format := False;
    WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
    WordApp.Selection.Find.MatchWholeWord := False;
    WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
    WordApp.Selection.Find.MatchSoundsLike := False;
    WordApp.Selection.Find.MatchAllWordForms := False;
    { Perform the search}
    if wrfReplaceAll in Flags then
      WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
    else
      WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
    { Save word }
    WordApp.ActiveDocument.SaveAs(ADocument);
    { Assume that successful }
    Result := True;
    { Close the document }
    WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
  finally
    { Quit Word }
    WordApp.Quit;
    WordApp := Unassigned;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin                                                 
  Word_StringReplace('C:\Test.doc','Old String','New String',[wrfReplaceAll]);
end;