手机版

首页 IT科技安全资讯卡饭教程卡饭论坛

卡饭网 > word > 正文

VBA全选word当前页代码

来源：本站整理作者：梦在深巷时间：2013-03-06 19:01:18

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

本周热门

1

如何删除Word中"删不掉"的空白页 2016/10/29
2

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
3

word怎么打印小抄?word小抄排版缩印教程 2017/03/16
4

怎么设置不同页眉?word页眉每页不同设置方法介绍 2013/09/16
5

如何将word改为 utf-8编码? 2016/11/07
6

word表格不能编辑的原因,怎么解决? 2016/07/11
7

word中不用回车怎么换行 2017/04/06
8

word怎么在方框里面填数字 2017/04/10

本月热门

1

如何删除Word中"删不掉"的空白页 2016/10/29
2

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
3

word表格不能编辑的原因,怎么解决? 2016/07/11
4

如何将word改为 utf-8编码? 2016/11/07
5

怎么设置不同页眉?word页眉每页不同设置方法介绍 2013/09/16
6

Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
7

编辑word时无法选中文字怎么办 2017/04/11
8

WORD文档怎么在字母的正上方加上符号 2016/07/30
9

word左键无法选择文字怎么办? 2016/07/29
10

word怎么打印小抄?word小抄排版缩印教程 2017/03/16