table removal syntax

Guessed · #1 01-22-2015, 08:50 PM

You need to work backwards since the act of deleting a table reduces the number of tables in the document.
Sub RemoveTables2()
Dim i As Integer

For i = ActiveDocument.Tables.Count To 2 Step -2
ActiveDocument.Tables(i).Delete
Next i
End Sub

PS. The code you posted is erroring because you are missing the word 'For' in the front of the 'Each ...' line

gmayor · #2 01-22-2015, 11:32 PM

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.

EAGLE SEU · #3 01-23-2015, 03:11 AM

Quote:

Originally Posted by Guessed

You need to work backwards since the act of deleting a table reduces the number of tables in the document.
Sub RemoveTables2()
Dim i As Integer
For i = ActiveDocument.Tables.Count To 2 Step -2
ActiveDocument.Tables(i).Delete
Next i
End Sub

PS. The code you posted is erroring because you are missing the word 'For' in the front of the 'Each ...' line

Thank you My dear .. this code works well , Also thank you for corrected the syntax error of my code ..

Quote:

Originally Posted by gmayor

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.

Thank you my dear .. your code works but it's deletes all tables accept the first one

Thanks for all once again
May God reward you

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Strange Characters Removal	OceansBlue	Word	2	04-03-2013 10:01 AM
Please help with header and footer removal	pwangdel	Word	3	11-03-2011 06:10 AM
Field removal from template	Phelony	Word	1	10-18-2011 03:28 AM
background graphic removal	taffyevo	PowerPoint	0	08-16-2011 06:36 AM
Office 2007 removal and re-installation of previous version	Buckeyegator	Office	1	03-25-2010 09:15 PM