VBA全选单词当前页代码

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

调暗当前页面开始尽可能长，当前页面结束尽可能长，我的范围尽可能宽

将当前页面设为整数，将页面设为整数

出错时继续下一步

当前页面=选择。信息(wdActiveEndPageNumber)

页面=选择。信息(wdNumberOfPagesInDocument)

当前开始=选择GoTo(what:=wdGoToPage，其中：=wdGoToNext，名称：=当前页面).开始

如果当前页面=页面，则

CurrentPageEnd=ActiveDocument .内容。结束

其他

当前页面结束=选择GoTo(what:=wdGoToPage，其中：=wdGoToNext，名称：=当前页面1).开始

如果…就会结束

设置myRange=ActiveDocument .范围（当前页面开始，当前页面结束)

我的天使。挑选

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