Doc -> Rtf

[Роман]

Задача №1

 

Дано: 100 000 DOC-файлов записанных на диске скажем D:\ и к томуже разбросаны по папкам

Надо: автоматом переконвертировать их RTF

какой есть инструмент?

 

Задача №2

 

Дано: 10 000 PPT-файлов записанных на диске скажем D:\ и к томуже разбросаны по папкам

Надо: автоматом переконвертировать их БОЛЕЕ легкий формат совместимый с MS Office

какой есть инструмент?

[Vinni]

Для первой задачи я бы предложил использовать _ttp://search.cpan.org/~dami/MsOffice-Word-HTML-Writer-0.03/lib/MsOffice/Word/HTML/Writer.pm, а для второй - надо просто погуглить.

 

 

[Роман]

Винни тебя все на перловку тянет, а для win32 есть ченить?

[Pegas]

для Doc простым скриптом на MSword VBA и всё :)

 

Вот такой макрос, в форме с кнопкой btnGO

 

' Преобразование файлов

Private Sub btnGO_Click()

 

Dim pDoc As String

Dim pRtf As String

Dim fso As Object, inFolder As Object

 

pDoc = "C:\!In": pRtf = "C:\!Out"

Set fso = CreateObject("Scripting.FileSystemObject")

Set inFolder = fso.GetFolder(pDoc)

 

Application.DisplayAlerts = wdAlertsNone

For Each fl In inFolder.Files

On Error GoTo PROC_ERR

 

Documents.Open FileName:=fl.Path, ConfirmConversions:=False, _

ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _

PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _

WritePasswordTemplate:="", Format:=wdOpenFormatAuto

ActiveDocument.SaveAs FileName:=pRtf & "\" & fl.Name & ".rtf", FileFormat:=wdFormatRTF

 

ActiveDocument.Close (False)

 

PROC_ERR:

 

Next

Application.DisplayAlerts = wdAlertsAll

End Sub

 

Делаем папки "C:\!In" и "C:\!Out" в C:\In файлы, только doc :)

Сделано но офисе XP, ругается на файлы с наличием картинок :(

 

Ну скинуть в одну папку, проще в тотал коммандере :)

[Сергей]

Роман, возьми "антиворд" и не мучайся. Если там нет таблиц и графиков, то работает корректно.

[Роман]

Уважаемый Пегас, огромное спасибо за скрипт, НО:

у меня ХП!

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

у меня таблицы в вроде

у меня в папке Inn еще тыщу папок и подпапок, соответсвенно необходимо сохранить структуру!

 

Сергей антиворд это что за зверь?

 

[Сергей]

Уважаемый Пегас, огромное спасибо за скрипт, НО:

у меня ХП!

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

у меня таблицы в вроде

у меня в папке Inn еще тыщу папок и подпапок, соответсвенно необходимо сохранить структуру!

 

Сергей антиворд это что за зверь?

 

 

C:\antiword>antiword.exe -h

Name: antiword.exe

Purpose: Display MS-Word files

Author: © 1998-2002 Adri van Os

Version: 0.33 (05 Jul 2002)

Status: GNU General Public License

Usage: antiword.exe [switches] wordfile1 [wordfile2 ...]

Switches: [-t|-p papersize][-m mapping][-w #][-i #][-Ls]

-t text output (default)

-p <paper size name> PostScript output

like: a4, letter or legal

-m <mapping> character mapping file

-w <width> in characters of text output

-i <level> image level (PostScript only)

-L use landscape mode (PostScript only)

-s Show hidden (by Word) text

 

 

Короче, задаешь ему кодировку, имя входного файла, имя файла на выходе.

Получаешь нормальный xxx.txt

Можно сделать батничек в который подставлять нужные реквизиты из своей программки и обработать великое множество файлов.

Работает влет.

Возможно есть и аналоги.

Если найдется такая программка, которая и таблицы корректно отрабатывает, то дай знать.