Microsoft Word 2010 Макрос Проблема

Question

Вот макрос, который я записал, но он не запустится. Когда я нажимаю на имя и на Run, ничего не появляется. Я знаю, как их записывать и использовать, но не могу запустить записанные макросы для 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

Answer 1

Предполагая, что этот код - все, что у вас есть, ясно, что вам не хватает некоторых важных частей.

Я предлагаю удалить весь код и перезаписать макрос. Это будет гораздо быстрее, чем научиться программировать и исправлять VBA.