Microsoft Office Forums - View Single Post

vivka · 02-08-2024, 08:08 AM

Hi, Yacov! It's not difficult:

Code:

Sub MFindReplacePARA()

        With selection.range.Find
            .text = " {1,}([+-]) {1,}"
            .Replacement.text = " \1 "
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
 End Sub

If there's an error, replace ',' with ';' in curly brackets.

You may modify the code to meet your requirements.