VPF::DOC->RTF - Форум программистов

Garmahis

Дата 9.2.2005, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Задача. Человек выбирает а всандарном опен далоге документ ворд. Он конвертируется в rtf и отражается в RichEdit. Я нашёл вот такой код для этого.

Код


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(Form1.OpenDialog1.FileName);
  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;

Но к сожалению он работает не корректно.
1. Он работает если предварительно ручками открыть ворд.
2. После конвертации в richedit отображается токай же бред как если бы я просто открыл доковский док. А в ворде он этот рич открывает запросто. Помогите пожалуйста!

<Spawn>

Дата 9.2.2005, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: нет
Всего: 64

1) Дело в том, что по умолчанию Дельфи извещает об случившемся исключении(а если посмотреть на код, то создание экземпляра Word идет в случае исключения, вызванного отсутствием активных копии) - либо отключи эту возможность, либо запускай свою программу вне IDE, либо поищи поиском мой код активизации документа с проверкой на уже запущенные процессы Word-а.
2)Попробуй при сохранении указать формат документа:

Код


oDoc.SaveAs(FileName, wdFormatRTF);

Костанта должна быть в файле WordXP.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Garmahis

Дата 10.2.2005, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Цитата

Код


oDoc.SaveAs(FileName, wdFormatRTF);

Костанта должна быть в файле WordXP.

1. Спасибо большое с этим я разобрался...
2. А можно поподробнее? Что за WordXP?

Garmahis

Дата 10.2.2005, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Опс. Сапасибо! Я всё сделал smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »