Тема: Что не так с макросом
Извиняюсь за простейший вопрос для разбирающихся. В общем раньше, когда училась, частенько приходилось переделывать интернетовские курсовые для себя, тогда я вбила макрос для обработки - просто записала действия в найти и заменить (там пробелы убрать после скобок, двойные пробелы убрать, после цифр неразрываемые поставлять и т.д., кучу всего повнесла), все работало прекрасно, кучу времени мне сэкономило. Это я про то, что я в макросах и скриптах ни бум-бум, просто записала все действия через найти и заменить, а в бэйсик (не знаю даже, как правильно приложение называется, которое открывается при "изменить макрос") даже не совалась.
А вчера вот попыталась записать элементарные два действия так же, и никак не хочет работать. Час точно просидела, пытаясь в изменить подправить, но т.к. знаний 0, то без толку.
В общем, с вашего же сайта:
заменить м2, м3 на чтобы цифры надстрочные были.
Действие первое -
Найти: (м)([2,3])
Заменить: \1&$&$\2
Действие второе -
Найти: (&$&$)([2,3])
Заменить: \2 Формат шрифта: Надстрочный
Получается у меня такой макрос, что с ним не так, подскажите, люди 
.
Sub Макрос5()
'
' Макрос5 Макрос
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(м)([2,3])"
.Replacement.Text = "\1&$&$\2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(&$&$)([2,3])"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub