Оглавление в виде таблицы

@Snusmumrik · Регистрация: 05.10.2012

Author24 — интернет-сервис помощи студентам

Необходимо сделать содержание документа в виде таблицы в соответствии с ГОСТ.
Для этой цели пытаюсь написать макрос.
В качестве названий разделов и подразделов используются стили "Заголовок 1", "Заголовок 2" и т.д.
При написании возникла проблема - как узнать количество заголовков всех уровней в документе.
Пытался использовать значение

Visual Basic

1	ActiveDocument.CountNumberedItems(wdNumberParagraph)

Но сюда кроме заголовков попадают и другие элементы, в частности нумерованные/ненумерованные списки, и при выполнении макроса возникает ошибка.
Шаблон с примером в прикрепленном файле.
Каким образом узнать только количество заголовков??? Или возможно ли решить эту задачу другим путем???

@~~Busine2009~~ · 24.08.2010, 21:52

snusmumrik,
Т.е. проблема в том, что нужен первый столбец «Обозначение»? Если бы не этот столбец, то ‎можно было бы обычным способом сделать содержание? Или я чего-то недопонимаю?‎
Вот так определяется количество заголовков всех уровней в документе:‎

Visual Basic

1
2
3

Sub m_3()
MsgBox UBound(ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading))
End Sub

Текст жирным надо делать вот так:‎

Visual Basic

1
2
3

Sub m_1()
Selection.Font.Bold = True
End Sub

	24.08.2010, 21:52

Опции темы