|
|
#2
09-11-2012, 04:30 PM
|
||||
|
||||
In that case, try:
Code:
Sub DelTableRows()
Application.ScreenUpdating = False
Dim Tbl As Table, i As Long
With ActiveDocument
For Each Tbl In .Tables
For i = (Tbl.Rows.Count - 1) To 1 Step -1
Tbl.Rows(i).Delete
Next
Next Tbl
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Macro to delete all empty rows from all tables
|
braddgood | Word VBA | 15 | 10-02-2015 01:54 PM |
|
Macro to conditionally delete rows
|
Steve_D | Excel | 2 | 08-24-2012 09:37 PM |
|
Macro to delete rows with all empty cells
|
ubns | Excel Programming | 2 | 08-14-2012 02:01 AM |
|
merging rows and creating sub-rows
|
gib65 | Excel | 2 | 12-09-2011 02:09 PM |
| delete email message via blackberry and have it delete on my pop3 and my outlook | Iamthestorm | Outlook | 2 | 10-28-2010 12:21 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode