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

Question

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