Word-OLE: Zwei Dokumente zusammenfügen - Schriftart wird verändert

[Delphi.Narium]

Delphi-Quellcode:

  WordApplication: TWordApplication;
  WordDocument: TWordDocument;

var 
  Mischfile: olevariant;
  vParam   : OleVariant; 
begin
  // Dokument, welches angehängt werden soll
  if rgTypDokument.ItemIndex = 0 then
    Mischfile := docPfad+'Anhang_Text.doc'
  else
    Mischfile := docPfad+'Anhang_Tabelle.doc';

  WordApplication.Connect;
  WordApplication.Documents.Add(docPfad+'Hauptdokument.doc', EmptyParam, EmptyParam, EmptyParam);
  WordDocument.ConnectTo(WordApplication.ActiveDocument);
  WordApplication.visible := true;
  WordApplication.Selection.EndKey(wdStory,EmptyParam);
// ******
  vParam := 'Standard'; // ggfls. den Namen einer geeigneten Formatvorlage eintragen,
                        // wenn die Formatvorlage Standard nicht mit Arial 10 definiert ist.
  WordApplication.Selection.Set_Style(vParam);
// ******
  WordApplication.Selection.InsertFile(Mischfile, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

Ansonsten mal hier in diesem Umfeld weitersuchen: word.selection.font