在word VBA中自动执行宏
我有一个宏,它是在打开word文档时执行的。问题是没有打开文件/文档的空word对象宏在打开文件/文档时工作正常。如果fresh word文档打开了一个文件/文档,则宏不工作并显示错误消息 我的宏:Module1->normal.dot 这份文件 错误消息:在word VBA中自动执行宏,vba,ms-word,Vba,Ms Word,我有一个宏,它是在打开word文档时执行的。问题是没有打开文件/文档的空word对象宏在打开文件/文档时工作正常。如果fresh word文档打开了一个文件/文档,则宏不工作并显示错误消息 我的宏:Module1->normal.dot 这份文件 错误消息: 有人能帮上忙吗。请总结一下文档是否可用,因为应用程序打开没有文档未打开,这就是您出现此错误的原因: If (Application.Documents.Count > 0) Then Dim varData As Variant Di
有人能帮上忙吗。请总结一下文档是否可用,因为应用程序打开没有文档未打开,这就是您出现此错误的原因:
If (Application.Documents.Count > 0) Then
Dim varData As Variant
Dim font_type() As String
Dim text As String
Dim font_name As Variant
varData = Array("?", "[[", "\tag", "$", "()", "|", "\label", "\ce", "insert_eq")
For Each font_name In varData
Selection.HomeKey Unit:=wdStory
Call ClearFindSettings
Selection.Find.text = font_name
If Selection.Find.Execute = True Then
Selection.HomeKey Unit:=wdStory
'Selection.TypeParagraph
Selection.MoveUp
alert_msg = "The '" & font_name & "' Text Present in doc"
alert_msg_grp = alert_msg_grp & vbNewLine & alert_msg
End If
Next
Call Error_alert(alert_msg_grp)
END IF
End Sub
Private Sub Document_Open()
Call AutoExec
End Sub
Private Sub Document_New()
Call AutoExec
End Sub
Runtime Error '91'
Selection.HomeKey Unit:=wdStory
If (Application.Documents.Count > 0) Then
Dim varData As Variant
Dim font_type() As String
Dim text As String
Dim font_name As Variant
varData = Array("?", "[[", "\tag", "$", "()", "|", "\label", "\ce", "insert_eq")
For Each font_name In varData
Selection.HomeKey Unit:=wdStory
Call ClearFindSettings
Selection.Find.text = font_name
If Selection.Find.Execute = True Then
Selection.HomeKey Unit:=wdStory
'Selection.TypeParagraph
Selection.MoveUp
alert_msg = "The '" & font_name & "' Text Present in doc"
alert_msg_grp = alert_msg_grp & vbNewLine & alert_msg
End If
Next
Call Error_alert(alert_msg_grp)
END IF
End Sub