Perhaps a different approach. This works for your example:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
Set oRng = oCell.Range
If Len(oCell.Range.Text) > 2 Then
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, -1
Do Until oRng.Characters.First.Previous Like "[A-Za-hj-uwyz.]"
'the Roman numberals could be a problem but few words end in 'i, v or x"
oRng.Select
oRng.MoveStart wdCharacter, -1
Loop
oRng.HighlightColorIndex = wdBrightGreen 'or delete the range
End If
Next
lbl_Exit:
Exit Sub