Quote:
|
For i = ActiveDocument.Tables.Count To 2 Step -2
|
Unless you want to retain every other table you need Step -1
This will leave the first table.
You could also modify the original code method to introduce a counter e.g.
Code:
Sub Removetables()
Dim oTable As Table
Dim i As Integer
i = 1
For Each oTable In ActiveDocument.Tables
If i > 1 Then oTable.Delete
i = i + 1
Next oTable
End Sub
Both methods are likely to leave empty paragraphs.