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
答:详情>>
答:新一代的计算机已将网络接口集成到主板上,网络功能已嵌入到操作系统之中,智能大楼的兴建已经和计算机网络布线同时、同地、同方案施工详情>>
答:炒股,买卖期货,开网络店铺。呵呵。。详情>>