Question

下面的宏成功突出显示了一个表中的特定行范围。但是，我有大约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

MS Word：在多个表中选择特定行

1 个答案: