A quick way to select several cells in a table

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jay - 02 Sep 2005 14:02 GMT

Hi,

I know that I can select one cell in a column by using something
like...
activedocument.Tables(1).Columns(2).Cells(2).Select
...but is there a way to select several cells in a column, something
like...
activedocument.Tables(1).Columns(2).Cells(2:5).Select
...while is invalid syntax ofcourse, but hopefully it gets my point
across.

Thanks in anticipation...

Jay

Reply to this Message

Greg - 02 Sep 2005 16:53 GMT

Jay,

Here is one way:

Sub ScratchMacro()
Dim oRng As Range

With ActiveDocument.Tables(1)
Set oRng = .Cell(2, 1).Range
oRng.End = .Cell(5, 1).Range.End
End With
oRng.Select
End Sub

Reply to this Message

Helmut Weber - 07 Sep 2005 14:37 GMT

Hi Greg, hi Jay,

beware of possible complications,
with ranges in tables ;-)

For a table with 5 columns and 10 rows:

Sub ScratchMacro2()
Dim oRng As Range
With ActiveDocument.Tables(1)
Set oRng = .Cell(2, 1).Range
oRng.End = .Cell(5, 1).Range.End
End With
oRng.Select
MsgBox Selection.Cells.Count ' 4
MsgBox Selection.Range.Cells.Count ' 16
MsgBox oRng.Cells.Count ' 16
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Greg - 07 Sep 2005 17:01 GMT

Helmut,

Yes, interesting. Thanks.

Reply to this Message

Jay - 08 Sep 2005 11:36 GMT

Thanks Greg + Helmut.

Reply to this Message