大众计算机学习网

专门提供各种电脑教程

VBA全选word当前页代码

Admin | 2012-5-1 8:41:14 | 被阅次数 | 7494

  下面的代码的功能是,全选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环境下使用。