代码如下，如果想判断为其它格式的，word教程，请自行修改。

Option Explicit

Sub EditPasteSpecial()

'''当用户单击选择性粘贴命令时,Word自动调用本过程

Dim myDlg As Word.Dialog

Dim strDataType As String

Set myDlg = Word.Dialogs(wdDialogEditPasteSpecial) '''选择性粘贴对话框

If myDlg.Show = -1 Then

strDataType = UCase$(myDlg.DataType) '''获取数据类型

End If

Set myDlg = Nothing

If strDataType = "TEXT" Then '''无格式文本

MsgBox "无格式文本方式已被选中!", vbInformation, "Rousoft Office"

上一篇：基本操作：word两端对齐.分散对齐 下一篇：wordexcel教程自学：word以安全模式打开 解决word打开提示安全模式

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。