Microsoft Office Forums - View Single Post - Find last word in paragraph and delete it

gmaxey · 05-19-2015, 04:18 AM

Here is another approach:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Do
    Selection.Paragraphs(1).Range.Characters.Last.Previous.Delete
  Loop Until Selection.Paragraphs(1).Range.Characters.Last.Previous _
       Like "[" & Chr(32) & "," & Chr(160) & "," & Chr(9) & "]"
       'Space, non-breaking space or tab.
lbl_Exit:
  Exit Sub
End Sub