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

bartram

Дата 27.3.2004, 14:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

Как преобразовать doc в rtf ?

и обратно

Это сообщение отредактировал(а) bartram - 27.3.2004, 17:42

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

DonPager

Дата 27.3.2004, 16:59 (ссылка)

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

Загрузка ...

Колдырь

Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

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

а смысл ?

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

кодер + лодырь = колдырь

PILOT

Дата 27.3.2004, 22:52 (ссылка)

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

Загрузка ...

производство

Профиль
Группа: Модератор
Сообщений: 2724
Регистрация: 4.4.2002
Где: москва

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

В одну сторону:

Код


procedure TImport_Form.ToolButton3Click(Sender: TObject);
var
  WordApp: Variant;
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text := ExtractFileName(OpenDialog1.FileName);
    StatusBar1.SimpleText := OpenDialog1.FileName;
    WordApp := CreateOleObject('Word.Basic');
    if not VarIsEmpty(WordApp) then
    begin
      WordApp.FileOpen(OpenDialog1.FileName);
      WordApp.FileSaveAs(Name := 'c:\temp_bb.rtf', Format := 6);
      WordApp.AppClose;
      WordApp := Unassigned;
      WordEditor.Lines.LoadFromFile('c:\temp_bb.rtf');
    end
    else
      ShowMessage('Could not start MS Word');
  end;
end;

В другую понятно как...
этот пример лежит здесь.

СУВ.

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

тут могла быть Ваша реклама...

bartram

Дата 28.3.2004, 12:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

Спасибо,PILOTIK

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

bartram

Дата 28.3.2004, 19:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

PILOTIK, твой пример не работает при нажатии button говорит Could not start MS Word. Хотя Word установлен (у меня Word XP)?
В чём дело?

Это сообщение отредактировал(а) bartram - 28.3.2004, 19:19

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Guest

Дата 28.3.2004, 23:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я не знаю

Это стандартный запуск Word. Стандартней не бывает...

Вот исходная ссылка:
http://delphiworld.narod.ru/base/doc_to_rtf.html

Вот ссылки на подобные операции:
http://ziet.zhitomir.ua:8890/bin/shMes.asp?idf=5&idm=606
http://ogoncharenko.narod.ru/DelphiFaq/3.htm

СУВ.

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