Word Datei via COM als neues Dokunment öffnen

[matf]

Hallo.

Ich habe folgendes Problem:
Ich möchte für eine Art Report-Ausgabe Werte an Word übergeben. Das ganze geht auch recht gut mit folgendem Code:

Delphi-Quellcode:

var
  FileName: OleVariant;
  vWhat, vBookmark, Marke: OleVariant;
begin
  FileName := ExtractFilePath(paramstr(0)) + 'marke.dot';
  WordApplication1.Connect;
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordApplication1.Visible := True;
  vWhat:=wdGoToBookmark;
  vBookmark:='adresse';
  //WordDocument1.Bookmarks.Item(vBookmark).Range.InsertAfter('test');

  if WordDocument1.Bookmarks.Exists(vBookmark) then
  begin
    Marke := WordDocument1.Bookmarks.Item(vBookmark).Range;
    Marke.InsertAfter(memAdresse.Text);
  end;
end;

Sorry, dass der Code so gruslig ist, aber das ist nur zum Testen.
Mein Problem ist nun, dass Word diese Dot-Datei öffnet und nicht ein neues, ungespeichertes Dokument draus macht. Wenn also jetzt der Anwender auf Speichern klickt, überschreibt er die Dot-Datei.
Wie kann ich das umgehen? Ich würde mir irgendwas vorstellen, dass eine Word-Datei geöffnet wird, aber wie eine neue Datei behandelt wird.
Geht das?

Danke,
Matthias

[Mario]

Ich zeichne in so einem Falle in Word von einem Vorgang ein Makro vom gewünschten Vorgang auf. Dort sieht man dann bei solchen Sachen genau die zu verwendenen Funktionen und die relevanten Parameter.

[matf]

Ah OK. Wie geht das denn?
Und kann ich das dann auch nach Delphi portieren?

[Chemiker]

Hallo matf,

Irrtum nicht ausgeschlossen, aber es gibt im Delphi-Forum genau die gleiche Frage:

Delphi-Forum

Bis bald Chemiker

[matf]

Richtig! Und da habe ich auch schon eine Lösung bekommen:
Wen es interessiert: http://www.delphi-forum.de/viewtopic...=544768#544768

Ich war aber der festen Überzeugung, dass ich das Cross-Posting in meine Frage mit eingebaut hatte. Habe mich anscheinend getäuscht. Tut mir leid. Aber ich danke allen, die sich für mich bemüht haben!
Vielen Dank!

Euer Matthias