Перейти к содержанию
IT2B - Технологии разведки для бизнесаРаботаем с 2003 года.

Doc -> Rtf

Оценить эту тему:


Рекомендуемые сообщения

Задача №1

 

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

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

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

 

Задача №2

 

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

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

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

Ссылка на сообщение
Поделиться на другие сайты

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

 

 

Ссылка на сообщение
Поделиться на другие сайты

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

 

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

Изменено пользователем Pegas
Ссылка на сообщение
Поделиться на другие сайты
  • 3 недели спустя...

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

у меня ХП!

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

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

у меня в папке 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

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

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

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

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

Изменено пользователем Сергей
Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
×
×
  • Создать...