400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

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

2024-10-31

代码如下,如果想判断为其它格式的,请自行修改。

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

  • TAG: