代碼如下，如果想判斷為其它格式的，請自行修改。

　　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