Word 2010 Vorlage.dot ausfüllen

[user0815]

Hallo,
hat jemand eine Quelle wo man hierzu etwas nachlesen kann, meine speziell XE2 und Word 2010.
Auf unterschiedlichen Rechnern erhalte ich verschiedene Fehlermeldungen, OLE Fehler, Server Fehler, usw... auf einigen Rechnern funktioniert es auch.
Ich will in eine bestehende Word Vorlage Felder mit Daten aus der Datenbank ausfüllen und diese entweder nur anzeigen oder gleich ausdrucken.

Zur Zeit mache ich es so:

Delphi-Quellcode:

procedure TFormMain.PrintVorlage(Ausdrucken : Boolean);
var
  Dokument : Variant;
  AnzahlAusdrucke : Integer;
begin
  try
    AnzahlAusdrucke := StrToInt(EditPrinterCopy.Text);
  except
    AnzahlAusdrucke := 1;
  end;

  try
    // Es wird zuerst versucht, eine laufende Word-Instanz zu verwenden
    Dokument := GetActiveOleObject('Word.Application');
  except
    try
      // Läuft Word noch nicht, wird eine neue Verbindung aufgebaut
      Dokument := CreateOleObject('Word.Application');
    except
      // Schlägt sie fehl (Word nicht installiert), gibt es eine Fehlermeldung
      ShowMessage('Microsoft Word kann nicht gestartet werden !');
      exit;
    end;
  end;

  // http://stackoverflow.com/questions/5913665/word-2010-automation-goto-bookmark
  //loop that waits for the normal template to load
  while Dokument.Templates.Count = 0 do
    Sleep(200);

  Dokument.Visible := not Ausdrucken;
  Dokument.Documents.Add(Template := Anwendungsverzeichnis + 'Vorlage\XYZ.dot');

  try
    with Datenmodul.UniQueryDataGrid do
    begin
      Dokument.ActiveDocument.FormFields.Item('Nummer').Result := FieldByName('Nummer').AsString;
      Dokument.ActiveDocument.FormFields.Item('Jahreszahl').Result := FieldByName('Jahreszahl').AsString;
      // ...
    end;

    if Ausdrucken then
    begin
      if not CheckBoxStandarddrucker.Checked
        then Dokument.ActivePrinter := ComboBoxPrinter.Text;
      // Background := true -> bedeutet, daß das Makro fortgesetzt werden soll, während WinWord druckt.
      // Background := false -> setzt dann eben das Makro nicht fort.
      Dokument.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);
      //Dateien schließen
      Dokument.Documents.Close(SaveChanges := 0);
      //MSWord schließen
      Dokument.Quit;
    end;

  finally
    Dokument := unassigned;
  end;
end;

Was wäre hier richtig, mit oder ohne Application? Compilieren lässt sich beides.

Delphi-Quellcode:

  Dokument.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);
  Dokument.Application.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);

Im Quellcode werden folgende Einträge rot unterstrichen: Template, Background, Range, Item, Copies, Pagetype, SaveChanges
Auch das muss man doch anders lösen ?

Habe echt keine Ahnung...