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

　　Option Explicit

　　Sub EditPasteSpecial()

　　當(dāng)用戶單擊選擇性粘貼命令時(shí),Word自動(dòng)調(diào)用本過程

　　Dim myDlg As Word.Dialog

　　Dim strDataType As String

　　Set myDlg = Word.Dialogs(wdDialogEditPasteSpecial) 選擇性粘貼對話框

　　If myDlg.Show = -1 Then

　　strDataType = UCase$(myDlg.DataType) 獲取數(shù)據(jù)類型

　　End If

　　Set myDlg = Nothing

　　If strDataType = "TEXT" Then 無格式文本

　　MsgBox "無格式文本方式已被選中!", vbInformation, "Rousoft Office"

　　End If

　　End Sub