mittels Delphi Texte in Word einfügen.

[toms]

Hi!

Auf die schnelle gecoded und ungetestet:

Delphi-Quellcode:

uses
  ComObj;

// ...

var
  Word: OLEVariant;
begin
  try
    // offenes Word Dok. holen
    Word := GetActiveOleObject('Word.Application');
  except
    // sonst neue Word instanz erzeugen
    Word := CreateOleObject('Word.Application');
    // Neues Dok hinzufügen (mit Methode Open('Filename')
    // kann eine bestimmte Datei geöffnet werden
    Word.Documents.Add;
  end;
  // Word anzeigen
  Word.Visible := True;
  // Text schreiben
  Word.Selection.TypeText('DeinText');
end;