Question

我在MS word中有一个3 X 3（比如tableA）表。第（2,2）个细胞是分裂细胞（分成2X2表）。如何循环遍历表A中的所有单元格。

Dim strCellText As String
Dim uResp As String
Dim Row As Integer
Dim Col As Integer

Dim itable As Table


For Each itable In ThisDocument.Tables

    uResp = ""

    For Row = 1 To itable.Rows.Count

        For Col = 1 To itable.Columns.Count

            strCellText = itable.Cell(Row, Col).Range.Text
            uResp = uResp & Trim(strCellText)                

        Next

    Next

    MsgBox uResp
Next

此程序出现编译错误：

Run time error 5914
The requested member of the collection does not exist

如何迭代具有拆分单元格的表格的单元格。

Answer 1

您应该假设每行都有最大可能的列数。在你的情况下，那将是四个。为了迭代每个单元格，我建议在第一个循环开始之前设置On Error Resume Next。然后在你的内部循环中，尝试以下代码：

strCellText = itable.cell(Row, Col).Range.Text

If Err.Number = 0 Then
    uResp = uResp & Trim(strCellText)
    Debug.Print Row, Col, strCellText
Else
    Err.Clear
End If

Answer 2

当我尝试从（有时是格式错误的）表中提取数据时，我遇到了这种情况。这就是我处理它的方式：

检查列数

For each row in table.rows
  if row.cells.count < expectedRows
    'You know you are lacking rows
  else
    'Normal processing
  end if
Next

或者，如果你想要所有数据，请浏览每个单元格

For each row in table.rows
  For each cell in row.cells
    'Process individual cells
  Next
Next

如果单元格是垂直合并的，那么这些都不起作用。

Answer 3

如果您要遍历MS Word文档所有表中的所有单元格，即使这些单元格已合并，我也会得到想要的结果。试试这个：

Sub CheckingInTheCell
Dim C as Cell
Dim tableCount, Ctr

tableCount = ActiveDocuments.tables.count

for Ctr = 1 to tableCount
   For each C in ActiveDocument.Tables(Ctr).Range.cells
       .....your validations or whatever you would like to do for the cell content
   next C
next Ctr

End Sub

如何循环遍历具有拆分单元的字表中的所有单元格

3 个答案: