UC知道关于word中的VBA表格处理的问题！~
来源：百度知道 编辑：UC知道 时间：2024/05/14 02:26:22
我现在有一个很多也的word，每过页中有一个表格，没有别的了，表格的格式都一样，怎么按照次序读取每个表格中的值？
我会把他们一次存放的数据库中。
我就知道到具体的某一个位置是：
Dim zhi as string
Set oDoc = ActiveDocument
zhi = oDoc.Tables(1).Cell(1, 1).Range.Text
怎么处理所有的页面？
怎么获取word文档中的表格数呢？
我会把他们一次存放的数据库中。
我就知道到具体的某一个位置是：
Dim zhi as string
Set oDoc = ActiveDocument
zhi = oDoc.Tables(1).Cell(1, 1).Range.Text
怎么处理所有的页面？
怎么获取word文档中的表格数呢？
应该For Each ... In Documents(...).Tables
Next
来循环每一个表格才是正道
如下：
Sub test()
Dim zhi As String, oDoc As Document, T As Table
Set oDoc = ActiveDocument
i = 1
'zhi = oDoc.Tables(1).Cell(1, 1).Range.Text
For Each T In oDoc.Tables
i = i + 1
zhi = T.Cell(1, 1).Range.Text
'其他语句...
Next
End Sub
用如下方法获取word的页数，
Dim pages As Integer
pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages).Value
然后用循环语句呗，既然每页就一个表格，那么页数就等同于表格的index了，就可以用同一个循环变量i关联。Tables(i)