Microsoft Office Forums - View Single Post - [Solved] Add a return between two square brackets

jeffreybrown · 02-20-2017, 07:27 AM

In the end, this macro does exactly as needed...

Thanks to all...

Code:

Sub CleanUpBrakets()
    Application.ScreenUpdating = False
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .text = "]^w["
        .Replacement.text = "]^l["
        .Execute Replace:=wdReplaceAll
        .text = "^w["
        .Replacement.text = "^l["
        .Execute Replace:=wdReplaceAll
    End With
    Application.ScreenUpdating = True
End Sub