vba如何从当前页一页选中多个表格?

4me

在word，有多页，有无好方法从当前页一页选中多个表格，或一页里的全部？ 我没讲明白，是用vba编程。

[此贴子已经被作者于2004-6-7 6:24:40编辑过]

cxffxc

按住Ctrl键，然后依次点击相应的表格即可。

守柔

判断一页中的表格好办，但是选择多个表格，尽管在操作中很好做，按下CTRL即可，但VBA中好象不支持此类方法，所以你只需将你选定表格的目的写出来，直接写代码即可，不必全部选定后再通过代码完成。以下代码供参考：

Sub GetTables() Dim i As Table, n As Integer, p As Integer p = InputBox("请输入页数, "Microsoft Word") For Each i In ActiveDocument.Tables i.Cell(1, 1).Select If Selection.Information(wdActiveEndPageNumber) = p Then 'i.Rows(1).Height = CentimetersToPoints(1) n = n + 1 End If Next MsgBox "第" & p & "共有" & n & "个表格" End Sub