Aquí hay una macro que grabé, pero no se ejecuta. Cuando hago clic en el nombre y en Ejecutar, no aparece nada. Sé cómo grabarlos y usarlos, pero no puedo ejecutar macros grabadas para ff: Círculo rojo (abajo) o cualquier cuadro de texto que intente grabar.
.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
Respuesta1
Suponiendo que este código es todo lo que tiene, está claro que le faltan algunas partes importantes.
Mi sugerencia es eliminar todo el código y volver a grabar la macro. Será mucho más rápido hacerlo de esta manera que aprender a programar VBA y solucionarlo.