One line find execute in this case is possible?

[eduzs]

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

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

[gmaxey]

No it is not.