Тема: Макрос. Четные-нечетные страницы, ориентация чередуется. КАК?!!!
Как правильно написать макрос для создания документа из 200 страниц, в котором нечетные страницы будут иметь книжную ориентацию, а четные-альбомную? 
- viter.alex
- Модератор
- Неактивен
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Но если страницы забиты текстом под завязку, то возможно смещение границ разделов
Лучше день потерять — потом за пять минут долететь!