Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim strText As String
Dim lngIndex As Long
Dim oRng As Range
Dim oCol As New Collection
Dim strPosit As String
  strText = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
  For lngIndex = 1 To Len(strText)
    Set oRng = ActiveDocument.Tables(1).Cell(1, 1).Range.Characters(lngIndex)
    On Error Resume Next
    strPosit = CStr(oRng.Information(wdVerticalPositionRelativeToPage))
    oCol.Add strPosit, strPosit
   Next
  MsgBox oCol.Count
lbl_Exit:
  Exit Sub
End Sub