Microsoft Office Forums - View Single Post

macropod · 09-13-2012, 07:25 PM

For example:

Code:

Sub ExtractTableNotes()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = .Tables.Count To 1 Step -1
    With .Tables(i)
      .Split .Rows.Count
      .Delete
    End With
    With .Tables(i)
      .Range.Characters.First.Previous.Delete
      .ConvertToText
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Note that, simply omitting the .ConvertToText method results in the same outcome as deleting all the previous rows, but probably much more quickly where long tables are involved.