여기에 내가 기록한 매크로가 있지만 실행되지 않습니다. 이름을 클릭하고 실행을 클릭하면 아무 것도 나타나지 않습니다. 기록하고 사용하는 방법을 알고 있지만 ff: Circle Red(아래) 또는 기록하려는 텍스트 상자에 대해 실행하기 위해 기록된 매크로를 얻을 수 없습니다.
.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를 프로그래밍하고 수정하는 방법을 배우는 것보다 이렇게 하는 것이 훨씬 더 빠릅니다.