Hier dazu eine Lösung:
Vorgabe: Word-Dolument existiert mit entsprechenden Formularfelden (am besten als Dokumentvorlage)liegt im Ordner der Exe
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
var
MSWord: variant;
implementation
uses ComObj, Variants;
...
procedure TForm1.Fill_WordDoc;
var
s: string;
vParam, vParam2: olevariant;
begin
MSWord := CreateOleObject('Word.Application');
MSWord.Visible := True;
MSWord.WindowState := wsMinimized;
s := ExtractFilePath(Application.EXEName)+'Vorlage1.dot';
vParam := s;
vParam2 := False;
MSWord.Documents.Add(vParam, vParam2, EmptyParam, EmptyParam);
MSWord.ActiveDocument.FormFields.Item('Text1').Result := Edit1.Text;
MSWord.ActiveDocument.FormFields.Item('Text2').Result := DatetoStr(Date);
//jetzt eine Check-Box im Dokument ausfüllen:
if Bedingung = True then
MSWord.ActiveDocument.FormFields.Item('Kontrollkästchen1').CheckBox.Value := true
else
MSWord.ActiveDocument.FormFields.Item('Kontrollkästchen1').CheckBox.Value := false;
end;
(habe ich auf die Schnelle nicht ausprobiert, müsste aber laufen)