Margins in mixed portrait/landscape doc

macropod · #1 09-19-2018, 04:23 PM

You could use a macro like:

Code:

Sub ChangeOrientation()
Application.ScreenUpdating = False
Dim sMT As Single, sMB As Single, SML As Single, sMR As Single, sMG As Single
With Selection
  .InsertBreak wdSectionBreakNextPage
  With .PageSetup
    sMT = .TopMargin
    sMB = .BottomMargin
    sMR = .RightMargin
    SML = .LeftMargin
    sMG = .Gutter
    .Orientation = (.Orientation + 1) Mod 2
    .TopMargin = sMT
    .BottomMargin = sMB
    .RightMargin = sMR
    .LeftMargin = SML
    .Gutter = sMG
  End With
End With
End Sub

in the document's template and, perhaps, assign it to a shortcut key.

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
keep same view when changing from landscape to portrait	rich_cirillo	Word	1	05-12-2015 09:00 AM
portrait and landscape in a single file	brendanflanagan	Word	1	03-05-2015 06:26 PM
Large number of landscape pages within a portrait doc--do I have to textbox by hand every landscape?	mlkmnsgrl	Word	7	01-05-2015 05:19 PM
how to have both portrait and landscape?	eidius	Word	4	07-01-2013 08:01 PM
Landscape and Portrait together?	manyrains	Word	1	11-26-2009 12:05 PM