Select a range of cells within a table

Article contributed by Bill Coan

Use the Selection.SetRange statement.

The sample provided here selects all cells from row 2 column 2 to row 3 column 3.

If Selection.Information(wdWithInTable) = False Then Exit Sub
Selection.SetRange _
        Start:=Selection.Tables(1).Cell(2, 2).Range.Start, _
        End:=Selection.Tables(1).Cell(3, 3).Range.End

Click to view Terms of Use page

Click to view Disclaimer page