Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

*.doc в *.txt, и снести форматирование! [D6, WinME]

pavel_ak © (2003-01-10 21:52:00)
Как превратить *.doc документ в *.txt забив на форматирование! Спасибо!

alvin (2003-01-11 23:00:00) [1]
Вот тут на ходу состряпал чего-то (вроде чего-то напортачил с сохранением, но главное суть передал):

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
index,i_txt,fileformat,fname,newname,savechanges:OleVariant;
mydoc:_Document;
begin
OpenDialog1.Execute;
fname:=OpenDialog1.FileName;
newname:="c:\example.txt";
Word:=TWordApplication.Create(nil);
try
//вообще надо посмотреть какие конвертеры имеются
for i:=1 to Word.FileConverters.Count do begin
index:=i;
ListBox1.Items.add(Word.FileConverters.Item(index).FormatName);
if Word.FileConverters.Item(index).ClassName="Text with Layout" then
//выбор можно также делать по расширению и названия
i_txt:=index;
end;
FileFormat:=Word.FileConverters.Item(i_txt).SaveFormat;
SaveChanges:=false;//это чтобы при закрытии не выскакивал запрос на сохранение
//открываешь файл MyDoc:=Word.Documents.Open(FName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

//сохраняешь в нужном формате

MyDoc.SaveAs(NewName,FileFormat,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//закрываешь документ
MyDoc.Close(SaveChanges, EmptyParam,EmptyParam);
finally
Word.Quit;
end;
end;

alvin (2003-01-11 21:34:00) [2]
У меня где-то была программка таким образом переводящая в HTML, если найду - отпишу, или если есть необходимость вышлю исходники. Только я вроде писал под Delphi4

TTCustomDelphiMaster (2003-01-11 16:42:00) [3]
Пример работы с Word найдешь в сети (есть на королевстве дельфи). Для сохранения в текстовом формате используй метод ActiveWorkBook.SaveAs, второй параметр которого указывает формат файла (для текстового формата он равен 2).
PS: Еще есть компоненты для паботы с *.doc без Word"а. (ищи в сети).

pavel_ak (2003-01-11 16:04:00) [4]
А может кто привести пример использования вышеперечисленного?

alvin (2003-01-11 10:43:00) [5]
Можно работать через WordApplication и использовать конверторы Word.

Song (2003-01-11 07:37:00) [6]
Ну так.. либо OLE либо вручную, выбирай...

pavel_ak (2003-01-10 22:42:00) [7]
Может непонятно выразился? Существует файл "1.doc". Как извлечь из него текстовую информацию, т.е. создать файл "1.txt", где содержится отт же текст, но без форматирования и т.п.???

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »