Folg. Problem:
Ich habe mehrere RTF-Dateien. Diese sind Grundlage! Ich möchte diese jetzt in ein vorhandenes Word-Dokument einfügen:
Delphi-Quellcode:
procedure ....... ;
var FileName, newFile: OleVariant;
FPara: Paragraph; //Absatz
FRange: Range; //Bereich
vWhat, vBookmark:OleVariant;
begin
FileName := 'c:\vorlage.dot';
WordApplication1.Connect;
WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
//ANZEIGEN
WordApplication1.visible := true;
FileName := false;
//Jump-To-End
vWhat:=wdGoToBookmark;
vBookmark:='Einfug';
WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
//Formatierung vorab
WordApplication1.Selection.Font.Name := 'Arial';
WordApplication1.Selection.Font.Size := 10;
//hiernach kommt später noch ne Schleife um mehrere RTFs einzufügen...
WordApplication1.Selection.Font.Bold := integer(True);
WordApplication1.Selection.TypeText('Lfd.-Nr.: '+DatMod.MTaLfdNr.AsString+#13);
WordApplication1.Selection.Font.Bold := integer(False);
WordApplication1.Selection.TypeText('Datenblatt:'+#13);
// HIER MUSS DIE RTF EINGEFÜGT WERDEN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//speichern
SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'ausdruck\';
SaveDialog1.Filter := 'Microsoft Word-Dokument (*.DOC)|*.doc';
SaveDialog1.DefaultExt := 'doc';
SaveDialog1.FileName := '';
SaveDialog1.Title := 'Speichern...';
if Haupt.SaveDialog1.Execute then
begin
newFile := SaveDialog1.FileName;
WordDocument1.SaveAs(newFile);
end;
//Schließen
WordDocument1.Close(FileName);
WordDocument1.Disconnect;
WordApplication1.Quit;
WordApplication1.Disconnect;
end;
Ich weiß, dass es die Prozedur
WordApplication1.Selection.InsertFile gibt , weiß aber nicht ob die dafür geeignet ist und wie ich diese verwende. Hab nix in Google,
DP oder Hilfe gefunden...
ThX
Marcus