Macro to select tables

		Microsoft Office Forums > Microsoft Word > Word VBA
Macro to select tables

FAQ

Thread Tools

Display Modes

04-14-2012, 12:36 PM

Stefan Blom Stefan Blom is offline

Windows 7 64bit Macro to select tables

Office 2010 32bit

Moderator

Join Date: Aug 2011

Posts: 4,044

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

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Can't select shapes via macro	TishyMouse	Word VBA	3	04-13-2012 03:26 AM
Word Macro to search all tables	silverspr	Word VBA	3	04-02-2011 11:20 PM
Select Series Color - Macro	judicial85	Excel Programming	0	03-14-2011 02:35 PM
I need a macro that removes background of many tables	masa57	Word VBA	2	05-08-2010 07:34 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 06:12 PM.