能否在WORD中指定第三页开始选取第三页后面所有的表格

woyaofacai

请问大侠，如果一整篇WORD中有很多表格，我只想要选取第三页后面所有的表格，前面二页面上的表格不选取，这个VBA应该怎么写？

duquancai

选取干什么？怎么提问就半截话！话说  如有表格跨页面的情况  应该怎么算？难道算半边表格！！！

loquat

Sub SelectTableFromPage3()
Application.ScreenUpdating = False
Dim aDoc As Document
Set aDoc = ActiveDocument
Dim aTable As Table
Dim rng As Range
Set rng = aDoc.Range(aDoc.Range(0, 0).GoTo(wdGoToPage, wdGoToAbsolute, 3).Start, aDoc.Content.End - 1)
For Each aTable In rng.Tables
    aTable.Range.Editors.Add wdEditorEveryone
Next aTable
aDoc.SelectAllEditableRanges wdEditorEveryone
aDoc.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

cangbei

Sub SelectAllTables()

Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文档已保护，此时不能选中多个表格！"

Exit Sub

End If

'删除所有可编辑的区域

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

'添加可编辑区域

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

Next

'选中所有可编辑区域

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

'删除所有可编辑的区域

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

jiminyanyan

楼主呢………………