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

[Cendrinne]

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:

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:

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

[gmayor]

You cannot select non-contiguous ranges with VBA. You should process each table separately.

[Cendrinne]

It's like, take these below numbers as cells:

1.......2.......3......4.......5
6.......7.......8......9.......10
11.....12.....13.....14.....15
16.....17.....18.....19.....20

So it would be like selecting as of the whole 2nd column to the whole last column.

Does that change your perspective?

Cendrinne

[Cendrinne]

The part of the script where it mentioned ''New Table'' and Boolean, I don't know why it's there, don't really get it. I've tried to make a script without it, and kept getting error message, on my side anyway.

So if you find a way without it, it's ok too

[Cendrinne]

Oh wait, I think I know how this could be possible. Don't know how to write it though. If it's possible to select all table columns, then it's possible to "De-Select", Column 1.

Or Select all Tables, NOT Column 1.

Think it's doable?

[gmayor]

You still have to process each table separately e.g.

Sub Macro1()
Dim oTable As Table
Dim i As Integer
    For Each oTable In ActiveDocument.Tables
        oTable.Columns(2).Select
        For i = 3 To oTable.Columns.Count
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Next i
        'do something with the selection here
    Next oTable    'then move on to the next table
End Sub

[Cendrinne]

Originally Posted by gmayor

You still have to process each table separately e.g.

Sub Macro1()
Dim oTable As Table
Dim i As Integer
    For Each oTable In ActiveDocument.Tables
        oTable.Columns(2).Select
        For i = 3 To oTable.Columns.Count
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Next i
        'do something with the selection here
    Next oTable    'then move on to the next table
End Sub

OK, I didn't know if it was possible or not.
I'll try your latest script and give you news this week.

It's very busy time lately for me, so please accept my appologies in advance for any tardy response.

Have a great week and Thank you sooooooooo much for guiding me. Much much appreciated

Cendrinne