Sub DeleteLastWord()
Dim oRng As Range
    'set a range to the paragraph the cursor is in
    Set oRng = Selection.Paragraphs(1).Range
    'omit the paragraph break character
    oRng.End = oRng.End - 1
    'Collapse the range to its end
    oRng.Collapse 0
    'Move backwards to the first space
    oRng.MoveStartUntil Chr(32), wdBackward
    'Optionally include that space
    oRng.Start = oRng.Start - 1
    'Delete the range
    oRng.Delete
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

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