Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > rtf-->doc

Автор: bartram 27.3.2004, 14:26

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

и обратно

Автор: DonPager 27.3.2004, 16:59

а смысл ?

Автор: PILOT 27.3.2004, 22:52

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

Код


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;

В другую понятно как...
этот пример лежит http://delphiworld.narod.ru/base/doc_to_rtf.html.

СУВ.

Автор: bartram 28.3.2004, 12:03

Спасибо,PILOTIK

Автор: bartram 28.3.2004, 19:17

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

Автор: Guest 28.3.2004, 23:33

Я не знаю

Это стандартный запуск 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

СУВ.