代码如下，如果想判断为其它格式的，请自行修改。
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"
End If
End Sub