Роман Опубликовано 3 февраля, 2009 Поделиться Опубликовано 3 февраля, 2009 Задача №1 Дано: 100 000 DOC-файлов записанных на диске скажем D:\ и к томуже разбросаны по папкам Надо: автоматом переконвертировать их RTF какой есть инструмент? Задача №2 Дано: 10 000 PPT-файлов записанных на диске скажем D:\ и к томуже разбросаны по папкам Надо: автоматом переконвертировать их БОЛЕЕ легкий формат совместимый с MS Office какой есть инструмент? Ссылка на комментарий Поделиться на другие сайты More sharing options...
Vinni Опубликовано 4 февраля, 2009 Поделиться Опубликовано 4 февраля, 2009 Для первой задачи я бы предложил использовать _ttp://search.cpan.org/~dami/MsOffice-Word-HTML-Writer-0.03/lib/MsOffice/Word/HTML/Writer.pm, а для второй - надо просто погуглить. Ссылка на комментарий Поделиться на другие сайты More sharing options...
Роман Опубликовано 4 февраля, 2009 Автор Поделиться Опубликовано 4 февраля, 2009 Винни тебя все на перловку тянет, а для win32 есть ченить? Ссылка на комментарий Поделиться на другие сайты More sharing options...
Pegas Опубликовано 10 февраля, 2009 Поделиться Опубликовано 10 февраля, 2009 для 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, ругается на файлы с наличием картинок :( Ну скинуть в одну папку, проще в тотал коммандере :) Ссылка на комментарий Поделиться на другие сайты More sharing options...
Сергей Опубликовано 27 февраля, 2009 Поделиться Опубликовано 27 февраля, 2009 Роман, возьми "антиворд" и не мучайся. Если там нет таблиц и графиков, то работает корректно. Ссылка на комментарий Поделиться на другие сайты More sharing options...
Роман Опубликовано 2 марта, 2009 Автор Поделиться Опубликовано 2 марта, 2009 Уважаемый Пегас, огромное спасибо за скрипт, НО: у меня ХП! у меня картинки в ворде у меня таблицы в вроде у меня в папке Inn еще тыщу папок и подпапок, соответсвенно необходимо сохранить структуру! Сергей антиворд это что за зверь? Ссылка на комментарий Поделиться на другие сайты More sharing options...
Сергей Опубликовано 4 марта, 2009 Поделиться Опубликовано 4 марта, 2009 Уважаемый Пегас, огромное спасибо за скрипт, НО: у меня ХП! у меня картинки в ворде у меня таблицы в вроде у меня в папке 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 Можно сделать батничек в который подставлять нужные реквизиты из своей программки и обработать великое множество файлов. Работает влет. Возможно есть и аналоги. Если найдется такая программка, которая и таблицы корректно отрабатывает, то дай знать. Ссылка на комментарий Поделиться на другие сайты More sharing options...
Рекомендуемые сообщения
Заархивировано
Эта тема находится в архиве и закрыта для дальнейших ответов.