Vba MS Word：跨多个表选择特定行

下面的宏成功高亮显示一个表中特定范围的行。但是，我有大约600多个表要编辑。因此，我需要找到一种方法以某种方式修改这个宏，以便它突出显示所有表中相同范围的行。我已经做了一整天的实验，到处都是代码，但都没有用。如有任何帮助/建议，将不胜感激

  Sub cellSel()
    Dim myCells As Range
    With ActiveDocument
      Set myCells = .Range(Start:=.Tables(1).Cell(4, 1).Range.Start, _
        End:=.Tables(1).Cell(15, 12).Range.End)
      myCells.Select
    End With
End Sub

---

使用For…Next循环在文档中从一个表转到另一个表。例如：

Sub cellSel()
  Dim myCells As Range
  Dim tbls as Word.Tables, tbl as Word.Table
  Dim doc as Word.Document

  Set doc = ActiveDocument
  Set tbls = doc.Tables
  For Each tbl in tbls
    Set myCells = doc.Range(Start:= tbl.Cell(4, 1).Range.Start, _
      End:=tbl.Cell(15, 12).Range.End)
    myCells.Select
  Next
End Sub