用vba写一个从第三个表格开始遍历的代码
时间: 2024-02-24 12:59:27 浏览: 152
Excel表格VBA-获取文件夹内所有文件路径.zip
以下是一个示例代码,演示了如何使用 `For Each` 循环来遍历文档中从第三个表格开始的所有表格:
```
Sub ProcessTables()
Dim t As Table
Dim i As Integer
i = 1
For Each t In ActiveDocument.Tables
If i > 2 Then
' 对第三个及以后的表格进行操作
Debug.Print "Table " & i & ":"
Debug.Print t.Cell(1, 1).Range.Text
End If
i = i + 1
Next t
End Sub
```
在上面的示例中,我们定义了一个名为 `t` 的表格对象,并使用 `For Each` 循环遍历了文档中的所有表格。在循环体中,我们使用一个计数器 `i` 来记录当前表格的位置,如果 `i` 大于 2,那么就对该表格进行操作。在本例中,我们使用 `Debug.Print` 语句输出了表格的位置和第一个单元格的内容。这样,就能够依次处理文档中从第三个表格开始的所有表格,并且可以根据表格的位置来进行不同的操作。
阅读全文