Sub Invited()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "invited"
    .Wrap = wdFindStop
    While .Execute
      oRng.Select
      Selection.HomeKey Unit:=wdLine
      Selection.Characters.First = ChrW(55357) & ChrW(56395)
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub