Macro to select tables

[ubns]

Hi,



I was trying to get macro for selecting certain tables and then copy them to a new document. I have got the code to select certain tables -but do not know how to copy these tables to new document

Here is the code:

Sub SelectRange()
Dim rngParagraphs As Range
Set rngParagraphs = ActiveDocument.Range( _
Start:=ActiveDocument.Tables(1).Range.Start, _
End:=ActiveDocument.Tables(8).Range.End)
rngParagraphs.Select
End Sub