Problema na macro do Microsoft Word 2010

Question

Aqui está uma macro que gravei, mas não será executada. Quando clico no nome e no on Run, nada aparece. Eu sei como gravar e usá-los, mas não consigo fazer as macros gravadas rodarem pelo ff: Circle Red (abaixo) ou qualquer caixa de texto que eu tente gravar.

       .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

Assumindo que este código é tudo o que você tem, fica claro que você está perdendo algumas partes importantes.

Minha sugestão é remover todo o código e regravar a macro. Será muito mais rápido fazer isso do que aprender a programar o VBA e corrigi-lo.