Перевод из *.doc в *.txt

← →
elf (2003-06-27 00:52) [0]

Мастера Delphi! Кто-нибудь знает как из вордовского формата перевести в txt, в Delphi конечно. Заодно может напишите из
rtf -> txt. Буду очень признателен!

← →
Тих (2003-06-27 00:58) [1]

man VBAWRD8.hlp
man VBAWRD9.chm

Document.Save

← →
elf (2003-06-27 01:17) [2]

Я так понимаю ты предлагаеш хелп читать. А где его можно достать?

← →
Тих (2003-06-27 01:21) [3]

у меня в директории

Program Files\Microsoft Office 97\Office

находится VBAWRD8.HLP

← →
elf (2003-06-27 02:58) [4]

А у меня на компе нет такого файла, может скинеш мне на мыло.

Word := CreateOleObject("Word.Application");

Document := Word.Documents.Open(OpenFile);

Case SaveDialog.FilterIndex Of
1:
Begin
Convertor := 0;
SaveFile := ChangeFileExt(SaveDialog.FileName, ".doc");
End;
2:
Begin
Convertor := 6;
SaveFile := ChangeFileExt(SaveDialog.FileName, ".rtf");
End;
3:
Begin
Convertor := 3;
SaveFile := ChangeFileExt(SaveDialog.FileName, ".txt");
End;
End;

Document.SaveAs(SaveFile, Convertor);

В таком духе значит, в таком разрезе. Вот с ХТМЛ - веселее.

Перевод из *.doc в *.txt Найти похожие ветки

Перевод из .doc в .txt Найти похожие ветки