Microsoft Office 2016 - Как применить макрос только для выделенного текста?

Question

Я создал Макрос для замены нескольких символов одновременно. Если я применю его ко всему документу, а затем вставлю другой текст в тот же документ, применение того же макроса подойдет для вновь вставленного текста, но испортит оставшуюся часть текста, к которому макрос уже был применен.

Я думал, что проблема будет решена, если макрос можно будет применять только к выделенному тексту, оставляя остальную часть документа нетронутой.

Помогите кому-нибудь?

С уважением, Том

Answer 1

Изменить .Wrap = wdFindContinue to.Wrap = wdFindStop в вашем макросе:

' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ä"
        .Replacement.Text = ChrW(257)
        .Forward = True
        .Wrap = wdFindContinue