Try:
Code:
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