Клуб Любителей Секса (КЛС): Есть тут кто-то, разбирающийся в макросах Word-а?

FanFap.nl - первая социальная сеть в мире интима • Это рекламное место продается

Узнайте, как получить доступ
к заблокированным сайтам

sextalk.ru – Клуб Любителей Секса

Наши зеркала: sextalk.ru,
forum.dosug.org, xguru.info

Вы не вошли [ Войти ]

Конференции · Поиск в отчетах · Поиск · Регистрация ·
Правила · FAQ · Кто онлайн · Пользователи

Oбщение >> Беседка

Новичкам: Правила КЛС
Список сокращений КЛС

Поиск отчетов по
параметрам девушек

blazzer

На форуме: 22 г 108 д
(с 08/02/2002)

Тем: 165
Сообщений: 4626
Флеймы: 2769 (60%)

У тебя же вроде программеров гора? [ #86230 ]
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

--------------------

I can resist anything but temptation
(c) Oscar Wilde

Действия:

Информировать вас о новых ответах на это сообщение

Вся тема
Тема сообщения	Автор	Опубликовано
Есть тут кто-то, разбирающийся в макросах Word-а?	Вых	20/06/2003 14:11:00
У тебя же вроде программеров гора?	blazzer	21/06/2003 22:19:04
А можно узнать, на куя это надо делать? И те ж, и те файлы - "вордовые" (-)	Vantala	20/06/2003 14:29:40
Помимо Ворда есть и другие программы (+)	Вых	20/06/2003 14:57:54
Самый простой способ(+)	Михельзаде	20/06/2003 15:36:01
Ты думаешь, я такой тупой?	Вых	20/06/2003 16:20:13
Re: Ты думаешь, я такой тупой?	Михельзаде	21/06/2003 13:41:34
Отписал в личку. (-)	Вых	21/06/2003 14:04:49

Дополнительная информация:

Модератор(ы): Appo, crazysm, gorge, Izya_potz, Косматый геолог, Редактор отчетов, Совет Модераторов, ЮристЪ

Права:
      Вы не можете открывать новые темы
      Вы не можете отвечать на сообщения других пользователей
      HTML вкл.
      Спецразметка вкл.

Рейтинг (оценка) темы:

Перейти в конференцию:

Служба техподдержки

Как разместить рекламу