Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Вычислить логарифм
   Категория: Математика
  Как закачать файл из Интернета
   Категория: Интернет и Сети
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Переключение раскладки клавиатуры
   Категория: Приложение
  Быстрое копирование файлов
   Категория: Файловая система
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Как соединить несколько файлов в один
   Категория: Текст и строки

Delphi - База Знаний: Сохранить документ Word как RTF на DELPHI

  << Вернуться к Содержанию  

uses 
comobj;

function convertdoc2rtf(var filename: string) : boolean;
var
oword: olevariant;
odoc: olevariant;
begin
result := false;
try
oword := getactiveoleobject('word.application');
except
oword := createoleobject('word.application');
end;
oword.documents.open(filename);
odoc := oword.activedocument;
filename := changefileext(filename, '.rtf');
odoc.saveas(filename);
oword.activedocument.close(wddonotsavecВ­hanges, emptyparam, emptyparam);
oword.quit(emptyparam, emptyparam, emptyparam);
odoc := varnull;
oword := varnull;
result := true;
end;

procedure tform1.button1click(sender: tobject);
const
filename = 'c:\document.doc';
begin
if convertdoc2rtf(filename) then
begin
showmessage('word document has been converted to .rtf');
richedit1.lines.loadfromfile(filename);
end;
end;
  << Вернуться к Содержанию