摘要： 代码如下，如果想判断为其它格式的，请自行修改。 Option Explicit
Sub EditPasteSpecial()
'''当用户单击选择性粘贴命令时,Word自动调用本过程
Dim myDlg As Word.Dialog
Dim strDataT...
代码如下，如果想判断为其它格式的，请自行修改。
Option Explicit
Sub EditPasteSpecial()
'''当用户单击选择性粘贴命令时,Word自动调用本过程
Dim myDlg As Word.Dialog
Dim strDataType As String
Set myDlg = Word.Dialogs(wdDialogEditPasteSpecial) '''选择性粘贴对话框
自动给word文档参考文献添加中括号方括号的VBA代码
自动给word文档参考文献添加中括号方括号的VBA代码 下面的这一段宏代码，在Word环境下使用，其功能是，自动给word文档参考文献添加中括号或方括号 'AddMarkRef Macro Dim parag As Paragraph Dim selRge As Range Dim rge As Range Dim nField As Integer Dim nParag As Integer Set selRge = Selection.Range MsgBox
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
Word2010中如何使用"悬停时显示文档工具"提示功
Word2010中如何使用
