#1
|
|||
|
|||
Copy only Tables of a Document
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! |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
copying multiple tables |
Thread Tools | |
Display Modes | |
|
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 |