Find and replace in mail merge

Hello,
I have a code which works perfectly to find and replace but, how can I avoid repetition.

  Dim FindObject As Word.Find = oDoc.Content.Find
            With FindObject
                .ClearFormatting()
                .Text = "«" & "Dr" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False '
                .Execute(Replace:=Word.WdReplace.wdReplaceAll)
            End With

            With FindObject
                .ClearFormatting()
                .Text = "«" & "Mo" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False '
                .Execute(Replace:=Word.WdReplace.wdReplaceAll)
            End With
            With FindObject
                .ClearFormatting()
                .Text = "«" & "Ve" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False '
                .Execute(Replace:=Word.WdReplace.wdReplaceAll)
            End With

Select allOpen in new window