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)

相关推荐

  • word中全选的快捷键介绍及使用方法

    word中全选快捷键 全选快捷键可以提高我们在操作word时工作效率，在操作Word2003中怎么对文档中的文字进行全选呢？下面为大家提供几种全选的方法，绝对好用。Word怎样全选？ 方法一、使用Wo ...

  • word怎样全选

    word怎样全选

    word中如何实现全选命令呢,下面就让小编带你解读一下吧. word2003中,可以用以下方式: 方法一: 利用快捷键实现全选."Ctrl+A"即可. 小贴士: 光标之后全选:Ct ...

  • word怎么对文档中的文字进行全选?

    word文档里面文字怎么能一下子全选?下面小编就为大家详细介绍一下,不会的朋友可以参考本文,来看看吧! 步骤 1.以图中文档为例. 要全选文档中的文字,按键盘的CTRL+A键:即可全选文字. 2.也可 ...

  • 电脑Word文档软件中格式相同的文本如何快速全选

    电脑Word文档软件中格式相同的文本如何快速全选

    有的小伙伴在电脑上使用Word文档软件时,想要快速全选格式相同的文本,但是却不知道怎么进行操作,那么小编就来为大家介绍一下吧.具体如下:1. 第一步,双击或者右击打开需要进行编辑的Word文档.2. ...

  • Word文档全选撤消等快捷键

    Word文档是我们工作和学习中经常使用到的软件,在操作过程中使用快捷键能很大程度上方便和提高我们的效率.今天就一起来学习下Word文档的常用快捷键吧. 常用快捷键 01 Ctrl+A 全选 在需要选择 ...

  • Word文本选定、全选和清除、撤销和恢复

    Word文本选定.全选和清除.撤销和恢复这些操作都有一些快捷键,学会了这些快捷键对文本的编辑既方便又快捷. 操作方法 01 拖动鼠标选定.把光标放在要拖动的第一个字前,按住鼠标左键不放,一直拖动到要选 ...

  • word怎么全选组合

    word是一款非常实用的办公软件,其中我们自做组织或流程图的时候,需要插入各种的图形,但是我们插入的图形并不是一个整体,当我们调整完毕后,需要全选组合,才能将这些零散的分支整合成一个整体,就是一张图片 ...

  • word文档怎么全选

    word文档有时候需要整篇选择,改字体大小或者颜色,那么怎么全部选择呢? 操作方法 01 在文字的开始部分,按住鼠标左键,一直往下拉,直至整篇文档被选中. 这是最常规的方法. 02 鼠标放到文档任意处 ...

  • Word中按Ctrl+A不是全选而是截屏

    在做Word文档编辑时经常会用到Ctrl+A全选,没开QQ的时候没事可是开QQ时经常发现全选没实现,倒是变成了截屏,去QQ设置里查询热键发现是Ctrl+Alt+A没错啊,可为什么还是Ctrl+A 就截 ...