MS Word：複数のテーブル間で特定の行を選択する

Question

以下のマクロは1つのテーブルから特定の範囲の行を正常に強調表示します。しかし、私は約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 

Answer 1

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