table removal syntax

EAGLE SEU · #1 01-22-2015, 04:25 PM

Hello everyone
I have a lot of tables in word document
and I want to delete one table and leave one .. until the end of document
I found in internet this code - to remove all tables -
but still have a syntax error ...
--------------------
Sub Removetables ()
Dim oTable As Table
Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub
-----------------

Can someone help me to write code to delete one table and leave one ...

Thanks for everyone

Guessed · #2 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 · #3 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 · #4 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

gmayor · #5 01-23-2015, 03:49 AM

Quote:

your code works but it's deletes all tables accept the first one

Indeed it does, which is what I took your request to mean. However if you want every other table removed then using the similar syntax:

Code:

Sub Removetables()
Dim oTable As Table
Dim i As Integer
    i = 1
    For Each oTable In ActiveDocument.Tables
        If i Mod 2 = 1 Then oTable.Delete
        i = i + 1
    Next oTable
End Sub

This will remove table 1, table 3, table 5 etc
If you want to remove table 2, table 4, table 6 etc then change

Code:

If i Mod 2 = 1 Then oTable.Delete

to

Code:

If i Mod 2 = 0 Then oTable.Delete

EAGLE SEU · #6 01-23-2015, 10:57 AM

Quote:

Originally Posted by gmayor

Indeed it does, which is what I took your request to mean. However if you want every other table removed then using the similar syntax:

Aha it's okay , anyway , Thank you for trying to lend a hand

Quote:

Originally Posted by gmayor

Code:

Sub Removetables()
Dim oTable As Table
Dim i As Integer
    i = 1
    For Each oTable In ActiveDocument.Tables
        If i Mod 2 = 1 Then oTable.Delete
        i = i + 1
    Next oTable
End Sub

This will remove table 1, table 3, table 5 etc
If you want to remove table 2, table 4, table 6 etc then change

Quote:

Originally Posted by gmayor

Code:

If i Mod 2 = 1 Then oTable.Delete

to

Code:

If i Mod 2 = 0 Then oTable.Delete

Yes , this one more helpful then delete odd tables , and thank you for explain both of methods which improve my skills

I Appreciating your consideration and cooperation

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