为Word中的“无格式文本”设置快捷键.doc

1、为 Word 中的“编辑选择性粘贴无格式文本”设置快捷键一、初级工具菜单选“自定义” ，然后点“键盘”按钮，弹出“自定义键盘”对话框，在“类别”中点选“编辑” ，右边“命令”中点选“EditPasteSpecial” ，然后按一下你想要给它设置的快捷键，我按的是 Ctrl+Shift+V，然后点一下 “指定 ”按钮，就会记录下来，确定并关闭所有对话框后，你试一下，会发现 EditPasteSpecial 命令，相当于打开编辑 选择性粘贴 菜单，但是自定义快捷键好像最多只能定义到菜单的二级命令，所以无格式文本还得你自己点一下。完全在 word 里建一个宏，记录键盘操作，并且把宏函数的参数改成 w

2、dFormatPlainText，如下 Sub Macro1() Macro1 Macro 宏在 2006-9-11 由 venchia 录制Selection.PasteAndFormat (wdFormatPlainText)End Sub二、引:通常从网上复制的文本，当粘贴到 Word 文档时，会带有边框等诸多格式，这给编辑工作造成一些不便。于是，许多人在将网页内容粘贴到 Word 文档前，先借助“记事本”做为过渡，即先将这些文本粘贴到“记事本”程序，并在“记事本”中选择并复制，最后再粘贴到 Word 文档中。 上述做法当然不是最为简便的方法，因为 Word 其实也提供了无格式文本的粘贴

3、功能，使用方法是：在网上复制了内容之后，启动 Word，在“编辑”菜单中，单击“选择性粘贴”，然后在“形式”框中，单击“无格式文本”，最后单击“确定”按钮。如果你经常要进行“无格式文本”的粘贴工作，那么使用“选择性粘贴”功能或许仍感觉不太方便，那么我们可以为 Word 添加“无格式文本”粘贴按钮，具体操作如下：一、录制宏1. 在“工具”菜单上，指向“宏”，然后单击“录制新宏”。2. 在“宏名”框中，键入宏的名称，比如键入“无格式”(图 1)；单击“工具栏”按钮，然后在“命令”框中，单击正在录制的宏(图 2)，并将其拖动到需指定到的工具栏，比如将其拖到常用工具栏“粘贴”按钮的右侧；右键单击这个刚

4、刚创建的工具栏按钮，在快捷菜单中单击“命名”框，将“无格式”前的内容删除，并按下 Enter 键，则工具栏中出现一个名为“无格式”的新按钮。3. 单击“关闭”按钮，关闭“自定义”对话框，开始录制宏。4. 在录制宏工具栏，单击“停止录制”按钮。这样，我们就创建了一个名称为“无格式”而指令为空的新宏。二、编辑宏现在，我们为“无格式”宏增加将剪贴板内容粘贴为无格式文本的指令，方法如下：1. 在“工具”菜单中，指向“宏”，然后单击“宏”。2. 在“宏名”框中，单击要编辑的宏的名称，在此请单击“无格式”，然后单击“编辑”按钮(图 3)。3. 在“Sub 无格式()”和“End Sub”之间，增加如下一行

5、指令(图 4)：Selection.PasteAndFormat (wdFormatPlainText)4. 单击工具栏中的“保存 Normal”按钮，然后在“文件”菜单中单击“关闭并返回到 Microsoft Word”命令。之后，当要将剪贴板中的内容粘贴为 Word 文档中的无格式文本时，只要单击常用工具栏中的“无格式”按钮即可。或许，一段时间之后，你又不需要这个“无格式”按钮了，那么可以按住 Alt 键，然后将“无格式”按钮拖离工具栏，当鼠标指针旁出现“”时，松开左键即可。如果要删除“无格式”宏，请在“工具”菜单上指向“宏”子菜单，再单击“宏”，然后在“宏名”框中单击要删除的宏的名称，再

6、单击“删除”按钮。三、利用宏创建选择性粘贴快捷键我们在网上冲浪，看到有价值的文章，经常是复制、粘贴到 Word 中保存。以前在Word 97 时代，能粘贴到 Word 中的只是纯文本的文字；现在使用 Word XP / Word 2003，粘贴结果就是有格式的文字，还包括图片、甚至表格。这个新功能当然有它的好处，可是如果我只想要纯文字，不想要格式、图片，怎么办呢？ Word XP 提供的方法有两个：1. 在粘贴结束后，会自动出现一个浮动的“粘贴选项”按钮，用鼠标按这个按钮，选择“仅保留文本”即可。这个方法的缺点是，粘贴动作比较慢（因为无用的内容比较多）2. 不是用一般的 “粘贴”功能，而在菜单

7、中选“编辑”-“选择性粘贴”- “无格式文本”即可。这个方法执行速度快，但操作麻烦。现在我用“宏”的方法来实现这个功能，可以又快又简捷地完成任务。方法分两步：建立宏，指定调用的方式。现在我来建立一个“宏”就是一个小程序。打开 Word XP，选择“Visual Basic 编辑器 ”；或者直接按 Alt+F11 也可以。这时会出现一个 Visual Basic 编辑窗口，现在看看你的窗口中左侧位置是否有某个模块存在？（模块的名字不重要，关键看有没有） 。如果已经有了，你可以跳过建立新模块这一步。如果你的系统在 Normal 下面不存在任何模块，那么在 Normal 上，打开右键菜单，选插入模块

8、。现在模块已经有了，用鼠标点击使之高亮，然后按 F7 键（直接双击模块也可以） 。这样右侧就会出现代码窗口。将下面的代码粘贴到“代码窗口”中。然后点击窗口右上角的“x” ，关闭 Visual Basic 编辑窗口。这样，一个宏就建立好了。Sub 无格式粘贴()无格式粘贴 Macro宏在 2005-9-22 由 SQ 录制Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _wdInLine, DisplayAsIcon:=FalseEnd Sub下面我们来建立指定调用宏的方式：工具按钮、快捷键。在 Wor

9、d XP 主窗口中，选择工具按钮中的 “自定义” 。在弹出的对话框中，选“命令”选项卡， “类别”选“宏” ，右侧会出现我们刚建立的宏。用鼠标将这个宏，拖曳到工具栏的适当位置，松开鼠标键，这时，工具栏上会出现一个很宽的工具按钮。请用右键单击此按钮，在弹出菜单中选“默认样式” ，按钮变了样。这时请用任何一个图像处理软件打开附件，将图片复制到剪贴板上。现在切换回 Word XP ，右键单击刚才的工具按钮，选“粘贴按钮图像” ，这样工具按钮就制作完成了。下面我们来指定快捷键：“自定义”对话框依然打开着，请按“键盘”按钮。会又弹出一个“自定义键盘”对话框。 “类别”选“宏” ，在“宏”中选定EditP

10、asteNoFormat。这时“请按新快捷键”应该是空白的，用鼠标点一下这里，然后按一下你想要的快捷键。这里，我用的是 Alt+V，下面立即出现“未指定” ，说明这是一个可用的快捷键，和其它功能不发生冲突。按“指定”按钮。现在 Alt+V 被指定为这个宏的快捷键了。按“关闭”按钮。关掉“自定义”窗口。注意到此为止我讲的“工具按钮”和“快捷键” ，你可以两者都指定，也可以仅仅指定其中一个。至此，你可以按这个工具按钮，或者使用 Alt+V 快捷键，来方便地实现“粘贴为纯文本”的功能。四、说明：这是一个自动向模板添加右键菜单的范例。范例意义：通过低宏打开的文档，自动向模板添加名为“Text“的工具栏

11、的一个命令,此命令的作用在于以无格式文本方式粘贴来自于 HTML 格式的文本内容,并自动完成空行的删除,并复制.主要用途:网友们对于 WORD 帮助文件中的复制的内容,往往不加甄别直接粘贴于网页的回复贴子中,造成不必要的误会.如果你使用了本命令 “粘贴文本并删除空行命令 “,则可以方便地解决此类问题.操作方法:选中并复制需要粘贴的内容,回到 WORD 页面中, 右击,点选 “粘贴文本并删除空行命令“,则自动会在光标所在处以无格式文本形式粘贴,并自动删除其中的空白段落. 如果你需要,无需再次复制,直接回到网页中,粘贴即可.以下代码供网友参考:* * Created By I Love You_W

12、ord!ExcelHome 2005-1-31 11:32:15仅测试于 System: Windows NT Word: 10.0 Language: 2052The Code CopyIn ThisDocument-ThisDocument* Private Sub Document_Open()Application.OrganizerCopy Source:=Me.FullName, _Destination:=NormalTemplate.FullName, Name:=“AddText“, _Object:=wdOrganizerObjectProjectItemsEnd Sub-

13、* * Created By I Love You_Word!ExcelHome 2005-1-31 11:32:31仅测试于 System: Windows NT Word: 10.0 Language: 2052The Code CopyIn 标准模块-AddText* * * Created By 守柔(ShouRou)ExcelHome 2005-1-31 6:13:59仅测试于 System: Windows NT Word: 10.0 Language: 2052The Code CopyIn ThisDocument-ThisDocument* Sub AutoOpen()Dim

14、 MyBar As CommandBarControlOn Error Resume NextApplication.CommandBars(“Text“).Controls(“粘贴文本并删除空行 “).DeleteSet MyBar = Application.CommandBars(“Text“).Controls.Add(Before:=4)With MyBar.Caption = “粘贴文本并删除空行“.FaceId = 480.OnAction = “PasteAndDel“End WithEnd Sub-Sub PasteAndDel()Dim StartRange As Long

15、, EndRange As Long, MyRange As Range, OldEnd As LongDim i As ParagraphOn Error Resume Next判断剪贴板是否有内容If Application.CommandBars.FindControl(ID:=22).Enabled = False Then Exit SubApplication.ScreenUpdating = False原文档结束点位置OldEnd = ActiveDocument.Content.EndWith Selection.Collapse Direction:=wdCollapseEn

16、d 折叠到选定位置的末端StartRange = .Start 获得一个位置.Range.PasteSpecial DataType:=wdPasteText 光标处选择性粘贴为文本格式获得粘贴后文本的末位置EndRange = StartRange + ActiveDocument.Content.End - OldEndActiveDocument.Range(StartRange, EndRange).Select 选定该段文本For Each i In .Paragraphs 指定段落中循环If Len(i.Range) = 1 Then i.Range.Delete 如果为空行则删除Next.Copy 重新复制 ,以便调用End WithApplication.ScreenUpdating = TrueEnd Sub-以下为截图图片: