Word macro to extract tables from a WORD document

[Generic Usenet Account]

Hi,

Can someone out there kindly provide a word macro that extracts all
the tables in a WORD document into a separate document, with a blank
like separating the tables?

Thanks in advance!
Choi

 

[Jay Freedman]

Hi,

Can someone out there kindly provide a word macro that extracts all
the tables in a WORD document into a separate document, with a blank
like separating the tables?

Thanks in advance!
Choi

Sub ExtractTables()
Dim src As Document
Dim dst As Document
Dim tbl As Table
Dim rg As Range

Set src = ActiveDocument
Set dst = Documents.Add

For Each tbl In src.Tables
Set rg = dst.Range
rg.Collapse wdCollapseEnd
rg.FormattedText = tbl.Range.FormattedText
rg.Collapse wdCollapseEnd
rg.Text = vbCr
Next
End Sub