Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Word.Table
Dim oCell As Cell
Set oTbl = Selection.Tables(1)
  For Each oCell In oTbl.Range.Cells
    If Len(oCell.Range.Text) = 14 Then
      oCell.Range.Characters(5).InsertBefore "."
      oCell.Range.Characters(10).InsertBefore "."
    End If
  Next
End Sub