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