![]() |
#2
|
||||
|
||||
![]()
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:
Code:
Dim rngParagraphs As Range Dim NewDoc As Document Set rngParagraphs = ActiveDocument.Range( _ Start:=ActiveDocument.Tables(1).Range.Start, _ End:=ActiveDocument.Tables(8).Range.End) rngParagraphs.Copy Set NewDoc = Documents.Add NewDoc.Content.Paste
__________________
Stefan Blom Microsoft Word MVP Microsoft 365 apps for business Windows 11 Professional |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
braddgood | Word VBA | 15 | 10-02-2015 01:54 PM |
![]() |
TishyMouse | Word VBA | 3 | 04-13-2012 03:26 AM |
![]() |
silverspr | Word VBA | 3 | 04-02-2011 11:20 PM |
Select Series Color - Macro | judicial85 | Excel Programming | 0 | 03-14-2011 02:35 PM |
![]() |
masa57 | Word VBA | 2 | 05-08-2010 07:34 AM |