Hilfe!!! - MS-Word-Dokument mit VCL (TEdit) ausfüllen

[Cronen]

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)