worddocument to richedit

[horst]

wie kann ich ein worddokument in ein richedit kriegen?
viel eher wäre ja dann die frage wie wandel ich ein worddokument zu einem rich text format um?
dann kann ich das ganze in ein richedit laden..., oder?
das ganze sollte halt nur nicht zu sehen sein. (umwandeln usw.)
hat jemand schon mal sowas gemacht und hat ein beispiel für mich?


sowas in der art dachte ich...
klappt nicht:

Delphi-Quellcode:

begin
  if opendialog1.Execute then begin
    try
      WordApp := CreateOleObject('Word.Application');
    except
      ShowMessage('Ich würde mal Word installieren  :)');
    end;
    WordApp.Documents.Open(Opendialog1.FileName);
    Doc := WordApp.ActiveDocument;
    WordApp.visible := false;
    WordApp.ActiveDocument.SaveAs('c:\temp\test.rtf');
    richedit.lines.LoadFromFile('c:\temp\test.rtf');
  end;
end;

das klappt auch nicht...

Delphi-Quellcode:

begin
  if opendialog1.Execute then begin
    try
      WordApp := CreateOleObject('Word.Application');
    except
      ShowMessage('Could not start MS Word!');
    end;
    WordApp.Documents.Open(Opendialog1.FileName);
    Doc := WordApp.ActiveDocument;
    WordApp.visible := false;
      WordApp.ActiveDocument.SaveAs('c:\temp\test.rtf');
  // Evtl Word beenden
  WordApp.Quit;
  // Ressourcen Freigeben
  if
  WordApp = Unassigned then
  begin
  richedit.lines.LoadFromFile('c:\temp\test.rtf');
  end;
   end;
end;

[sakura]

Es reicht nicht, die Dateieindung zu setzen, Du musst Word auch das Format verraten ;-) Bei meinen Word-Komponenten erwartet SaveAs als zweiten Parameter das gewünschte Format. Für RTF ist dieser Parameter wdFormatRTF (Wert: $00000006).

...:cat:...

[horst]

danke dennoch habe ich eine fehlermeldung
http://www.fusshoeller.com/downloads/ex.gif

[sakura]

Welchen Deiner Ansätze nutzt Du? Den ersten oder den zweiten? Du musst Word veranlassen, daß Dokument zu schließen.

Delphi-Quellcode:

// so, oder so ähnlich
WordApp.ActiveDocument.Close(False);

...:cat:...

[horst]

Delphi-Quellcode:

  WordApp.Quit;

den zweiten