0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 22
1

Работа с колонтитулами на VBA

08.07.2015, 13:56. Показов 7982. Ответов 1
Метки нет (Все метки)

Доброго времени суток!

Подскажите, пожалуйста, как решить следующую задачку:

Задача:
Создание макроса, который вставляет разрыв раздела и форматирует следующий раздел по необходимому алгоритму, а именно:
1) формат листа изменяет
2) меняет поля
3) заходит в колонтитулы и убирает галки: а) "как в предыдущем" - для верхнего и нижнего колонтитула; б) "особый колонтитул для первой страницы"

С п. 1) и 2) справился. С п. 3) - проблемы:

Пытаюсь записать макрос1:
Запускаю запись макроса, в колонтитуле убираю галку "особый колонтитул для первой страницы", останавливаю макрос, смотрю его, а он пустой (((

Пытаюсь записать макрос2:
Запускаю запись макроса, в колонтитуле нажимаю кнопку "перейти к нижнему/верхнему колонтитулу", останавливаю макрос, смотрю его, а он пустой (((

Отсюда вопросы, как в VBA написать:
1) перейти к нижнему/верхнему колонтитулу
2) убрать галку "особый колонтитул для первой страницы"
3) ну и до кучи убрать галку "Как в предыдущем"

Заранее благодарен.

Добавлено через 3 часа 4 минуты
Вопрос снимается, кому интересно, ответ нашел по адресу http://wordexpert.ru/forum/viewtopic.php?id=1323
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2015, 13:56
Ответы с готовыми решениями:

Глюк с колонтитулами!
Всем привет, такая проблема - когда копировал с 1 документа в другой, заглючили размера нижнего...

Как вставить нумерацию страниц, осложнено колонтитулами
Здравствуйте, дорогие форумчане, в полном отчаянии прошу помощи у гуру. Подскажите пожалуйста,...

Работа с колонтитулами в Word
Добрый день! Подскажите пожалуйста как изменить шрифт и размер для номеров страницы в документе...

Ворд: работа с колонтитулами
Как программно можно получить номер раздела документа по текущему положению курсора? С уважением

1
629 / 128 / 33
Регистрация: 18.01.2014
Сообщений: 228
09.07.2015, 08:56 2
Пример кода. Разрывает связи для всех трех видов нижних и верхних колонтитулов, а затем убирает опции "особый колонтитул для первой страницы" и "Различать колонтитулы четных и нечетных страниц"
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Kill_Link_To_Previous()
  Dim j As Single
  With Selection.Sections(1)
    For j = 1 To 3
      .Headers(j).LinkToPrevious = False
      .Footers(j).LinkToPrevious = False
    Next j
    'В цикле убиваем связи для всех трех видов нижних и верхних колонтитулов
   .PageSetup.DifferentFirstPageHeaderFooter = False 
   .PageSetup.OddAndEvenPagesHeaderFooter = False
    End With
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2015, 08:56

Работа с колонтитулами в документе MS Word
Доброго времени суток! Возможно, эта тема поднималась, и не раз, но я либо туплю, либо плохо гуглю...

Работа с колонтитулами docx через Open XML
Добрый день, уважаемые форумчане ! Появилась необходимость найти и заменить некоторые слова в...

Работа с колонтитулами: анализ групп объектов, подсчет количества фигур
Добрый день. На странице word имеется группа объектов (линии, текстовые блоки). Как обратиться к...

Поиск word документов с колонтитулами
help! Нужно организовать поиск word документам , которые содержат колонтитулы. Т.е. прошерстить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.