vba如何遍历word中每一个表格的表格单元

Sub InsertTable()

Set myTable = ActiveDocument.Tables(1)


  For i = 1 To myTable.Rows.Count
    For j = 1 To myTable.Rows(i).Cells.Count
      myTable.Rows(i).Cells(j).Select
      Selection.TypeText "AAA"
    Next j
  Next i

 

Word VBA 参考代码知：

1 2 3

Public  Sub  ReadTableData()      MsgBox ActiveDocument.Tables(1).Cell(2, 1).Range.Text End  Sub