Нумерация объектов с автоматической вставкой закладок

Скачал, установил. Абсолютно пустой документ, пытаюсь вставить номер формулы. Нажимаю на кнопку "Нумерация…" и получаю ошибку:

Ошибка в этих строчках:

FrmlFormatNumber = .FormatNumber
FrmlChapterNumber = .ChapterNumber
FrmlSeparator = .Separator

в процедуре NumerationButton_Click(). Переменные не объявлены. Если они нигде не используются, то просто удали. Чтобы проверить ошибки, воспользуйся компиляцией проекта без запуска Debug→Compile Project. Это сразу выявит незакрытые циклы, не объявленные переменные и т.д.
Загрузку списков лучше сделать так:

Private Sub UserForm_Initialize()
  Dim ar(), i As Integer
  ar = Array("", " А", " Б", " В", " Г", " Д", " Е", " Ж", " И", " К", " Л", " М", " Н", " П", " Р", " С", " Т", " У", " Ф", " Ц", " Ч", " Ш", " Щ", " Э")
  For i = 0 To UBound(ar)
    ar(i) = "Формула" & ar(i)
  Next
  FormulaName.List = ar
  FormulaName.Value = FormulaName.List(ActiveDocument.CustomDocumentProperties("Object_ListNumber").Value)
End Sub

В остальном пока не разбирался, но труд проделан огромный. Молодец!

Разбираемся дальше.

1. При вставке нумерации ты отключаешь обновление экрана и включаешь его только при выгрузке формы. Это не правильно, т.к. у меня привело к наслоению изображения формы при её перемещении. Включать обновление нужно в той процедуре, в которой ты его выключил, иначе запутаешься.

2. При нажатии кнопки "Отмена" номер формулы всё-равно проставляется.

3. Номера формул у меня выглядят вот так
   
   , потому что для стиля "Обычный" установлен отступ первой строки. При простановке номера его нужно убирать (ParagraphFormat.FirstLineIndent), но лучше сделать стиль для номера формулы.

4. Две формулы подряд не вставляются, между ними обязательно должен быть пустой абзац. Это довольно просто решить. При вставке номера, прежде чем создавать таблицу, нужно проверить, чтобы в абзаце перед курсором не было таблицы. Если таблица есть, то нужно делать пустой абзац и уже в него вставлять номер. А можно ещё и проверить, что таблица перед абзацем это твоя собственная, и просто продублировать строку вместе с полем нумерации.

Что ты пытаешься сделать здесь?

1. При клике на кнопке ты выгружаешь форму, при этом вызывается процедура Query_Close. Всё, что нужно делать при выгрузке формы, следует писать именно в этой процедуре. После выгрузки формы остальное уже не нужно. Закомментируй End и ScreenUpdating и увидишь, что работать будет точно так же. Или я чего-то не учитываю?

2. Завершать работу оператором End следует только в очень критических случаях, когда ничего другого не остаётся. Если очень хочется, то лучше использовать Exit Sub, но он здесь лишний.

3. Зачем нужна строка If CloseMode = 0 Then End? Если форма закрывается по команде системного меню, то она и так закроется. Если же ты хочешь отменить закрытие формы, то нужно установить параметр Cancel в значение, отличное от нуля.

Private Sub CancelButton_Click()
Unload NumFrml
Application.ScreenUpdating = True
End
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.ScreenUpdating = True
If CloseMode = 0 Then End
End Sub

1. Почему форма прячется, а не закрывается? Обычно, форму прячут, чтобы не мучаться с запоминанием состояния элементов на ней. Ты же состояние запоминаешь, и восстанавливаешь при инициализации формы.

2. Я так понимаю, здесь в цикле ты проверяешь, что текст в поле списка соответствует значению из списка, а не введён пользователем? Если вводить свои метки нельзя, то запрети, установив свойство Style в значение frmStyleDropDown

Private Sub OKButton_Click()
  Dim i As Integer
  For i = 0 To (FormulaName.ListCount - 1)
    If FormulaName.Value = FormulaName.List(i) Then
      Call ChangeOrCreateCustomProperties("Object_ListNumber", i, msoPropertyTypeNumber)
    End If
  Next i
  NumFrml.Hide
End Sub

Я по собственному опыту знаю, что критику выслушивать тяжело. Ты сделал громадную работу, надеюсь, она облегчила тебе жизнь. Так держать.

Тогда я ещё подолью масла в огонь. Все диалоговые окна одинаковые, различаются только наполнением списков и реакцией на кнопку. Само собой напрашивается один диалог. Но это на будущее. Лично мне было бы лень делать три разных формы, которые различаются только наполнением.
По поводу стиля. Скопируй его в документ и все проблемы отпадут. Для таблиц и формул я использую стандартный стиль "Название объекта", только подстроенный под себя.
Я не ахти какой программист, но знаю, что прежде, чем производить какое-то действие, нужно удостовериться, что это действие можно выполнить

При вставке названия таблицы ты проверяешь, что курсор находится в таблице, а при вставке названия рисунка — нет

прошу прощения, неправильно выразился. При вставке названия рисунка нужно проверять, что рисунок выделен:)

А можно ещё и проверить, что таблица перед абзацем это твоя собственная, и просто продублировать строку вместе с полем нумерации. -  А вот этого делать точно не следует.. Поле с нумерацией, конечно, скопируется, но самое главное, для чего все это задумывалось (закладка на нумерации) не будет сделано..

Я так понимаю, здесь в цикле ты проверяешь, что текст в поле списка соответствует значению из списка, а не введён пользователем? Немного не так понимаете - тут я перебираю список до тех пор, пока текст выбранный в поле списка не совпадет с элементом списка. Когда это происходит - номер элемента списка запоминаю в свойство документа, чтобы потом его использовать при следующем вызове окна нумерации и в поле списка вывести элемент именно с запомненным номером списка..

Вроде бы все поправил и оттестировал. Можно пользоваться:)
Оставил одно диалоговое окно, добавив еще одно свойство документа. При нумерации ввел проверку на нахождение таблицы сверху и снизу от абзаца. Перенес во всех трех макросах вызов диалога в начало макросов, для того, чтобы нечего было отменять, если нажата кнопка "Отмена". Вместо скрытия форма теперь выгружается. Отключение и включения обновления экрана вообще убрал.

ps. Внес исправление, указанное в сообщении № 13

У себя я так и сделал.. Никто и вам не мешает эти кнопки перенести в меню "Вставка", или в любое другое, удобное для вас меню..

А почему макросы в шаблоне закрыты для просмотра?

Макросы вы можете посмотреть, если просто откроете этот файл, а не тогда, когда вы уже подключили шаблон как настройку (в данном случае доступ к просмотру макросов действительно отсутствует, что очень правильно!)
посмотрите текст макроса и сами можете уже его модифицировать под себя..

а в чем Вам видится адаптация данного шаблона? Под 2010 у меня все работает, сам только что проверил.. Панель инструментов нормально появляется на ленте, в меню "Надстройки".

Для этого нужно писать отдельные макросы, на которые у меня сейчас, к сожалению, нет времени.

Попробовал использовать Numbering.dot, действительно труд проделан титанический, однако возникают вопросы:
1) не удаётся вставить номер таблицы, выдаётся ошибка, что-то типа "курсор не находится в таблице". Почему так, ведь я хочу вставить название таблицы, а потом вставить таблицу, что позволяет сделать Word, и к чему собственно я привык.
2) действительно не очень хорошая ситуация получается, когда вставляешь номер формулы перед каким то текстом - текст помещается в таблицу, причём несколько абзацев сразу, нельзя просто вставить номер формулы в выбранное место?
3) интересная ситуация также получается, если есть большая таблица, которая занимает несколько страниц и у неё установлено в первой ячейке "повторять как заголовок ...", получается, что созданное название повторяется на следующих страницах вместе с заголовком таблицы, что не по ГОСТ 2.105. Нельзя ли просто вставлять название перед таблицей и делать в свойствах абзаца "Не отрывать от следующего"?
4) нельзя ли как-то автоматически изменять букву, в случае вставки номера с буквой? У меня сложные документы с вложениями и порой бывает, что одно и тоже приложение в одном документе первое (Приложение А), а в другом документе оно уже под номером 4 (Приложение Г).
4) пожелание: напишите кратенькую инструкцию, как использовать Ваш шаблон, а именно что перед чем вставляется, и как работает.
Заранее спасибо.

Здравствуйте, уважаемые форумчане!
Воспользовался макросом от andrkar. Хотелось бы во-первых высказать свою безграничную благодарность за проделанный труд!
Успешно применил данный макрос в нумерации формул.
С таблицами и рисунками возникли некоторые сложности с которыми я бы и хотел с вами поделиться.
Рисунки:
1. Так и не нашел внятного ответа по поводу маркировки самих рисунков ("Рис. 1" или "Рисунок 1"). В связи с этим хотелось бы узнать - как можно отредактировать макрос для того что бы поменять обозначение маркировки рисунков с "Рисунок 1" на "Рис. 1".
2. Выполнял маркировку рисунков в документе с несколькими главами и столкнулся с тем, что невозможно выполнить сквозную маркировку (нумерацию) рисунков во всем документе. Т.е. в 1-й главе рисунки нумеруются нормально, а со 2-й главы начинает нумерацию с 1-ого номера. В связи с этим вопрос - как изменить макрос для того что бы имелась возможность выполнять сквозную нумерацию рисунков по всему документу?

Таблицы:
1. При нумерации таблиц маркировка таблиц из макроса прописывается в 1-ю строку таблицы. Этот вариант маркировки не совсем удачен с моей субъективной точки зрения тем, что становится невозможным использовать функцию таблиц под названием "повторять как заголовок на каждой странице". В связи с этим вопрос: как изменить макрос для того чтобы маркировка таблиц производилась макросом вне таблицы?

Заранее спасибо всем откликнувшимся!

andrkar, так и не выдалась минутка? 

"Спасибо", andrkar за подробнейшие ответы на поставленные мною вопросы!
Ниже приведу свои вопросы и Ваши ответы на них:

Вопросы
1. Как можно отредактировать макрос для того что бы поменять обозначение маркировки рисунков с "Рисунок 1" на "Рис. 1".
2. Как изменить макрос для того что бы имелась возможность выполнять сквозную нумерацию рисунков по всему документу?
Ответ
1) В рисунке можно сделать чтобы номера разделов ставились автоматом)) то есть 1.1
2.1 и так далее.

Вопросы
1. Как изменить макрос для того чтобы маркировка таблиц производилась макросом вне таблицы?
Ответ
2) В таблице ничего менять не буду, так как считаю что все правильно

Без комментариев.

Ничего страшного уважаемый andrkar...
Вы не торопитесь, нам спешить некуда я вам уже между прочи говорил об этом 
И главное не волнуйтесь всё восстановится...
Это навыки профессиональные, а они утрачиаваются в самую последнюю очередь...можете мне поверить я знаю о чём говорю 
Кстати самое место потихоньку тренироваться...

И это...уважаемый andrkar. Что вы лезете сразу с гранатой под танк, дались вам эти нумерованные списки... Сходите вначале постреляйте из пистолета. Вон сколько вопросов нерешённых в соседних отделах. Здесь никто никому ничего не обязан. Тем более объяснять всякие причины.
И в курилку загляните...она просто так называется, а на самом деле люди в темах задавать вопросы стесняются, а там пишут им тоже ответы нужны и вообще...

Ну видите поэтому и могут стесняться люди, это для отвечающих сто раз повторяющийся вопрос, а у них "всё болит ничего не помогает, какой поиск причём тут поиск там совсем всё не про меня..." и боевую задачу уже вчерась решить надо было... Куда их?
Вот я и предлагаю  andrkar  заняться добрыми делами, а этот нумерованный список из-за которого сыр бор виновнику торжества и не надо похоже...Нету его "ни здрасте ни нас***"
стоило копья ломать?

Ага, это я небритый партизан, заблудившийся в лесу...Так-то мне в город надо, но я от ёжика к белочке плутаю, хоть к ручью выйти или пригорку какому...Не на месте же сидеть...

Особенно если прикрываться песенкой старухи Шапокляк из известного мультика

Слушай, мы устроили в не той теме курилку, но я по крайней мере на 1 из вопросов по теме ответил....

Поддерживаю… andrkar вроде на форуме. Пусть хоть присоединится!