I have added this to the macro and now no need to leave blanks, is it fine? though I checked it is working well.
[vba].MatchWholeWord = True[/vba]


[vba]Sub Genders()
Dim Genders
Dim var
Genders = Array("Man's", "Gentlemen's", "Mr.", "male", _
"man", "he", "his", "him")
With ActiveDocument.Content.find
For var = 0 To UBound(Genders)
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = True
.Replacement.Highlight = True
.Text = Genders(var)
.Execute Replace:=wdReplaceAll
Next
End With
End Sub[/vba]