Таблицы из *.doc в Trichedit

[Алексей_2012]

Здравствуйте, у меня появился такой вопрос: возможно ли импортировать данные из файлов ворд в ричедит? Вопрос не такой легкий, так как такст импортируется в любом случае, а мне нужно импортировать все, что есть в документе: картинки и таблицы. Допустим возможно ли как-нибудь перебрать циклом весь файл ворд, и все какие есть картинки отобразить допустим в timage, текст в ричедит, а таблицы тоже в ричедит?

[Dozent]

TMemo попробуйте, только не могу точно сказать можно ли это всё туда засунуть...

[Аватар]

возможно ли как-нибудь перебрать циклом весь файл ворд

Угу, открывая как OLE-объект и используя его методы

все какие есть картинки отобразить допустим в timage, текст в ричедит, а таблицы тоже в ричедит

Нужен более продвинутый чем RichEdit. Типа RichView или RxRichEdit, они и картинки позволяют отображать

TMemo попробуйте

Вообще не при делах - только текст, да и то не форматированный

ADD Если WORD-документ преобразовать в rtf-формат, то загрузить можно в рич одним методом LoadFromFile

[Алексей_2012]

прочитал про rxrichedit почти у всех проблемы с загрузкой картинок, даже у нас на форуме, и если не ошибаюсь, то компонент идет в сборке с rxlib, а как открыть doc/docx как OLE -файл? И еще, раз тема так или иначе относится к ППП, то может быть знаете, возможно ли средствами делфи 7 lite найти на пк ms office power point, и запустить презентацию через повер поинт,но без возможности редактирования? Поиск организовывать только через реестр? По-другому нельзя никак найти?

[Алексей_2012]

скачал компонент и установил. Пытаюсь загрузить файл таким образом

RxRichEdit1.Lines.LoadFromFile('C:\Users\Алексей\Desktop\реферат.doc');

рхричедит выдает какие-то иероглифы. в чем может быть дело? Файл сохранен в MS OFFICE 2010

[Аватар]

рхричедит выдает какие-то иероглифы. в чем может быть дело?

Если WORD-документ преобразовать в rtf-формат, то загрузить можно в рич одним методом LoadFromFile

rtf-формат о чем-то говорит?

[Алексей_2012]

procedure TForm1.Button1Click(Sender: TObject);
var
 oWord: OleVariant;
 oDoc: OleVariant;
begin
if Form1.OpenDialog1.Execute then begin
 Caption := ExtractFileName(Form1.OpenDialog1.FileName);
 If Copy(Form1.OpenDialog1.FileName, Length(Form1.OpenDialog1.FileName)-2, 3)='doc' then begin
   try
   oWord := GetActiveOleObject('Word.Application');
 except
   oWord := CreateOleObject('Word.Application');
 end;
 oWord.Documents.Open(Form1.OpenDialog1.FileName);
 oDoc  := oWord.ActiveDocument;
 Form1.OpenDialog1.FileName := ChangeFileExt(Form1.OpenDialog1.FileName, '.rtf');
 oDoc.SaveAs(OpenDialog1.FileName, wdFormatRTF);
 oWord.ActiveDocument.Close(0, EmptyParam, EmptyParam);
 oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
 oDoc := VarNull;
 oWord := VarNull;
   end;
 with Form1.RichEdit1 do
 begin
   Lines.LoadFromFile(Form1.OpenDialog1.FileName);
   SelStart := 0;
   Modified := False;
 end;
end;
end;

Нагуглил код, ругается на строку

 oDoc.SaveAs(OpenDialog1.FileName, wdFormatRTF);

вот что пишет компилятор:

[Error] Unit1.pas(44): Undeclared identifier: 'wdFormatRTF'

[Аватар]

Попробуйте константу добавить

const wdFormatRTF = $00000006;

[Алексей_2012]

добавил, компиляция программы прошла без проблем, но при вызове данного обработчика события возникает ошибка, которая на скрине

[Аватар]

1. Офис точно установлен?
2. Ошибка есть, когда не из под дельфи прога вызывается?