VBA - selects current table cursor is in

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Fred - 15 Aug 2006 14:37 GMT

Also require macro that will select all but first row of table cursor is
positioned in:

Sub TableExcept1stRow()

ActiveDocument.Tables(1).Select
Selection.SetRange _
Start:=Selection.Rows(2).Range.Start, _
End:=Selection.End

End Sub

Thank you.

Reply to this Message

Helmut Weber - 15 Aug 2006 15:11 GMT

Hi Fred

how about this,
which would include the end of row mark.
With vertically merged cells things would be different.

Sub Test004567()
Dim rngTmp As Range
Set rngTmp = selection.Tables(1).Range
rngTmp.start = rngTmp.Rows(2).Cells(1).Range.start
rngTmp.Select
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

Fred - 15 Aug 2006 21:55 GMT

Does trick - thanks Helmut.

> Hi Fred
>
[quoted text clipped - 8 lines]
> rngTmp.Select
> End Sub

Reply to this Message

Greg Maxey - 15 Aug 2006 15:36 GMT

Try:
Sub Scratchmacro()
Dim oRng As Word.Range
If Selection.Information(wdWithInTable) Then
Set oRng = Selection.Range
With oRng
.Start = Selection.Tables(1).Rows(2).Range.Start
.End = Selection.Tables(1).Rows.Last.Range.End
.Select
End With
Else
MsgBox "The selection is not in a table"
End If
End Sub

> Also require macro that will select all but first row of table cursor is
> positioned in:
[quoted text clipped - 9 lines]
>
> Thank you.

Reply to this Message

Fred - 15 Aug 2006 21:56 GMT

Thanks Greg also does the trick.

> Try:
> Sub Scratchmacro()
[quoted text clipped - 24 lines]
>>
>> Thank you.

Reply to this Message