代码如下。如果要判断是其他格式，请自行修改。

选项显式

子编辑粘贴特殊()

当用户单击粘贴特殊命令时，Word会自动调用此过程。

将我的文字设为文字。对话

将字符串类型改为字符串

设置mydlg=word . dialogs(wddialogeditpastespecial)' ' '粘贴特殊对话框

如果我的Dlg。Show=-1然后

StrType=UCASE $ (mydlg。数据类型)“”获取数据类型

如果…就会结束

设置myDlg=无

如果strDataType=' TEXT '则为''无格式文本

MsgBox“已选择无格式文本模式！”，vbInformation，' Rousoft办公室'