VBA判断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"

End If

End Sub