Microsoft Word 2010-Makroproblem

313
Lynn Rabin

Hier ist ein Makro, das ich aufgenommen habe, aber es läuft nicht. Wenn ich auf den Namen und auf Ausführen klicke, wird nichts angezeigt. Ich weiß, wie man sie aufnimmt und verwendet, aber ich kann keine aufgezeichneten Makros für das ff: Circle Red (unten) oder ein Textfeld, das ich aufzuzeichnen versuche, 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
1
Ich habe Ihren Beitrag so bearbeitet, dass das Makro lesbar ist, aber es macht trotzdem keinen Sinn. Ist das alles in der richtigen Reihenfolge? Wenn dies der Fall ist, fehlt Ihnen viel Code. Es ist so, als ob Sie den Anfang des Codes gelöscht haben, weshalb er nicht funktioniert. Beispielsweise sollten 2 "with" -Anweisungen definiert sein und oben ein "Sub name". LPChip vor 8 Jahren 1

1 Antwort auf die Frage

1
LPChip

Angenommen, dieser Code ist alles, was Sie haben, es ist klar, dass Sie einige wichtige Teile vermissen.

Mein Vorschlag ist, den gesamten Code zu entfernen und das Makro erneut aufzuzeichnen. Es ist viel schneller, dies auf diese Weise zu tun, als zu lernen, wie man VBA programmiert und repariert.

Verwandte Probleme