Delete all rows but the last.

macropod · #10 09-17-2012, 09:00 PM

Working with merged cells does make it difficult to process tables on a row-by-row basis. Try the following macro, which assumes the desired content is always in the table's last cell:

Code:

Sub ExtractTableNotes()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
With ActiveDocument
  For i = .Tables.Count To 1 Step -1
    Set Rng = .Tables(i).Range.Cells(.Tables(i).Range.Cells.Count).Range
    Rng.End = Rng.End - 1
    Rng.InsertAfter vbCr
    Rng.Copy
    Set Rng = .Tables(i).Range
    Rng.Tables(1).Delete
    Rng.Paste
  Next
End With
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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