1 Тема от CherrySaiusage

  • CherrySaiusage
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.01.2015
  • Сообщений: 4

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

Добрый день . Есть доковский книжный файл страниц на 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

2 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

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

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

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

3 Ответ от CherrySaiusage

  • CherrySaiusage
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.01.2015
  • Сообщений: 4

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

Предположим что файл пустой!

shanemac51 пишет:

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

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

4 Ответ от Alex_Gur

  • Ориентация страницы. Макрос
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

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

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

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

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5 Ответ от CherrySaiusage

  • CherrySaiusage
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.01.2015
  • Сообщений: 4

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

Скажите, а можно ли сделать эту процедуру без макроса и не в ручную, так сказать 3 вариант? Зарание спасибо

Alex_Gur пишет:
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

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

6 Ответ от CherrySaiusage

  • CherrySaiusage
  • рядовой
  • Неактивен
  • Зарегистрирован: 19.01.2015
  • Сообщений: 4

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

Типо попытались помочь, спасибо и на этом neutral

7 Ответ от Alex_Gur

  • Ориентация страницы. Макрос
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

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

CherrySaiusage пишет:

Скажите, а можно ли сделать эту процедуру без макроса и не в ручную, так сказать 3 вариант? Заранее спасибо

Увы, иначе, наверно, никак.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.