#1
|
|||
|
|||
Toggle A4 and Custom size
Hello Forum!
I'd like to write a macro that allows me to change the paper size as follows: – If the document's format is A4, switch to Custom Size – If the document's format is Custom Size, switch to A4 ...but I don't know how to do proceed. Could someone help me? Thanks ! |
#2
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
try this
Code:
Sub Toggle_Paper_size() With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = "" .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) .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 If .PaperSize = wdPaperA4 Then .PageWidth = CentimetersToPoints(45.89) .PageHeight = CentimetersToPoints(55.87) Else .PaperSize = wdPaperA4 End If End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#5
|
|||
|
|||
It works perfectly !!!!!
Thank you so much :^) |
Thread Tools | |
Display Modes | |
|
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 |