VBA判断Word的选择性粘贴是否选择无格式文本

各位用户为了找寻关于VBA判断Word的选择性粘贴是否选择无格式文本的资料费劲了很多周折。这里教程网为您整理了关于VBA判断Word的选择性粘贴是否选择无格式文本的相关资料，仅供查阅，以下为您介绍关于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