Delete all rows but the last.

		Microsoft Office Forums > Microsoft Word > Word VBA
Delete all rows but the last.

FAQ

Thread Tools

Display Modes

09-11-2012, 04:30 PM

macropod

Windows 7 64bit Delete all rows but the last.

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,512

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.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 11:05 PM.