1 Тема от AnnaS

  • AnnaS
  • рядовой
  • Неактивен
  • Зарегистрирован: 23.12.2012
  • Сообщений: 1

Тема: Макрос. Четные-нечетные страницы, ориентация чередуется. КАК?!!!

Как правильно написать макрос для создания документа из 200 страниц, в котором нечетные страницы будут иметь книжную ориентацию, а четные-альбомную?  hmm

2 Ответ от viter.alex

  • Макрос. Четные-нечетные страницы, ориентация чередуется. КАК?!!!
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1

Re: Макрос. Четные-нечетные страницы, ориентация чередуется. КАК?!!!

В конце каждой страницы ставить разрыв раздела на текущей странице и менять ориентацию. Наверное, алгоритмически быстрее будет сначала проставить все разрывы, а затем, пробежавшись по страницам через одну, поменять ориентацию листов.
Например, так:

Sub DifferentPageOrientation()
    Dim iPages As Long
    Dim i As Integer
    
    Selection.HomeKey wdStory
    iPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
    Do While Selection.Information(wdActiveEndPageNumber) <> iPages
        Selection.GoToNext wdGoToPage
'        Selection.MoveLeft
        Selection.InsertBreak wdSectionBreakContinuous
    Loop
    For i = 2 To iPages Step 2
        ActiveDocument.Sections(i).PageSetup.Orientation = wdOrientLandscape
    Next
End Sub

Но если страницы забиты текстом под завязку, то возможно смещение границ разделов

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex