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

CHERRY

Дата 1.10.2008, 17:28 (ссылка)

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

Загрузка ...

Прохожий

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

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

Требуется конвертировать файлы Microsoft Word в текстовый формат в любой кодировке.

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

Трясу надежды ветвь, но где желанный плод?

ne0n

Дата 1.10.2008, 22:20 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

Цитата(CHERRY @ 1.10.2008, 17:28

)

Требуется конвертировать файлы Microsoft Word в текстовый формат в любой кодировке.

Код


uses
ComObj

procedure TForm1.btn1Click(Sender: TObject);
 var

  fname: string;
  WordAppl, WordDoc: OleVariant;

begin
with TOpenDialog.Create(nil) do
try
   Filter := 'word documents (*.doc)|*.doc';
   if not Execute then Exit;
   fname := FileName;
finally
   Free;
end;

WordAppl := CreateOleObject('Word.Application');
 try
    WordDoc := WordAppl.Documents.Open(fname);
    fname := ExtractFilePath(fname) + 'test.txt';
    WordDoc.SaveAs(FileName := fname, FileFormat := 2);
 finally
    WordAppl.Quit;
end;
end;

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

http://sa-sec.org
как я вам? smile

CHERRY

Дата 2.10.2008, 10:50 (ссылка)

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

Загрузка ...

Прохожий

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

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

Да, это все верно.
Но на компьютере нет Worda. Нужен независимый алгоритм кодировки.
Я нашел в инете утилитку zd2t.exe(122kBt). Она ковертит файлы Word XP очень прилично.
Т.е. решение есть.

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

Трясу надежды ветвь, но где желанный плод?

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