Доброе утро.
Нужен макрос, который заменил бы 1 на 2 в выделенном фрагменте текста.
Макрорекордер записал:
Но этот код меняет НЕ ТОЛЬКО в выделенном тексте, но и дальше.
Подскажите пожалуйста, как исправить код?
Нужен макрос, который заменил бы 1 на 2 в выделенном фрагменте текста.
Макрорекордер записал:
Код |
---|
Sub Макрос1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "1" .Replacement.Text = "2" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub |
Подскажите пожалуйста, как исправить код?