Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чётные элементы сортировать по убыванию,нечётные по возрастанию kachunga Visual C++ 1 31.01.2018 16: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 12:45


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS