Microsoft Office Forums - View Single Post

macropod · 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

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.