ник: vavilas
Помогли знатоки. Вот, что получилось: Только, конечно, хотелось бы узнать синтаксис запроса.
Sub Макрос2()
'
' Макрос для сайта юридических услуг http://www.uconst.ru
' Макрос записан 09.02.2009 Admin
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Font.Bold=true
.Text = "(<[A-Za-zА-яЁё]@*)^0013"
.Replacement.Text = "<h2>\1</h2>^0013"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub