Toggle A4 and Custom size

macropod · #1 01-20-2019, 02:42 PM

Have you tried recording what you want with the macro recorder? Without knowing what the custom size is, no-one here could write the macro for you.

gloub · #2 01-20-2019, 03:33 PM

Hi, and thanks for answering.

Here is what I got from the macro recorder (first when I change from Custom to A4, and then back to Custom size).

Code:

Sub Toggle_Paper_size()
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(0.63)
        .BottomMargin = CentimetersToPoints(0.5)
        .LeftMargin = CentimetersToPoints(0.95)
        .RightMargin = CentimetersToPoints(0.63)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0)
        .FooterDistance = CentimetersToPoints(0)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(0.63)
        .BottomMargin = CentimetersToPoints(0.5)
        .LeftMargin = CentimetersToPoints(0.95)
        .RightMargin = CentimetersToPoints(0.63)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0)
        .FooterDistance = CentimetersToPoints(0)
        .PageWidth = CentimetersToPoints(45.89)
        .PageHeight = CentimetersToPoints(55.87)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
End Sub

Thanks for helping.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Custom page size settings	ibclare	Publisher	0	10-27-2014 08:34 PM
Toggle objects on / off with custom toolbar	Milon	Word VBA	3	07-23-2013 06:21 AM
Custom label size for merge	dmwesq	Mail Merge	13	04-24-2011 02:36 PM
Saving custom page size	comptech	Word	2	10-05-2010 06:01 AM
Printing Custom Size Pages	vicktown	Word	0	10-21-2009 12:51 PM