Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.09.2019, 09:02   #1
DBEER
Пользователь
 
Регистрация: 13.03.2014
Сообщений: 76
По умолчанию Программное изменение кода в поле (VBA)

Уважаемые коллеги,
есть ли у кого-то опыт subj?
Прошу поделиться примерами.
В документе м.б. (а может и НЕ быть) раздел (Section), создаваемый из существующего
Код:
( Selection.InsertBreak Type:=wdSectionBreakNextPage)
Есс-сно, он наследует конструкцию колонтитулов у "папы". В колонтитуле есть поле, отображающее № страницы (вычисляется хитрым образом в локальной нумерации страниц раздела и содержит PageRef на 1ю страницу раздела).

После того, как для старого раздела (папы) делается
Код:
Selection.HeaderFooter.LinkToPrevious = False
(не "Как в предыдущем")
необходимо в новом переписать код поля для замены ссылки.

Убился расковыривать в объектной модели Word (2003) хранилище самого кода. Плюс к тому, при ручном формировании кода поля там еще {} существуют, которые руками не поставишь, только через F9.
Разъясните тёмному, пожалуйста.
DBEER вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие Input и программное изменение value fedushok JavaScript, Ajax 4 18.09.2017 23:05
программное изменение текстаFast report Nenado БД в Delphi 0 25.04.2012 13:41
дельфи - программное изменение .ехе файла. ромик0 Помощь студентам 3 13.01.2012 16:17
Программное изменение шрифта _-Re@l-_ Общие вопросы Delphi 5 15.05.2010 18:13
Программное изменение параметров радиоэлементов. Rapid Компьютерное железо 1 26.01.2010 09:57