Microsoft Office Forums - View Single Post - [Solved] One line find execute in this case is possible?

eduzs · 05-18-2020, 10:34 AM

Is that possible to modify those lines to a single line find.execute command?
Thanks

Code:

With Activedocument.StoryRanges(wdMainTextStory).Find
    .Text = "Hi there*Here"
    With .Replacement
        .Text = "^&"
        .Font.Size = 11
    End With
    .Wrap = wdFindContinue
    .Format = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With