table removal syntax

gmayor · #1 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 · #2 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