哎呀，现在每次用word，我都觉得无格式粘贴命令可真好呀。没改的，也改改试试# LES - 同女之舞
w*1
1 楼
一般使用word菜单上面的粘贴命令，都会把原有的格式一起粘贴过去，比如在网上
复制一段文字粘贴到word里面变得很大的文字还有连接的下划线等等原有的格式都一起
过来了。这个时候我们要用word的粘贴“无格式粘贴”功能，但是无格式粘贴功能在重
重菜单下面，每次重复这个动作很麻烦。恩，下面就介绍了一种通过创建无格式粘贴宏
的方法，用它替换菜单命令，以后就可以简单地进行无格式粘贴了。
创建无格式粘贴宏的方法：
在【工具】菜单中点击【宏】【Visual Basic编辑器】命令；
在打开的ＶＢ编辑器的左侧资源窗口中选中【Normal】工程文档；
点击【插入】菜单中【模块】命令，插入一个模块；
双击该模块，在模块中输入下面三行代码：
Sub MyPaste()
Selection.PasteAndFormat (wdFormatPlainText)
End Sub
关闭ＶＢ编辑器；
在【工具】菜单中点击【自定义】命令；
在打开的对话框中点击【键盘】按钮；
在打开的对话框的【类别】栏中选择【宏】；
对话框右侧的【命令】栏选中【MyPaste
复制一段文字粘贴到word里面变得很大的文字还有连接的下划线等等原有的格式都一起
过来了。这个时候我们要用word的粘贴“无格式粘贴”功能，但是无格式粘贴功能在重
重菜单下面，每次重复这个动作很麻烦。恩，下面就介绍了一种通过创建无格式粘贴宏
的方法，用它替换菜单命令，以后就可以简单地进行无格式粘贴了。
创建无格式粘贴宏的方法：
在【工具】菜单中点击【宏】【Visual Basic编辑器】命令；
在打开的ＶＢ编辑器的左侧资源窗口中选中【Normal】工程文档；
点击【插入】菜单中【模块】命令，插入一个模块；
双击该模块，在模块中输入下面三行代码：
Sub MyPaste()
Selection.PasteAndFormat (wdFormatPlainText)
End Sub
关闭ＶＢ编辑器；
在【工具】菜单中点击【自定义】命令；
在打开的对话框中点击【键盘】按钮；
在打开的对话框的【类别】栏中选择【宏】；
对话框右侧的【命令】栏选中【MyPaste