Макрос вставки оглавления

darklumen · 23 дек 2009, 18:15

Господа, всех с Наступающим НГ!
Нужна помощь.
Необходимо написать макрос, который вставляет на первой страницы оглавление текста, при условии чт если оглаление уже присутсвует, тогда макрос просто его полностью обновляет.
Очень очень надо, в макросах я новичек!
Заранее спасибо вооооооот таоке! -))))

Busine2009 · 23 дек 2009, 20:11

darklumen,
для начала сделай следующее:
Сервис - Макросы - Запись.
Вставка - Ссылка - Оглавление.
Остановить запись Макросов.
Входишь в VBA и любуешься кодом.

darklumen · 23 дек 2009, 20:17

Busine2009 писал(а):darklumen,
для начала сделай следующее:
Сервис - Макросы - Запись.
Вставка - Ссылка - Оглавление.
Остановить запись Макросов.
Входишь в VBA и любуешься кодом.

хихи! до этого я допедрил. а вот как обработать событие, если оглавление уже существует?

Busine2009 · 23 дек 2009, 20:21

darklumen,
возможно ли, чтобы у тебя в документе было несколько Оглавлений?

darklumen · 23 дек 2009, 20:24

Busine2009 писал(а):darklumen,
возможно ли, чтобы у тебя в документе было несколько Оглавлений?

нет оглавление одно.
вот то что мне выдал макрорекодер:

With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
True
.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = wdIndexIndent
End With

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

Busine2009 · 23 дек 2009, 20:31

Busine2009,
надо же указать месть вставки Оглавления, если его нет.
Оглавление должно быть самым первым на странице? А как же слово Оглавление?

darklumen · 23 дек 2009, 20:33

Busine2009 писал(а):Busine2009,
надо же указать месть вставки Оглавления, если его нет.
Оглавление должно быть самым первым на странице? А как же слово Оглавление?

да, его тоже надо по центру на первой странице и потом оглавление. =(

Busine2009 · 23 дек 2009, 20:41

darklumen,
а курсор можно вставить после слова Содержание или надо чтобы вообще было всё автоматически? Если полностью всё автоматически, то на данной странице идёт что: слово "Содержание", затем пустой абзац, а затем Содержание?

darklumen · 23 дек 2009, 20:43

WordBasic.UpdateTableOfContents - вот эта байда обновляет оглавление.

Busine2009 · 23 дек 2009, 20:44

darklumen,
я тебя вообще-то о другом спрашивал.