选定文档任意页(VBA)

功能简介:本示例是利用 Inputbox/数组/ActiveDocument的属性方法,在不移动插入点的情况下进行的选定,运行速度更快,代码更简洁.

Private Sub Document_Close() On Error Resume Next Application.CommandBars(“Text”).Controls(“AnyPagesSelect”).Delete ‘恢复原有菜单 End Sub ‘———————- Private Sub Document_Open() ‘参见自定义右键菜单 Dim Half As Byte On Error Resume Next Dim NewButton As CommandBarButton Application.CommandBars(“Text”).Controls(“AnyPagesSelect”).Delete ‘预防性删除 Half = Int(Application.CommandBars(“Text”).Controls.Count / 2) ‘中间位置 Set NewButton = Application.CommandBars(“Text”).Controls.Add(Type:=msoControlButton, Before:=Half) With NewButton .Caption = “AnyPagesSelect” ‘命令名称 .FaceId = 100 ‘命令的 FaceId .Visible = True ‘可见 .OnAction = “Sample” ‘指定响应过程名 End With End Sub ‘———————- Sub Sample() Dim P As String, PS() As String, PageHome As Integer, PageEnd As Integer, EndPage As Long On Error Resume Next P = InputBox(prompt:=”请在此输入连续页的首页-尾页,以-为分隔符!”, Title:=”Word连续页选定”) If P = “” Then Exit Sub PS = Split(P, “-“) ‘返回一个以”-“分隔的一维数组 If UBound(PS) > 1 Then Exit Sub ‘如果上标大于 1,则退出(用户连续型输入如 1-2-7”) PageHome = PS(0) ‘首页为数组下标 PageEnd = PS(1) ‘尾页为数组上标 If PageHome > PageEnd Then Exit Sub ‘尾页大于首页则退出 If PageHome < 1 Then Exit Sub ‘首页小于 1 则退出 With ActiveDocument ‘EndPage 为尾页位置,如果大于文档总页数,则为文档最后位置;反之则下一页的起始位置 EndPage = VBA.IIf(PageEnd >= .GoTo(wdGoToPage, wdGoToNext, , PageEnd).Information _ (wdNumberOfPagesInDocument), .Content.End, _ .GoTo(wdGoToPage, wdGoToNext, , PageEnd + 1).Start) ‘选定指定区域 .Range(.GoTo(wdGoToPage, wdGoToNext, , PageHome).Start, EndPage).Select End With End Sub

发光并非太阳的专利，你也可以发光