Microsoft Office Forums - View Single Post - [Solved] How to loop once through document

gmaxey · 04-12-2020, 06:06 AM

You could also use a range variable:

Code:

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