| Вых |
| ( ) |
| 20/06/2003 14:11:00 |
|
Есть тут кто-то, разбирающийся в макросах Word-а?
|
Вот такой странный для нашего Форума вопрос
Но если вдруг в наших рядах найдется человек, способный на языке Word-а написать макрос, преобразующий кучу RTF файлов в формат DOC - то он весьма серьезно поможет моей секретутке, до сих пор проделывающей эту ужасно рутинную работу вручную... тем самым освободив ее руки (и другие части тела!
) для более приятных и важных занятий. 
А я в порыве благодарности пива налью!
| Vantala |
| ( ) |
| 20/06/2003 14:29:40 |
А можно узнать, на куя это надо делать? И те ж, и те файлы - "вордовые" (-)
|
Цитата:
Вот такой странный для нашего Форума вопрос
Но если вдруг в наших рядах найдется человек, способный на языке Word-а написать макрос, преобразующий кучу RTF файлов в формат DOC - то он весьма серьезно поможет моей секретутке, до сих пор проделывающей эту ужасно рутинную работу вручную... тем самым освободив ее руки (и другие части тела!
А я в порыве благодарности пива налью!
| Вых |
| ( ) |
| 20/06/2003 14:57:54 |
|
|
Помимо Ворда есть и другие программы (+)
|
работающие с теКСтами. И их разработчики-распиз@яи в процессе написания программ бАнально не учли возможности существования других форматов, равно как и того, что в какой-то момент формат RTF де-ФАКто станет стандартом обменя теКСтовыми файлами.
| Михельзаде |
| ( ) |
| 20/06/2003 15:36:01 |
|
Самый простой способ(+)
|
Возьми и тупо поменяй расширение на *.doc, 90% что большая часть переконвертируется нормально. А так если таки это уж так кретично, то на той неделе стучи, помогу.
| Вых |
| ( ) |
| 20/06/2003 16:20:13 |
|
|
Ты думаешь, я такой тупой?
|
Программа, которая это DOC-и потрЕБЛЯет - их не по расширению, а по формату распознает (так сказать - не по паспорту, а по морде!).
| Михельзаде |
| ( ) |
| 21/06/2003 13:41:34 |
|
|
Re: Ты думаешь, я такой тупой?
|
Ты тогда, чтоб я тебе тупости не советовал поподробней опиши задачу. Чем ты пользуешься ПО и в каких целях тебе нужна подобного рода конвертация. Чем тебя не устраивает *.rtf.
| Вых |
| ( ) |
| 21/06/2003 14:04:49 |
|
|
|
Отписал в личку. (-)
|
-
| blazzer |
| ( ) |
| 21/06/2003 22:19:04 |
|
У тебя же вроде программеров гора?
|
Вот тебе макрос, пусть подключат.
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