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
投稿猜你喜欢
在WPS表格中，默认输入的数字是数值型，而数字中前面的0是不起作用的，所以WPS表格自动去掉前面的0。若需要数字前面带零，可以通过下面的方法- 在wps表格中我们的行高要怎么调整的，这个很多使用excel过来的朋友都不太清楚了，下面小编来为各位介绍wps表格行高设置方法吧，希望文章可
- 对于不懂得代码的人，你给他看无疑就是在折磨他。win10邮件显示出来网页html源码，而不是我们要看的邮件内容。这可如何是好，总不能让每个用
- 格式工厂是一款功能全面的多媒体文件转换工具，在使用的过程中难免会遇到一些问题，当用户遇到格式工厂转换MP4格式失败的情况时该怎么解决？针对这
- win10火炬之光2存档在哪？用win10玩火炬之光2还挺带感的，恢弘的画面，有趣的游戏设定，无不让玩家趋之若鹜。可是有玩家下载后却找不着北
- 一般情况，Pages是可以打开Word文档的，不过，他们之间或多或少的会有一些不兼容，所以在会出现Pages打开Word的时候，乱码、图片显
- 之前苹果为 iPad 设备加入了“画中画”功能，让用户可以一边观看电视节目，一边回复电子邮件或做其他事情。现在在 iOS 14 中，终于也为
- 当大部分用户选择win10系统时，一些小伙伴会问，win10比win7好在哪里？所以今天就让小编给大家对比分析一下win10比较win7所处
- 最近，许多更新了win10系统的合作伙伴发现键盘被锁定，无法打开。怎么了？也许他们不小心按了键盘上的锁键。让我们看看具体的解决方案。win1
- 在用户使用win10系统过程中，可能需要视频办公，但是连接上耳机却没有任何声音。这是怎么回事呢？其实是因为声卡驱动不完善或者没有设置前置面板
- 我们会有对win10误操作的情况，例如对系统文件的误操作或者重装系统过程的误操作，从而造成一些不必要的麻烦。好比鼠标右键打不开显示设置，那这
- 在大家都觉得苹果下一个发布的一定是iOS 14.5正式版的时候，苹果还是给大家推送了 iOS 14.5 beta 8 。iOS 14.5 b
- 虽然苹果已经不再签署iOS 13.5或iOS 13.5.1系统，但CoolStar团队还是对外发布了Odyssey越狱工具的首个公开测试版。
- win10系统是一个优秀的系统，可以让用户根据自己的设置进行个性化调整！各种设置都是用户可以自己设置个性的好帮手。虽然设置非常简单，但许多合
- 我们经常会在电脑上放置很多的文件，有的用户想在查看文件夹的时候能第一时间找到自己常用的一些文件夹内容，因此想要调整磁盘中的文件夹顺序。那么W
- office2010怎么关闭自带的微软拼音输入法？010版以后自带的输入法缺找来一些麻烦，每次启动office，输入法就会自动的切换到微软拼
- 现在普遍用户用的电脑系统是Win10系统，电脑上都安装了Realtek声卡，但是很少人知道Realtek声卡可以调节音效，让声音变得更清晰，
- 裁剪图片的步骤如下：步骤一：打开一个word文档，现在在菜单栏点击“插入”——》“图片”进入如下图所示。 步骤二：
- 雷蛇驱动打不开怎么解决？有部分用户反应自己在打开雷蛇驱动的时候发现打不开，出现错误的情况，遇到了也不用担心，我们可以进入电脑的设备管理器，右
- Win10 21H1是最新的Win10电脑操作系统版本，但是有的用户在使用中遇到了点击开始菜单没反应的问题，不知道怎么解决这个问题，这里小编
