Simply make a copy of the entire document, then run the following macro:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, Rng As Range
With ActiveDocument
Set Rng = .Range
For Each Tbl In .Tables
With Rng
.End = Tbl.Range.Start - 1
If .Characters.Count > 0 Then .Text = vbNullString
.Start = Tbl.Range.End
End With
Next
End With
Application.ScreenUpdating = True
End Sub
For installation & usage instructions, see:
http://www.gmayor.com/installing_macro.htm