Нужно запрограммировать вот такую вот автоматизацию

По работе частенько возникает необходимость переконвертировать сразу кучу текстовых файлов, в связанных с вордом форматах. Делать это вручную даже для пары десятков файлов - неимоверно влом. Но "часу і натхнення" самому это все писать хронически нету.

Что должна делать программа (или вордовский макрос):

1. Задается папка и тип файлов в ней, которые нужно записать в другом формате.
2. Задается папка куда записывать файлы в нужном формате.
3. Выполняется пакетное конвертирование.
4. Все эти действия происходят БЕЗ глюков.

Форматы файлов, которые нужно поддерживать:
Word 2003 doc
RTF
Word 2007 docx
txt - кодировка Windows

Оплата - по факту: я вижу готовую программу (или макрос), она четко выполняет тестовые задания, я покупаю программу (или макрос) с исходным кодом. Сколько такая штука может стоить - совершенно без понятия. Надеюсь, автор программы будет в состоянии составить цену.

написал бы на ПхП за вечер, но думаю оно Вам не подходит. По сути Вордовские файлы это Zip архивы с несколькими файлами внутри, сам текст и его разметка в XML со всеми вытекающими. Думаю любой сможет написать Вам такое под винду...

Acid говорит:

По сути Вордовские файлы это Zip архивы с несколькими файлами внутри

Далеко не всегда, особенно формат RTF и старых вордов.

А просто в ворде макросы записать ( для каждого формата свой)? Если имена файлов одни и те же то тогда вообще просто

Попробуй что-то типа этого http://lohzone.net/load/word_converter_v62/2-1-0-10287

http://rapidshare.com/files/14661526/0117.ZIP.html
и убей эти пару постов после прочтения.

Acid говорит:

что-то типа этого

Пробовал, работает криво и делает подляны с текстом (пропадали куски).
corsar, пасибо, это оно, только вот оно Ворд 2007 не понимает. А новая версия, которая понимает, увы не тойво. Я даже был абстрактно готов купить сию программу, но как увидел цену - так и мягко говоря офигел.

Люди, я ить не на ровном месте тему создал

Нарисовал макрос. Преобразует файлы из txt в *.doc. Создает в папке с файлами папку Doc и туда их бросает. Перед применением макроса нужно открыть все файлы которые хочешь преобразовать в ворде (отдельный стандартный макрос есть).

Sub макрос1()
'
'
'
On Error Resume Next

MkDir ActiveDocument.Path & "\Doc"

For i = 1 To 1000

ActiveDocument.SaveAs Filename:=ActiveDocument.Path & "\Doc\" & Replace(ActiveDocument, "txt", "doc"), FileFormat:=wdFormatXMLDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.Close
Next i
End Sub

На другие форматы рисуется по аналогии. Может и коряво нарисовано все (ну не знаю я Basic, не знаю), но зато работает и думаю работать должно корректно так как конвертирует Word, а макрос только заменяет ручную работу.

Vik говорит:

и думаю работать должно корректно

Строго для каждого отдельного файла. Просто один тычок мышью вместо 5.

Покамест опять мучаюсь вручную. Но по прежнему готов финансово отблагодарить за работающую программу.

Ну да. Каждый отдельно. Только открывал он их пачкой и так же пачкой по очереди сохранял.