полезные макросы для word

Ответ от Ursula Klein[новичек]
Начну с примера.
Мне, как человеку занимающемся иногда программированием, требуется распечатать исходный текст программы, да не просто, а красиво. Например, хочу выделить в тексте программы комментарии курсивом.
Для программы, занимающей несколько листов, вручную выделять все комментарии утомительно. Так давайте напишем макрос!
Итак, начнем: меню Сервис - Макрос - Начать запись.
Делаем доступным макрос для всех документов и приступаем к записи нажав кнопку ОК.
Производим переход в начало файла - жмем Cntrl + Home. Вызываем меню Найти и заменить, вводим текст для поиска "{" и жмем Найти. На первом найденном символе закрываем окно поиска. Далее, держа нажатой клавишу Shift, стрелками курсора выделяем текст комментария включая символ "}". После этого делаем начертание выделенного текста курсивом.
Останавливаем запись макроса.
Теперь идем в редактор Microsoft Visual Basic (Сервис - Макрос - Редактор Visual Basic). Находим наш макрос. Он имеет следующий вид:
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 14.10.2004
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "{"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=14, Extend:=wdExtend
Selection.Font.Italic = wdToggle
End Sub
Удалив лишнее получим следующий текст макроса:
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 14.10.2004
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "{"
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=14, Extend:=wdExtend
Selection.Font.Italic = wdToggle
End Sub
Теперь добавим цикл по символам для нахождения "}" и выделим необходимое число символов для форматирования в начертание курсивом:
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 14.10.2004
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "{"
Selection.Find.Execute
i = 0
While Selection.Text <> "}"
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Wend
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Selection.MoveLeft Unit:=wdCharacter, Count:=i, Extend:=wdExtend
Selection.Font.Italic = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Осталось добавить цикл по всему документу:
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 14.10.2004
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "{"
While Selection.Find.Execute=True
i = 0
While Selection.Text <> "}"
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Wend
Selection.MoveRight Unit:=wdCharacter, Count:=1
i = i + 1
Selection.MoveLeft Unit:=wdCharacter, Count:=i, Extend:=wdExtend
Selection.Font.Italic = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
Wend
End Sub
На этом все. Макрос готов к работе.
Для комментариев, распространяющихся до конца строки (например "//" в начале строки) , алгоритм действий аналогичен, приведу лишь текст макроса:
Sub Макрос4()
'
' Макрос4 Макрос
' Макрос записан 14.10.2004
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Text = "//"
While Selection.Find.Execute = True
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Italic = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
Wend
End Sub