Select Next Rows

[curtiscx]

How do you get VBA in Word to select the rows under the cursors' current position in a table? Ideally, select only the rows with text in the first column.

[gmaxey]

You can select the next row with text in column 1 line this:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 7/11/2017
Dim oRow As Row, oThisROw As Row
Dim oTbl As Table
Dim lngIndex As Long
  Set oTbl = Selection.Tables(1)
  Set oThisROw = Selection.Rows(1)
  For lngIndex = oThisROw.Index + 1 To oTbl.Rows.Count
    Set oRow = oTbl.Rows(lngIndex)
    If Len(oRow.Cells(1).Range.Text) > 2 Then
      oRow.Select
      Exit For
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub

Your not going to be able to select non-contiguous rows.

[curtiscx]

This code did not work. I got a "Can't execute code in break mode" at line Set oTbl = Selection.Tables(1). To bring things down to my level, perhaps just knowing how to select the next 2+ rows under the current position of the cursor would work. Thank you for your help thus far.