Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oCell As Cell
Dim oRng As Range
Dim lngCount As Long
  Set oTbl = ActiveDocument.Tables(1)
  For Each oCell In oTbl.Range.Cells
    lngCount = 0
    Set oRng = oCell.Range
    With oRng.Find
      .Text = "."
      .Font.ColorIndex = wdRed
      Do While .Execute
        If Not oRng.InRange(oCell.Range) Then Exit Do
        lngCount = lngCount + 1
        oRng.Collapse wdCollapseEnd
        If lngCount > 1 Then
          oCell.Range.HighlightColorIndex = wdBrightGreen
          Exit Do
        End If
      Loop
    End With
  Next oCell
lbl_Exit:
  Exit Sub
  
End Sub