RichEdit-Formatierungen in MS WORD übernehmen

[Gerkey]

Ich möchte die Formatierungen aus einer RichEdit-Komponente oder einer Listbox bei der Ausgabe in MS WORD übernehmen.
Mit nachstehendem Code gelingt mir das nicht. Wo kann ich hilfreiche Dokumentation finden ?

Procedure WORD_OEFFNEN;
..
MSWord := CreateOleObject('Word.Basic');
Lang := MSWord.AppInfo(Integer(16));
end;

Procedure AUSGABE_IN_WORD;
WORD_OEFFNEN;
for i := 0 to M.RichEdit1.Lines.Count - 1 do
MSWORD.Insert( M.RichEdit1.Lines[i] + Chr(13));
end;

[Bernhard Geyer]

Speichere dein RTF als Datei und lade die Datei mittels deiner MSWord-Variable ein.

[peterbelow]

Zitat:

Zitat von Gerkey (Beitrag 1437167)

Ich möchte die Formatierungen aus einer RichEdit-Komponente oder einer Listbox bei der Ausgabe in MS WORD übernehmen.
Mit nachstehendem Code gelingt mir das nicht. Wo kann ich hilfreiche Dokumentation finden ?

Procedure WORD_OEFFNEN;
..
MSWord := CreateOleObject('Word.Basic');
Lang := MSWord.AppInfo(Integer(16));
end;

Procedure AUSGABE_IN_WORD;
WORD_OEFFNEN;
for i := 0 to M.RichEdit1.Lines.Count - 1 do
MSWORD.Insert( M.RichEdit1.Lines[i] + Chr(13));
end;

Am einfachsten würde das über die Zwischenablage gehen:

Delphi-Quellcode:

  richedit1.SelectAll;
  richedit1.CopyToClipboard;
  ... paste into Word

Du solltest aber wirklich nicht mehr "word.basic" verwenden, das ist seit Jahrzehnten ausgemustert und die Kompatibilität mit neueren Word-Versionen ist nicht garantiert. Verwende "Word.Document".

[Gerkey]

danke für Eure Tips !
Werd's ' mal versuchen.

Gerky

[Redeemer]

Zitat:

Zitat von peterbelow (Beitrag 1437175)

Zitat:

Zitat von Gerkey (Beitrag 1437167)

Ich möchte die Formatierungen aus einer RichEdit-Komponente oder einer Listbox bei der Ausgabe in MS WORD übernehmen.
Mit nachstehendem Code gelingt mir das nicht. Wo kann ich hilfreiche Dokumentation finden ?

Procedure WORD_OEFFNEN;
..
MSWord := CreateOleObject('Word.Basic');
Lang := MSWord.AppInfo(Integer(16));
end;

Procedure AUSGABE_IN_WORD;
WORD_OEFFNEN;
for i := 0 to M.RichEdit1.Lines.Count - 1 do
MSWORD.Insert( M.RichEdit1.Lines[i] + Chr(13));
end;

Am einfachsten würde das über die Zwischenablage gehen:

Delphi-Quellcode:

  richedit1.SelectAll;
  richedit1.CopyToClipboard;
  ... paste into Word

Du solltest aber wirklich nicht mehr "word.basic" verwenden, das ist seit Jahrzehnten ausgemustert und die Kompatibilität mit neueren Word-Versionen ist nicht garantiert. Verwende "Word.Document".

Excel selbst führt seit jeher alle internen Kopier- und Verschiebeoperationen aus, indem es die Zellen in die Zwischenablage kopiert/ausschneidet und dann wieder einfügt. :drunken: Dann darf man das doch extern auch, oder? :lol: