这是我录制的宏,但它无法运行。当我单击名称并单击“运行”时,什么都没有出现。我知道如何录制和使用它们,但我无法让录制的宏运行 ff:圆圈红色(下方)或我尝试录制的任何文本框。
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdColorRed
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = ""
End With
.LinkedStyle = ""
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
wdWord10ListBehavior
End Sub
Sub CircleRed()
'
' CircleRed Macro
'
'
End Sub
答案1
假设您所拥有的只是这段代码,那么显然您缺少了一些重要部分。
我的建议是删除所有代码并重新录制宏。这样做比学习如何编写 VBA 并修复它要快得多。