VBA Determines whether Word's selective pasting selects unformatted text

The code is as follows, if you want to judge the other format, please modify it yourself.

Option Explicit

Sub editpastespecial ()

"When the user clicks the paste-selective command, Word automatically calls this procedure

Dim Mydlg as Word.dialog

Dim Strdatatype as String

Set Mydlg = word.dialogs (wddialogeditpastespecial) "Paste Selective dialog box"

If mydlg.show =-1 Then

Strdatatype = ucase$ (mydlg.datatype) ' Get data type

End If

Set Mydlg = Nothing

If Strdatatype = "text" Then ' unformatted text

MsgBox "Unformatted text has been selected!", vbinformation, "Rousoft Office"

End If

End Sub