Makroproblem in Microsoft Word 2010

Question

Hier ist ein Makro, das ich aufgezeichnet habe, das aber nicht ausgeführt wird. Wenn ich auf den Namen und dann auf „Ausführen“ klicke, erscheint nichts. Ich weiß, wie man sie aufzeichnet und verwendet, aber ich kann aufgezeichnete Makros für ff: Circle Red (unten) oder ein beliebiges Textfeld, das ich aufzuzeichnen versuche, nicht ausführen.

       .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

Angenommen, dieser Code ist alles, was Sie haben, dann fehlen Ihnen eindeutig einige wichtige Teile.

Mein Vorschlag ist, den gesamten Code zu entfernen und das Makro neu aufzuzeichnen. Das geht viel schneller, als VBA-Programmierung zu lernen und das Problem zu beheben.