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:

procedure TBefund.wordOLESteuerung; 

var word ; variant;
    vorlage, zie1 : string;
    s : oleVariant;
    lbv : Tstrings;
    lbw : Tstrings; 
    x : integer;

begin
    screen.cursor:=crHourglass: 
    lbv := TStringList.Create;
    lbw := TStringList.Create: 

try
    // Es wird zuerst versucht, eine laufende Word-Instanz zu verwenden
    word := GetActiveOleObject('Word.Application'); 

except
    try
       // Läuft word noch nicht, wird eine neue Verbindung aufgebaut
       word := CreateOleObject('word.Application'); 
    except
       // schlägt sie fehl, gibt es ein Fehlermeldung
       showMessage('Microsoft word kann nicht starten.');
       screen.cursor :; crDefault;
       exit;
    end; 
end;

word.visible := true; 
vorlage := hauptprogramm.rfk.DOT_Pfad 
           + flbVorlagen.ltems[flbVorlagen.Itemindex]:
ziel    := hauptprogramm.rfk.DOC_Pfad
           + hauptprogramm.kde.Caption+' '
           + edBefundname.Text + '.doc';
copyfile(pchar(vorlage),pchar(ziel),FALSE);      // Kopie der Vorlage
Word.Documents.OpenOld(ziel);                    // Word97 kompatibel

for x :=  0 to lbV.Count -1 do begin 
  s := Word.Selection;
  s.find.text := lbv[x];                        // zB. lbv = #VORNAME# 
    s.find.Rep1acement.Text := lbW[x];            // ZB. lbw ="Bettina"
    s.find.Forward := TRUE;
    s.find.wrap := FALSE;
    s.find.Format := FALSE; 
    s.find.Matchcase := FALSE; 
    s.find.MatchWholeword := FALSE; 
    s.find.MatchWîldCards := FALSE;
    s.find.MatchSoundslike := FALSE;
    s.find.MatchAl1WordForms := FALSE; 
    s.Find.Execute(Replace:=2);                   // wdReplaceAll := 2 
end;

Word.ActiveDocument.Save;
// Word:=unassigned;
screen.cursor:=crDefault;
end;