Microsoft Office Forums - View Single Post - Help with a script, Range to select as of row 1 and column 2 to the end of the table

Cendrinne · 02-13-2022, 10:25 PM

Quote:

Originally Posted by gmayor

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

Code:

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