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:
| procedure TForm1.Button1Click(Sender: TObject);
var FileName:OleVariant;
Find1, Replace1, All :OleVariant ;
begin
FileName := 'C:\Testdokument.doc';
WordApplication1.Connect;
WordApplication1.Documents.OpenOld (
FileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Visible := True;
Find1 := '{Name}';
Replace1 := 'Mustermann';
Repeat
Until NOT WordDocument1.Content.Find.Execute (
Find1,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,Replace1,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
Find1 := '{Vorname}';
Replace1 := 'Felix';
Repeat
Until NOT WordDocument1.Content.Find.Execute (
Find1,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,Replace1,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
WordDocument1.PrintOut;
SaveChanges:=False;
WordDocument1.Close(SaveChanges);
end; |
