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:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

procedure TForm1.Button1Click(Sender: TObject);
begin
  filename:=ProgPath+'Brief.doc';
  ConnectToWord(True);
  Word_StringReplace('##Adr_Anrede##','Herr',True);
  WordBeenden;
end;


//******************************************************************************
//***************** Word öffnen ************************************************
//******************************************************************************
Procedure ConnectToWord(sichtbar: Boolean);
Var
  wFalse: OleVariant;

Begin
  wFalse := False;
  { Check if file exists }
  if not FileExists(Filename) then
  begin
    ShowMessage('Das Dokument ist nicht vorhanden');
    Exit;
  end;

  With Form1 Do
    Begin
      If (Not aktiv('Word.Application')) Then
        WordApplication1.Create(Nil);
      Try
        WordApplication1.Connect;
      Except
        Showmessage('Word konnte nicht gestartet werden');
        exit;
      End;
      WordApplication1.Visible := sichtbar;
      WordApplication1.Documents.OpenOld(FileName, wFalse, wFalse, wFalse, EmptyParam, EmptyParam,
        wFalse, EmptyParam, EmptyParam, EmptyParam);

      WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
    End;
End;

//******************************************************************************
//***************** Word Beenden ***********************************************
//******************************************************************************
Procedure WordBeenden;
Begin
  With Form1 Do
    Begin
      If aktiv('Word.Application') Then
        Begin
          Try
            Feld := False;
            WordApplication1.Disconnect;
          Except
          End;
        End;
    End;
End;

//******************************************************************************
//***************** Word Replace Funktion **************************************
//******************************************************************************

Procedure Word_StringReplace(SearchString, ReplaceString: string; ReplaceAll:Boolean);
const
  wdFindContinue  = 1;
  wdReplaceOne    = 1;
  wdReplaceAll    = 2;
var
  _Search,_Replace,_Wrap,_ReplaceAll,F,T: OLEVariant;

begin
    { Initialisiere Parameter}
    if ReplaceAll then
      _ReplaceAll:=wdReplaceAll
    else
      _ReplaceAll:=wdReplaceOne;

     _Search:=SearchString;
     _Replace:=ReplaceString;
     _Wrap:=wdFindContinue;
     F:=False;
     T:=True;
    { Perform the search}
    //FindText,Case,WholeWord,WildChars,SoundsLike,AllWordForms,Forward,Wrap,ReplaceWith,ReplaceTyp
     Form1.WordApplication1.Selection.Find.ExecuteOld(
       _Search, F, T, F, F, F, T, _Wrap, F,_Replace,_ReplaceAll);

     Application.ProcessMessages;
    Showmessage('Weiter');
end;					

1:

WordApplication1.Connect;					

1:

WordApplication1:=TWordApplication.Create(Form1 bzw self);					

1:
2:
3:
4:

      If (Not aktiv('Word.Application')) Then
        Form1.WordApplication1:=TWordApplication.Create(Form1);
      Try
        WordApplication1.Connect;					

1:
2:

  Feld := 'Adr_Anrede';
  Form1.WordApplication1.ActiveDocument.FormFields.Item(Feld).Result := Form1.QKundenAnrede.Text;