|
|
|||||||
Вот такой странный для нашего Форума вопрос ![]() Но если вдруг в наших рядах найдется человек, способный на языке Word-а написать макрос, преобразующий кучу RTF файлов в формат DOC - то он весьма серьезно поможет моей секретутке, до сих пор проделывающей эту ужасно рутинную работу вручную... тем самым освободив ее руки (и другие части тела! ![]() ![]() А я в порыве благодарности пива налью! ![]() |
||||||||
|
|
|||||||
Цитата: |
||||||||
|
|
|||||||
работающие с теКСтами. И их разработчики-распиз@яи в процессе написания программ бАнально не учли возможности существования других форматов, равно как и того, что в какой-то момент формат RTF де-ФАКто станет стандартом обменя теКСтовыми файлами. ![]() |
||||||||
|
|
|||||||
Возьми и тупо поменяй расширение на *.doc, 90% что большая часть переконвертируется нормально. А так если таки это уж так кретично, то на той неделе стучи, помогу. |
||||||||
|
|
|||||||
Программа, которая это DOC-и потрЕБЛЯет - их не по расширению, а по формату распознает (так сказать - не по паспорту, а по морде!). |
||||||||
|
|
|||||||
Ты тогда, чтоб я тебе тупости не советовал поподробней опиши задачу. Чем ты пользуешься ПО и в каких целях тебе нужна подобного рода конвертация. Чем тебя не устраивает *.rtf. |
||||||||
|
|
|||||||
- |
||||||||
|
|
|||||||
Вот тебе макрос, пусть подключат. Const sPath As String = "c:\conv\" Dim sFileName As String sFileName = Dir$(sPath + "*.doc") Do Until Len(sFileName) = 0 Dim aD As Word.Document Set aD = Documents.Open(FileName:=sPath + sFileName, ReadOnly:=True) L = InStrRev(sFileName, ".") aD.SaveAs Left$(sFileName, L) + "rtf", wdFormatRTF sFileName = Dir$ Loop |