Help with a script, Range to select as of row 1 and column 2 to the end of the table

Cendrinne · #1 02-13-2022, 12:22 AM

Hello Pros,

I've been trying all day to figure out how to select from all tables the range as of rows(1) and Column(2), till the end of the table, on all tables.

I found a script where I've modified it with my needs How to select a range of the second row to the last row Word VBA - Stack Overflow

Where I've coded this script which works well for 1 table:

Code:

Dim aTbl As Table

Set aTbl = ActiveDocument.Tables(1)
Dim NewTable As Boolean

'if not new Table Select All but first row, Else Select whole table
If NewTable = 0 Then
  With aTbl
    ActiveDocument.Range(.Cell(1, 2).Range.Start, .Rows(.Rows.Count).Range.End).Select
  
  End With
  
 Else
  aTbl.Select
End If

  On Error GoTo 0

******************************
However, when applied too all table, I've modified it to this script:

Code:

Dim xTbl As Table

    For Each xTbl In ActiveDocument.Tables
  Dim NewTable As Boolean

'if not new Table Select All but first column, Else Select whole table
 If NewTable = 0 Then
  With xTbl
    ActiveDocument.Range(.Cell(1, 2).Range.Start, .Rows(.Rows.Count).Range.End).Select
  End With
  
 Else
  xTbl.Select
 End If

 Next xTbl

  On Error GoTo 0

When using this code, it selects the very last table of the document.

To test potential scripts, I've used 5 columns and 5 rows, x5 tables.

Any idea how to fix this issue?

I would be sooooooooo greatful for any insights to help me with my script.

Cendrinne

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to script most table column in word document?	Cendrinne	Word VBA	15	03-22-2021 06:45 PM
Dynamically select a TextBox based on range value	IIOII	Word VBA	8	07-20-2016 11:28 PM
Help with Index Function to Select Range of Cells	bretyuin	Excel	1	02-24-2016 05:11 AM
VBA Word Table - Select More than 1 Column at a time - Apply Formatting	jc491	Word VBA	12	09-24-2015 06:03 AM
Way to select a range using the mouse on a chart?	omahadivision	Excel Programming	6	12-29-2012 09:21 AM