Problema de macro do Microsoft Word 2010

Problema de macro do Microsoft Word 2010

Aqui está uma macro que gravei, mas ela não funciona. Quando clico no nome e em Executar, nada aparece. Eu sei como gravá-los e usá-los, mas não consigo fazer com que as macros gravadas sejam executadas no ff: Circle Red (abaixo) ou em qualquer caixa de texto que tento 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

Responder1

Supondo que este código seja tudo que você tem, fica claro que estão faltando algumas partes importantes.

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

informação relacionada