我在MS Word 2016中有了这个宏。它适用于每个Word文档,但我希望它仅适用于一个Word文档,例如'Test.docx'。我可以在代码中添加一些内容吗?
所讨论的宏是这个:
Sub MyMistakesFinal()
'
' MyMistakesFinal Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find.Font
.Bold = True
.Underline = wdUnderlineSingle
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Previous(Unit:=wdParagraph, Count:=1).Select
End Sub
您可以测试活动文档是否为“ Test.docx”。如果没有,请退出子...
Sub MyMistakesFinal()
'
' MyMistakesFinal Macro
'
'
If ActiveDocument.Name <> " Test.docx" Then Exit Sub
'etc
'
'
'
End Sub