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