有没有只在当前页全选的快捷键？

独坐莫凭栏

不知道有没有，但是如果有的话，那真是太方便了！

不知道大家有什么感受，反正我是老用到！先谢了！

cxffxc

好象没有

守柔

以下是引用独坐莫凭栏在2004-10-31 15:49:00的发言：

不知道有没有，但是如果有的话，那真是太方便了！

不知道大家有什么感受，反正我是老用到！先谢了！

如果对于WROD中常用操作，但WORD自身又没有该指定功能的命令，则我们可以通过宏和指定宏、指定快捷键的方式进行。

通过本贴相信你将能感受到WROD的宏功能的巨大作用。

1. 自己制造选定当前页的快捷键与命令按钮：请将WORD的工具/宏/安全性设为低，退出并重启WORD。

2. 然后再打开本文档，试验一下：

3. 随便将光标定位在页面中的任意地方，按下“ALT+SHIFT+P”，或者点击“选定当前页”命令，看看效果如何？

bul8EvRr.rar (7.49 KB, 下载次数: 97)

2004-11-1 06:00 上传

点击文件名下载附件
有没有只在当前页全选的快捷键？

如果你觉得很实用，请再次交流我将教你如何应用于每个WORD文档中附件中所传的例子只能应用于附件而对于其它文档不起作用。

以下代码供感兴趣的网友参考：

Sub SelectCurrentPage() 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 End Sub

独坐莫凭栏

谢谢版主的附件，真的很神奇！请版主告诉我，怎么才能使这个附件应用于每个文档呢？再次谢谢！

守柔

随便录个宏名字不要改如MACRO1，（什么也不要动），在点键盘，出现一个自定义快捷键的对话框输入你想要的快捷键如上述ALT+SHIFT+P，指定后关闭该对话框。关闭宏录制器。然后，ALT+F8，选中该宏，点编辑，出来一段含有sub 与END SUB 的一段过程将其中的带' 前缀的说明性文字全部删除然后将上述的一段代码复制于其中不要将sub 和END SUB 二段复制。

关闭该VBE代码编辑器窗口回到文档中来你再试一下ALT+SHIFT+P

OK?

独坐莫凭栏

成功了！谢谢版主！真是好感激你！

gagag123

试试看有用不？

yifan1701

？？？？？？？？？？？？？？？？？