Word OLE InsertFile

[Bummi]

Quick and Dirty ungekapselt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Fword,FDocument,FFindObject:OleVariant;
  Filename:String;

begin
   Filename := 'C:\temp\test.doc';
        Fword        :=  CreateOleObject('Word.Application');
       FDocument    :=  Fword.Documents.Add(Filename);
       FFindObject  :=  FDocument.ActiveWindow.Selection.Find;
        Fword.visible := true;
        FFindObject.ClearFormatting;
        FFindObject.Replacement.ClearFormatting;
        FFindObject.Text := '#DOC-Ende';
        FFindObject.Forward := True;
        FFindObject.Replacement.Text := '';
        FFindObject.Wrap := 1;
        FFindObject.MatchCase := False;
        FFindObject.MatchWholeWord := False;
        FFindObject.MatchWildcards := False;
        FFindObject.MatchSoundsLike := False;
        FFindObject.MatchAllWordForms := False;
        if FFindObject.Execute() then                    Fword.selection.InsertFile('C:\temp\test.rtf')

end;