2007右键加入粘贴无文本格式方法.doc

《2007右键加入粘贴无文本格式方法.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、从网页上或PDF中复制文字到Word中时，粘贴后的文字常常是各种各样的字体，有时还有不少乱码和其它符号，这个时候，我们常常使用选择性粘贴，然后选择粘贴为无格式文本，但是这个操作需要好几部才能完成，如果可以将选择性粘贴或者粘贴为无格式文本加入右键菜单，那就非常节省时间了。本文就来介绍一下如何将选择性粘贴或粘贴为无格式文本加入右键菜单或者Word2007的快速访问栏。首先说一下在右键菜单或快速访问栏（word2007）中添加“选择性粘贴”.如果使用的是Word2003，那么在Word工具栏上右击，选择最下方的“自定义(C)…”，在自定义窗

2、口上选择工具栏选项卡，在下面的选项中找到快捷菜单，将其勾选上，这时会出现一个快捷菜单的工具条，在自定义对话框中点击命令选项卡，在类别中找点击编辑，然后在右边的命令中选择“选择性粘贴”，用鼠标左键拖动选择性粘贴到快捷菜单上的文字——文字下，将其放在粘贴下面即可。在Word2007中，快捷菜单是不能像Word2003中那样方便的进行自定义的，可以将选择性粘贴放到快速访问栏上。在Word2007中，点击左上角的Office按钮，点击其下的Word选项，在弹出的word选项对话框中点击左边的自定义，在右侧的常用命令中找到选择性粘贴，将其添加到

3、右侧的自定义快捷访问工具栏中，上下调整一下位置，点击确定即可。虽然将选择性粘贴放到右键菜单了，但是要想进行无格式文本的粘贴还是要在选择性粘贴对话框中选择，如果可以直接在右键菜单或快捷访问栏中添加粘贴为无格式文本就非常省事了，这个也不是不可以办到，需要功过Word提供的宏语言来实现，具体步骤如下：（1）在Word中按Alt+F11打开VBA编辑窗口。（2）在左侧的工程窗口中找到Normal，点击其左边的加号将目录树展开，找到ThisDocument，双击将其打开。（3）在其中粘贴如下代码：‘代码一Sub无格式文本()‘为右键新增一个命令

4、DimMyControlAsCommandBarControlSetMyControl=Application.CommandBars(“text”).Controls.Add(Type:=msoControlButton)WithMyControl.FaceId=1250.OnAction=“无格式粘贴”.Caption=“粘贴为无格式文本”EndWithEndSub‘代码二Sub无格式粘贴()‘无格式粘贴MacroSelection.PasteSpecialLink:=False,DataType:=wdPasteText,Pla

5、cement:=wdInLine,DisplayAsIcon:=FalseEndSub以上两段代码要配合使用才行。将代码保存后，在Word2007的试图选项卡中点击宏—>查看宏，在列表中选择无格式文本，运行宏后，在右键菜单中就添加上一个名为无格式文本的项，如果想取消这个菜单项，可以运行以下的宏：‘代码三Sub重设右键菜单()‘恢复原有设置Application.CommandBars(“text”).ResetEndSub如果想在右键菜单中添加选择性粘贴可以使用以下代码：‘代码四Sub右键菜单添加选择性粘贴()‘直接将选择性粘贴命令加

6、入右键DimNewButtonAsCommandBarButtonSetNewButton=Application.CommandBars(“text”).Controls.Add(msoControlButton,ID:=755)EndSub