Microsoft Office Forums - View Single Post

vivka · 12-22-2023, 04:06 PM

Also, you can try the following:

Code:

Sub LastName_2()
    ActiveDocument.range.Paragraphs(1).range.words.Last.Select
    selection.Previous(unit:=wdWord, count:=2).Select
   MsgBox selection
  End Sub

Note: instead of 'words' you can use 'Characters' in the 2nd line, which selects the unprintable paragraph sign.

Besides, you can try this one-liner:

Code:

Sub LastName_2()
    ActiveDocument.Paragraphs(1).range.words.Last.Previous(unit:=wdWord, count:=2).Select
End Sub