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

为Word中的“编辑>选择性粘贴>无格式文本”设置快捷键

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

完全
在word里建一个宏，记录键盘操作，并且把宏函数的参数改成wdFormatPlainText，如下
Sub Macro1()
'
' Macro1 Macro
' 宏在 2006-9-11 由 venchia 录制
'
Selection.PasteAndFormat (wdFormatPlainText)
End Sub

二、
引:通常从网上复制的文本，当粘贴到Word文档时，会带有边框等诸多格式，这给编辑工作造成一些不便。于是，许多人在将网页内容粘贴到Word文档前，先借助“记事本”做为过渡，即先将这些文本粘贴到“记事本”程序，并在“记事本”中选择并复制，最后再粘贴到Word文档中。
　　上述做法当然不是最为简便的方法，因为Word其实也提供了无格式文本的粘贴功能，使用方法是：在网上复制了内容之后，启动Word，在“编辑”菜单中，单击“选择性粘贴”，然后在“形式”框中，单击“无格式文本”，最后单击“确定”按钮。如果你经常要进行“无格式文本”的粘贴工作，那么使用“选择性粘贴”功能或许仍感觉不太方便，那么我们可以为Word添加“无格式文本”粘贴按钮，具体操作如下：
　　一、录制宏
　　1. 在“工具”菜单上，指向“宏”，然后单击“录制新宏”。
　　2. 在“宏名”框中，键入宏的名称，比如键入“无格式”(图1)；单击“工具栏”按钮，然后在“命令”框中，单击正在录制的宏(图2)，并将其拖动到需指定到的工具栏，比如将其拖到常用工具栏“粘贴”按钮的右侧；右键单击这个刚刚创建的工具栏按钮，在快捷菜单中单击“命名”框，将“无格式”前的内容删除，并按下Enter键，则工具栏中出现一个名为“无格式”的新按钮。

　　3. 单击“关闭”按钮，关闭“自定义”对话框，开始录制宏。
　　4. 在录制宏工具栏，单击“停止录制”按钮。这样，我们就创建了一个名称为“无格式”而指令为空的新宏。

二、编辑宏
　　现在，我们为“无格式”宏增加将剪贴板内容粘贴为无格式文本的指令，方法如下：
　　1. 在“工具”菜单中，指向“宏”，然后单击“宏”。
　　2. 在“宏名”框中，单击要编辑的宏的名称，在此请单击“无格式”，然后单击“编辑”按钮(图3)。

　　3. 在“Sub 无格式()”和“End Sub”之间，增加如下一行指令(图4)：Selection.PasteAndFormat (wdFormatPlainText)

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

三、

利用宏创建选择性粘贴快捷键
我们在网上冲浪，看到有价值的文章，经常是复制、粘贴到Word中保存。以前在Word 97 时代，能粘贴到Word中的只是纯文本的文字；现在使用Word XP / Word 2003，粘贴结果就是有格式的文字，还包括图片、甚至表格。这个新功能当然有它的好处，可是如果我只想要纯文字，不想要格式、图片，怎么办呢？
Word XP 提供的方法有两个：

1. 在粘贴结束后，会自动出现一个浮动的“粘贴选项”按钮，用鼠标按这个按钮，选择“仅保留文本”即可。这个方法的缺点是，粘贴动作比较慢（因为无用的内容比较多）
2. 不是用一般的“粘贴”功能，而在菜单中选“编辑”--“选择性粘贴”--“无格式文本”即可。这个方法执行速度快，但操作麻烦。

现在我用“宏”的方法来实现这个功能，可以又快又简捷地完成任务。方法分两步：建立宏，指定调用的方式。

现在我来建立一个“宏”——就是一个小程序。打开Word XP，选择“Visual Basic编辑器”；或者直接按Alt+F11也可以。

这时会出现一个Visual Basic编辑窗口，现在看看你的窗口中左侧位置是否有某个模块存在？（模块的名字不重要，关键看有没有）。如果已经有了，你可以跳过建立新模块这一步。

如果你的系统在Normal下面不存在任何模块，那么在Normal上，打开右键菜单，选插入模块。

现在模块已经有了，用鼠标点击使之高亮，然后按F7键（直接双击模块也可以）。这样右侧就会出现代码窗口。

将下面的代码粘贴到“代码窗口”中。然后点击窗口右上角的“x”，关闭Visual Basic编辑窗口。这样，一个宏就建立好了。

Sub 无格式粘贴)

'无格式粘贴 Macro
'宏在 2005-9-22 由 SQ 录制

Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub

下面我们来建立指定调用宏的方式：工具按钮、快捷键。

在Word XP 主窗口中，选择工具按钮中的“自定义”。

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

下面我们来指定快捷键：“自定义”对话框依然打开着，请按“键盘”按钮。会又弹出一个“自定义键盘”对话框。“类别”选“宏”，在“宏”中选定EditPasteNoFormat。这时“请按新快捷键”应该是空白的，用鼠标点一下这里，然后按一下你想要的快捷键。这里，我用的是Alt+V，下面立即出现“未指定”，说明这是一个可用的快捷键，和其它功能不发生冲突。按“指定”按钮。现在Alt+V被指定为这个宏的快捷键了。按“关闭”按钮。

关掉“自定义”窗口。注意到此为止我讲的“工具按钮”和“快捷键”，你可以两者都指定，也可以仅仅指定其中一个。

至此，你可以按这个工具按钮，或者使用Alt+V快捷键，来方便地实现“粘贴为纯文本”的功能。

四、

说明：
这是一个自动向模板添加右键菜单的范例。
范例意义：通过低宏打开的文档，自动向模板添加名为"Text"的工具栏的一个命令,此命令的作用在于以无格式文本方式粘贴来自于HTML格式的文本内容,并自动完成空行的删除,并复制.
主要用途:
网友们对于WORD帮助文件中的复制的内容,往往不加甄别直接粘贴于网页的回复贴子中,造成不必要的误会.如果你使用了本命令"粘贴文本并删除空行命令",则可以方便地解决此类问题.
操作方法:
选中并复制需要粘贴的内容,回到WORD页面中,右击,点选"粘贴文本并删除空行命令",则自动会在光标所在处以无格式文本形式粘贴,并自动删除其中的空白段落.如果你需要,无需再次复制,直接回到网页中,粘贴即可.
以下代码供网友参考:
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word@ExcelHome 2005-1-31 11:32:15
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Document_Open()
Application.OrganizerCopy Source:=Me.FullName, _
Destination:=NormalTemplate.FullName, Name:="AddText", _
Object:=wdOrganizerObjectProjectItems
End Sub
'----------------------
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-1-31 11:32:31
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [标准模块-AddText]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By 守柔(ShouRou)@ExcelHome 2005-1-31 6:13:59
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub AutoOpen()
Dim MyBar As CommandBarControl
On Error Resume Next
Application.CommandBars("Text").Controls("粘贴文本并删除空行").Delete
Set MyBar = Application.CommandBars("Text").Controls.Add(Before:=4)
With MyBar
.Caption = "粘贴文本并删除空行"
.FaceId = 480
.OnAction = "PasteAndDel"
End With
End Sub
'----------------------

Sub PasteAndDel()
Dim StartRange As Long, EndRange As Long, MyRange As Range, OldEnd As Long
Dim i As Paragraph
On Error Resume Next
'判断剪贴板是否有内容
If Application.CommandBars.FindControl(ID:=22).Enabled = False Then Exit Sub
Application.ScreenUpdating = False
'原文档结束点位置
OldEnd = ActiveDocument.Content.End
With Selection
.Collapse Direction:=wdCollapseEnd '折叠到选定位置的末端
StartRange = .Start '获得一个位置
.Range.PasteSpecial DataType:=wdPasteText '光标处选择性粘贴为文本格式
'获得粘贴后文本的末位置
EndRange = StartRange + ActiveDocument.Content.End - OldEnd
ActiveDocument.Range(StartRange, EndRange).Select '选定该段文本
For Each i In .Paragraphs '指定段落中循环
If Len(i.Range) = 1 Then i.Range.Delete '如果为空行则删除
Next
.Copy '重新复制,以便调用
End With
Application.ScreenUpdating = True
End Sub
'----------------------
'----------------------
以下为截图图片: