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:

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

Actually, you don't have to select anything. Once you have defined the range, make use of the Copy method, create a new document, and paste:

__________________
Stefan Blom
Microsoft Word MVP

Microsoft 365 apps for business
Windows 11 Professional

Thanks Stefan.

Can you suggest the macro which should do the same task as above however rather than we selecting the tables by (using the code (Tables (1) - Table (8)), the macro should select all the tables till the start of another heading of the document. Once selection is done then macro should copy and paste it to another document.

Thanks.

Hi ubns,

This is the first time youve mentioned headings in this thread.

For some code to process content between headings, see: https://www.msofficeforums.com/vba/1...ific-text.html

You need to note that vba can't select multiple discontiguous ranges. So, if the there is anything between the tables, they have to be either: copied & pasted individually; or copied as a group along with the intervening content, which can then be deleted after pasting.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks I have looked into that, however I dont know how can that code be helpful here?

Hi ubns,

The code shows how one can continue extending a range until a certain heading (based on a heading Style) is reached. How/whether it might be helpful for you depends on what you're trying to achieve. However, since you haven't said anything about: what kinds of headings you're working with; how the starting point might be defined; or what content there might be between the tables you're interested in, no specific advice can be given.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]