Copy only Tables of a Document

Loretti · #1 11-12-2012, 10:32 AM

I have a document with 300+ pages with tables all over. How do I select only its tables to be pasted into a fresh document?

Thanks a lot!

macropod · #2 11-12-2012, 03:35 PM

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

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cannot Copy and Paste Word 2010 Tables	jctech1943	Word	8	07-03-2012 04:16 AM
how to copy all ms word tables into excel	rehan129	Word	0	01-28-2012 10:17 AM
copy a nd paste tables	userman	Word	1	11-25-2011 02:25 PM
Copy table cell formatting across multiple cells / tables	pakistanray	Word Tables	2	10-31-2011 08:07 AM
Copy - Paste between 2 tables	rod147	Excel	1	10-22-2009 08:21 PM