Обновить целиком оглавление в Word из VBA

@pet-j · Регистрация: 22.10.2009

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

После определенной манипуляции из макроса с документом Word, необходимо обновить оглавление, которое уже было создано, но в силу изменения структуры документа стало не актуальным как в отношении номеров страниц, так и в отношении собственно пунктов оглавления (появились новые заголовки, на разных уровнях и их надо включить в оглавление). Путем экспериментов пытался найти команду используемую для этого самим вордом. т.е. ставил на запись макрос и обновлял только номера страниц и обновлял оглавление целиком. Но к моему удивлению в редакторе макросов я увидел использование дважды одной и той же команды:

Visual Basic

1	Selection.Fields.Update

Как я потом при запуске этого макроса я выяснил, что это команда для обновления только номеров страниц. Видимо, в режиме записи макроса, ворда не все команды пишет в модуль... И вот собственно возникла проблема, как же все-таки обновить оглавление целиком из макроса?

@~~Busine2009~~ · 23.10.2009, 00:16

Я воспользовался тоже Макрорекордером, но сделал запись при следующих командах:
Вставка - Оглавление. Затем видоизменил и получилось вот что:

Visual Basic

1
2
3

Sub TablesOfContentsUpdate()
   ActiveDocument.TablesOfContents(1).Update
End Sub

@pet-j · 23.10.2009, 07:48 **[ТС]**

Уррааа, Заработало!!!
Busine2009, спасибо огромное, бился неделю, наверное...

@pet-j 0 / 0 / 0 Регистрация: 22.10.2009 Сообщений: 3
	23.10.2009, 07:48 [ТС]	3
	Уррааа, Заработало!!! Busine2009, спасибо огромное, бился неделю, наверное... 0