Вых
На форуме: 24 г 225 д(с 09/02/2000)
Тем: 1221
Сообщений: 26180
Флеймы: 1757 (6,7%)
Всего отчетов: 43
Москва и область: 38
Регионы: 5 |
|
|
|
Вот такой странный для нашего Форума вопрос 
Но если вдруг в наших рядах найдется человек, способный на языке Word-а написать макрос, преобразующий кучу RTF файлов в формат DOC - то он весьма серьезно поможет моей секретутке, до сих пор проделывающей эту ужасно рутинную работу вручную... тем самым освободив ее руки (и другие части тела!  ) для более приятных и важных занятий. 
А я в порыве благодарности пива налью! 
--------------------
На позір Перунова Полка піднімаэ меч Ареэва рука.
На могутній дух, на захист нам, на погибель злим підступним ворогам.
Гримить небо і тремтить земля, меч Арея Русь з неволі визволя.
На Вкраiні хай пощезне враг, меч Арея поверне нам рідний стяг! |
|
Vantala
На форуме: 23 г 16 д(с 06/09/2001)
Тем: 332
Сообщений: 1249
Флеймы: 58 (4,6%)
Всего отчетов: 3
Москва и область: 3 |
|
|
|
Цитата:
Вот такой странный для нашего Форума вопрос
Но если вдруг в наших рядах найдется человек, способный на языке Word-а написать макрос, преобразующий кучу RTF файлов в формат DOC - то он весьма серьезно поможет моей секретутке, до сих пор проделывающей эту ужасно рутинную работу вручную... тем самым освободив ее руки (и другие части тела! ) для более приятных и важных занятий.
А я в порыве благодарности пива налью!
--------------------
Я верю в то, что секс является одной из самых прекрасных, естественных и полезных вещей, которые можно купить за деньги (писатель Том Клэнси)  |
|
Вых
На форуме: 24 г 225 д(с 09/02/2000)
Тем: 1221
Сообщений: 26180
Флеймы: 1757 (6,7%)
Всего отчетов: 43
Москва и область: 38
Регионы: 5 |
|
|
|
работающие с теКСтами. И их разработчики-распиз@яи в процессе написания программ бАнально не учли возможности существования других форматов, равно как и того, что в какой-то момент формат RTF де-ФАКто станет стандартом обменя теКСтовыми файлами. 
--------------------
На позір Перунова Полка піднімаэ меч Ареэва рука.
На могутній дух, на захист нам, на погибель злим підступним ворогам.
Гримить небо і тремтить земля, меч Арея Русь з неволі визволя.
На Вкраiні хай пощезне враг, меч Арея поверне нам рідний стяг! |
|
Михельзаде
На форуме: 21 г 332 д(с 25/10/2002)
Тем: 21
Сообщений: 119
Всего отчетов: 12
Москва и область: 12 |
|
Гео: Москва
|
|
Возьми и тупо поменяй расширение на *.doc, 90% что большая часть переконвертируется нормально. А так если таки это уж так кретично, то на той неделе стучи, помогу.
--------------------
| Степень загадочности женщины- определяется степенью ее глупости |
|
Вых
На форуме: 24 г 225 д(с 09/02/2000)
Тем: 1221
Сообщений: 26180
Флеймы: 1757 (6,7%)
Всего отчетов: 43
Москва и область: 38
Регионы: 5 |
|
|
|
Программа, которая это DOC-и потрЕБЛЯет - их не по расширению, а по формату распознает (так сказать - не по паспорту, а по морде!).
--------------------
На позір Перунова Полка піднімаэ меч Ареэва рука.
На могутній дух, на захист нам, на погибель злим підступним ворогам.
Гримить небо і тремтить земля, меч Арея Русь з неволі визволя.
На Вкраiні хай пощезне враг, меч Арея поверне нам рідний стяг! |
|
Михельзаде
На форуме: 21 г 332 д(с 25/10/2002)
Тем: 21
Сообщений: 119
Всего отчетов: 12
Москва и область: 12 |
|
Гео: Москва
|
|
Ты тогда, чтоб я тебе тупости не советовал поподробней опиши задачу. Чем ты пользуешься ПО и в каких целях тебе нужна подобного рода конвертация. Чем тебя не устраивает *.rtf.
--------------------
| Степень загадочности женщины- определяется степенью ее глупости |
|
Вых
На форуме: 24 г 225 д(с 09/02/2000)
Тем: 1221
Сообщений: 26180
Флеймы: 1757 (6,7%)
Всего отчетов: 43
Москва и область: 38
Регионы: 5 |
|
|
|
-
--------------------
На позір Перунова Полка піднімаэ меч Ареэва рука.
На могутній дух, на захист нам, на погибель злим підступним ворогам.
Гримить небо і тремтить земля, меч Арея Русь з неволі визволя.
На Вкраiні хай пощезне враг, меч Арея поверне нам рідний стяг! |
|
blazzer
На форуме: 22 г 226 д(с 08/02/2002)
Тем: 165
Сообщений: 4626
Флеймы: 2769 (60%) |
|
|
|
Вот тебе макрос, пусть подключат.
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
--------------------
I can resist anything but temptation
(c) Oscar Wilde |
|
Назад
Конференция
Вперед
Ветвями
Редактировать
Ответить
Цитата
