Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRow As Word.Row
For Each oRow In Selection.Tables(1).Rows
  Do While oRow.Cells(1).Range.Characters.First = Chr(32)
    oRow.Cells(1).Range.Characters.First.Delete
  Loop
   Do While oRow.Cells(2).Range.Characters.First = Chr(32)
    oRow.Cells(2).Range.Characters.First.Delete
  Loop
  If Len(oRow.Range) = 6 Then
    oRow.Delete
  End If
Next
End Sub

Sub Demo()
Dim i As Long, j As Long, Rng1 As Range, Rng2 As Range
With ActiveDocument
  For i = .Tables.Count To 1 Step -1
    With .Tables(i)
      For j = .Rows.Count To 1 Step -1
        With .Rows(j)
          Set Rng1 = .Cells(1).Range
          Rng1.End = Rng1.End - 1
          Set Rng2 = .Cells(2).Range
          Rng2.End = Rng2.End - 1
          If Rng1.Text = "." Then
            If Rng2.Text = "." Then
              .Delete
            End If
          End If
        End With
      Next
    End With
  Next
End With
End Sub