|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.03.2020, 16:22 | #1 |
Новичок
Джуниор
Регистрация: 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 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Чётные элементы сортировать по убыванию,нечётные по возрастанию | 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 |