Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


А новые версии так научились? Бо, у меня, как только выставляешь «Зеркальные поля» положение переплёта из «Сверху» меняется на «Слева» и данное поле становится недоступным для изменения:
Скрытый текст

Обходной путь — обнулить поле переплёта и расставить верхние/нижние поля нечётных и чётных страниц макросом, имитируя поле переплёта (надо будет предварительно самостоятельно расставить разрывы разделов на каждой странице). Например:
Скрытый текст
Код: Выделить весь код
Option Explicit

Sub Sample()
    Dim objSection As Section
    
    With ThisDocument
        For Each objSection In .Sections
            With objSection.PageSetup
                .Orientation = wdOrientLandscape
                
                If objSection.Index Mod 2 Then
                    .TopMargin = CentimetersToPoints(2.5)
                    .BottomMargin = CentimetersToPoints(1)
                Else
                    .TopMargin = CentimetersToPoints(1)
                    .BottomMargin = CentimetersToPoints(2.5)
                End If
                
                .LeftMargin = CentimetersToPoints(1)
                .RightMargin = CentimetersToPoints(1)
                
                .Gutter = CentimetersToPoints(0)
                .GutterPos = wdGutterPosTop
                
                .MirrorMargins = False
            End With
        Next objSection
    End With
End Sub

Результат…
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:37, 25-07-2021 | #2