VBA全选word当前页代码
发布时间：2023-12-13 10:11:06
标签：VBA全选word当前页代码
下面的代码的功能是，全选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环境下使用。
0
投稿猜你喜欢
PPT怎么使用傅里叶级数公式？ppt中想输入公式，该怎么输入傅里叶级数呢？下面我们就来看看ppt输入傅里叶级数的教程，需要的朋友可以参考下p- 不少用户升级了win11系统，但是不知道如何获取system的权限，其实方法很简单，本文就为大家带来了win11获取system的权限教程，
- 电脑已经成为工作和日常生活中必不可少的一个工具，在使用过程中难免会出现一些问题，这时候重装系统是最好的一个选择。今天小编要给大家介绍的就是快
- 很多使用win7用户的朋友不知道如何在mac上创建Win7安装盘，下面小编给大家带来了OS X 10.11上使用Bootcamp创建Win7
- 在工作中，我们常常需要旋转文字，以达到一些特殊的效果，比如把文字旋转60度。在word文档，正常的文字仅能调整其横排或竖排，是不能任意角度旋
- 想必大家都知道，无论是什么浏览器，默认都是会显示收藏栏的，这样用户就可以快速打开收藏栏中收藏的网页，但很多时候有些用户会收藏一些不想被人看到
- 作为一款深受用户喜爱的办公软件，wps软件让用户下载这款办公软件就可以编辑不同类型文件，给用户带来了多样选择性，再加上wps软件中的功能结合
- 近些日子有网友询问笔者主板跳线接法，笔者当然也不吝赐教，为了方便查阅，已经将其整理成一篇帖子，或许对入门玩家的帮助比较大，老鸟和高手请略过。
- 在制作文档目录时，你有没有遇到下图情况：右侧页码不对齐或者左侧文本不对齐，你一般是如何处理的，本期Word小编与大家分享相关的解决办法。1、
- win10中怎么设置Windows Defender自动扫描压缩包文件？win10系统中的Windows Defender奥妙的时候会跳过压
- Win11系统是目前非常火热的电脑操作系统，因为是最新的操作系统，很多用户都安装了，但是最近有安装Win11的用户都遇到了绿屏的问题，这导致
- 1、打开excel，新建一个空表格在a1写上红球，b1写上蓝球。 2、在a2写上 =1+int(rand()*33
- SEARCH函数在另一个文本字符串中查找文本字符串，如果找到则返回其位置，不区分大小写。什么情况下使用SEARCH？SEARCH函数在字符串
- 在BIOS中设置自动开机，你的主板的ACPI高级电源管理设置必须支持这个功能，具体的操作步骤如下，感兴趣的朋友可以参考下1、自动定时开机此功
- 微软新推出的win11更新补丁KB5006746，主要修复了AMD锐龙性能问题，但是有用户发现该更新补丁无法安装，提示0x8007000d错
- 许多小伙伴在使用电脑的时候，经常不小心就把一些软件全部都安装在电脑的C盘中，随着使用时间的增加，电脑C盘很快就满了。那么，在不重装系统的前提
- Win7系统是继winxp、vista系统之后比较成功的一个系统，虽然win7系统刚出来的时候很多用户仍然不肯放弃winxp系统，但随着wi
- 在工作中，经常会使用模板来制作演示文稿，那么，你知道怎样使用wps演示来制作模板呢?下面就让小编告诉大家怎样使用wps演示制作模板。使用wp
- 最近有用户反映，使用爱思助手将电脑上的照片导入到手机的时候出现无法导入的情况，这让用户非常烦恼。那么，爱思助手无法导入照片怎么解决呢？其实，
- 借助Word 2016中的“研究”任务窗格，您的办公桌不必像以前那样拥挤。“研究”任务窗格提供了词典，外语词典，同义词库，语言翻译器和百科全
