Thema: Delphi worddocument to richedit

Einzelnen Beitrag anzeigen

horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#1

worddocument to richedit

  Alt 2. Jul 2003, 12:06
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;
  Mit Zitat antworten Zitat