《为word中的“无格式文本”设置快捷键》由会员分享,可在线阅读,更多相关《为word中的“无格式文本”设置快捷键(7页珍藏版)》请在金锄头文库上搜索。
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_Word!Ex
12、celHome 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-* * Crea
13、ted 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 MyBar A
14、s CommandBarControlOn Error Resume NextApplication.CommandBars(Text).Controls(粘贴文本并删除空行 ).DeleteSet MyBar = Application.CommandBars(Text).Controls.Add(Before:=4)With MyBar.Caption = 粘贴文本并删除空行.FaceId = 480.OnAction = PasteAndDelEnd WithEnd Sub-Sub PasteAndDel() Dim StartRange As Long, EndRange As Lon
15、g, 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:=wdCollapseEnd 折叠到选定位置的末端StartRange = .Start 获得一个位置.Range.PasteSpecial DataType:=wdPasteText 光标处选择性粘贴为文本格式获得粘贴后文本的末位置EndRange = StartRange + ActiveDocument.Content.End - OldEndActiveDocumen