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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2020, 16:22   #1
leo-udav
Новичок
Джуниор
 
Регистрация: 26.03.2020
Сообщений: 3
По умолчанию Пронумеровать страницы чётные слева, нечётные справа

Задача, казалось бы, простая - пронумеровать страницы так, чтобы четные номера стояли слева, а нечётные справа. Первая страница секции без номера, Первая и последняя секции также без номеров. Ниже приведён макрос, которым я пытаюсь это сделать, но...
При выполнении команды ' НЕЧЁТНЫЕ СПРАВА! справа действительно появляются номера страниц. Но после выполнения команды ' ЧЁТНЫЕ СЛЕВА все, и чётные и нечётные перемещаются влево. Подскажите, что я не так делаю?

Sub setHeaderFooter()

With ActiveDocument
Dim i
For i = 2 To .Sections.Count - 1
Call delHeaderFooter(ActiveDocument.Sect ions(i))
With .Sections(i)
.PageSetup.DifferentFirstPageHeader Footer = True
.PageSetup.OddAndEvenPagesHeaderFoo ter = True

.Headers(wdHeaderFooterPrimary).Pag eNumbers.Add _ ' НЕЧЁТНЫЕ СПРАВА!
PageNumberAlignment:=wdAlignPageNum berRight, FirstPage:=False


.Headers(wdHeaderFooterEvenPages).P ageNumbers.Add _ ' ЧЁТНЫЕ СЛЕВА
PageNumberAlignment:=wdAlignPageNum berLeft, FirstPage:=False

End With
Next i
Call delHeaderFooter(ActiveDocument.Sect ions(1))
Call delHeaderFooter(ActiveDocument.Sect ions(.Sections.Count))
End With

End Sub

Sub delHeaderFooter(s As Section)
s.Headers(wdHeaderFooterFirstPage). Range.Delete
s.Footers(wdHeaderFooterFirstPage). Range.Delete
s.Headers(wdHeaderFooterPrimary).Ra nge.Delete
s.Footers(wdHeaderFooterPrimary).Ra nge.Delete
s.Headers(wdHeaderFooterEvenPages). Range.Delete
s.Footers(wdHeaderFooterEvenPages). Range.Delete
End Sub
leo-udav вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чётные элементы сортировать по убыванию,нечётные по возрастанию kachunga Visual C++ 1 31.01.2018 15:31
Работа с числами в C#. 3 задачи (1)трехзначное число. В нем зачеркнули первую слева и приписали ее справа; 2) найти чётные) ( C# ) umxo C# (си шарп) 3 09.11.2012 12:22
Чётные/Нечётные числа в C++ demon9992 Помощь студентам 2 30.03.2011 22:38
Два background'а для body (слева и справа от контента)? alex2406 HTML и CSS 7 14.06.2010 16:34
Отступы границ сайта слева и справа slaxik HTML и CSS 4 31.01.2010 11:45