在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
课程
关于安企神

VBA全选word当前页代码

2024-10-31

公司上网行为管理,就用安企神软件

立即咨询

下面的代码的功能是,全选word文档的当前页,注意,是当前页,即插入条所在的页,而不是全文。

Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range

Dim Currentpage As Integer, Pages As Integer

On Error Resume Next

Currentpage = Selection.Information(wdActiveEndPageNumber)

Pages = Selection.Information(wdNumberOfPagesInDocument)

CurrentPageStart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage).start

If Currentpage = Pages Then

CurrentPageEnd = ActiveDocument.Content.End

Else

CurrentPageEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage + 1).start

End If

Set myRange = ActiveDocument.Range(CurrentPageStart, CurrentPageEnd)

myRange.Select

注意,以上代码在VBA环境下使用。

  • TAG: