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, ругается на файлы с наличием картинок :(

 

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

[Сергей]

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