Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

Перевод из *.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]

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

---

← →
Думкин ©   (2003-06-27 06:42) [5]

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);

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c