Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Word / 4 сообщений из 4, страница 1 из 1
30.05.2007, 08:54:22
    #34559917
raptor3
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос Word
******************************************
With Selection.Find
.Text = " {2,}"
.Replacement.Text = " "
.Wrap = wdFindContinue
.MatchWildcards = True
End With
******************************************
With Selection.Find
.Text = "([!.]) Т.([0-9])"
.Replacement.Text = "\1. Т.\2"
.Wrap = wdFindContinue
.MatchWildcards = True
End With
******************************************
With Selection.Find
.Text = "^#-комната, "
.Replacement.Text = "^&"
.Wrap = wdFindContinue
.Format = True
End With
******************************************
With Selection.Find
.Text = "Комната, "
.Replacement.Text = "^&"
.Wrap = wdFindContinue
.Format = True
End With
******************************************
Есть такие куски макроса - что они заменяют?
...
Рейтинг: 0 / 0
30.05.2007, 15:18:52
    #34561523
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос Word
1. меняет не менее двух пробелов на один
2. ищет конструкцию: любой_знак_кроме_точки" T."любая_цифра и вставляет точку после любой_знак_кроме_точки. Короче говоря, фрагмент "В Т.5" будет заменен на "В. Т.5"
3. ищет конструкцию: любая_цифра”-комната“ и заменяет найденное на искомый текст (т.е. само на себя) но с каким-то форматированием. Т.е. фактически выделяет найденное каким-то форматированием.
4. то же самое, что и в 3-м варианте, только форматированием будет выделен текст "Комната, "
...
Рейтинг: 0 / 0
30.05.2007, 15:33:48
    #34561601
mari_karo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос Word
lena_####
3. ищет конструкцию: любая_цифра”-комната“ и заменяет найденное на искомый текст (т.е. само на себя) но с каким-то форматированием. Т.е. фактически выделяет найденное каким-то форматированием.

А у меня Word ругается на конструкцию "^#", говорит - ^# нельзя использовать как специальный символ.....
А у вас проходит этот вариант?
...
Рейтинг: 0 / 0
30.05.2007, 15:46:27
    #34561661
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос Word
Первые два варианта используют подстановочные знаки (.MatchWildcards = True).
3-й и 4-й – напротив, их не используют. Добавьте в код этих вариантов строку
Код: plaintext
.MatchWildcards = False
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос Word / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]