Inserting tables that can later be extracted to a separate doc

[R Nelson]

I need to insert numerous tables into a very large document and maintain some
means of being able to extract the tables (at a later time) to a separate
document.

 

[Doug Robbins - Word MVP]

Use a macro to do the extraction

Dim Source as Document, Target as Document
Dim i as Long
Dim tablerange as Range

Set Source = ActiveDocument 'the document containing the tables

Set Target = Documents.Add

For i = 1 to Source.Tables.Count
Set tablerange = Source.Tables(i).Range
Target.Range.InsertAfter tablerange & vbCr
Next i

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP