wie du das mit der schleife meinst verstehe ich nicht...wenn du textmarken ausfüllen lassen willst kannst du das so machen.
Delphi-Quellcode:
uses ComObj;
procedure wordforumular;
var Word: variant;
begin
screen.Cursor:=crHourglass;
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 (Word nicht installiert), gibt es eine Fehlermeldung}
ShowMessage('Microsoft Word kann nicht starten.');
screen.cursor:=crDefault;
exit;
end;
end;
word.visible:=true;
Word.Documents.Add(Template:='C:\beispiel.doc');
try
Word.ActiveDocument.FormFields.Item('Name').Result:='Hans Müller';
Word.ActiveDocument.FormFields.Item('Ort').Result:='Berlin';
finally
word:=unassigned;
screen.cursor:=crDefault;
end;
end;