Ориентация страницы. Макрос

а не поплывет документ при переориентации текста
сие действо не такое надежное

===
не помешало бы посмотреть на ваш документ(например десяток страниц), что бы понять ваши реалии

CherrySaiusage пишет:

Добрый день . Есть доковский книжный файл страниц на 1000; нужно нечетные страницы оставить книжными ориентацию, а четные сделать альбомными! Макрос!
Есть такой код с вашего сайта но он делает немного нето .

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

А чем приведенный Вами макрос Вас не устраивает? Вроде бы, при пустых страницах работает нормально.