Microsoft Office Forums - View Single Post - [Solved] Replace paragraph with style and add an em dash

jeffreybrown · 05-08-2021, 04:01 PM

Figured it out with two macro. Since one of these macros uses FNR and the other does not, can they be combined or should they just stay separate?

Code:

Sub Replace_Me()
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Style = ActiveDocument.Styles("Book Title")
        .Text = "^13MESSAGE NOTES[!^13]@^13"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Code:

Sub Macro5()
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "DETAILED NOTES John"
        .Replacement.Text = "MESSAGE NOTES ^+ Luke"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub