Microsoft Word 2010 Макрос Проблема

215
Lynn Rabin

Вот макрос, который я записал, но он не запустится. Когда я нажимаю на имя и на Run, ничего не появляется. Я знаю, как их записывать и использовать, но не могу запустить записанные макросы для ff: Circle Red (ниже) или любого текстового поля, которое я пытаюсь записать.

 .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
Я отредактировал ваш пост, чтобы макрос был читабельным, но все равно не имеет смысла. Это все в правильном порядке? Потому что если это так, то вам не хватает большого количества кода. Как будто вы удалили часть начала кода, поэтому он не работает. Например, должно быть 2 `with` операторов и` Sub name` вверху. LPChip 8 лет назад 1

1 ответ на вопрос

1
LPChip

Assuming this code is all you have, it is clear you are missing some important parts.

My suggestion is to remove all code and rerecord the macro. It'll be much quicker to do it this way than to learn how to program VBA and fix it.

Похожие вопросы