[求助]新建文档的页面设置问题

duke008

vba中，我用Set mydoc2 = Documents.Add新建一个文档，我要设置新文档的页面设置（页边距）与我当前文档的页面设置相同，要怎么做呢？

守柔

枚举属性并赋值吧。

Option Explicit

Sub Example()
Dim ThisPageSetup As PageSetup, NewPageSetup As PageSetup
Set ThisPageSetup = ThisDocument.PageSetup
Set NewPageSetup = Documents.Add.PageSetup
With NewPageSetup
.BookFoldPrinting = ThisPageSetup.BookFoldPrinting
.BookFoldPrintingSheets = ThisPageSetup.BookFoldPrintingSheets
.BookFoldRevPrinting = ThisPageSetup.BookFoldRevPrinting
.BottomMargin = ThisPageSetup.BottomMargin
.CharsLine = ThisPageSetup.CharsLine
.DifferentFirstPageHeaderFooter = ThisPageSetup.DifferentFirstPageHeaderFooter
.FirstPageTray = ThisPageSetup.FirstPageTray
.FooterDistance = ThisPageSetup.FooterDistance
.Gutter = ThisPageSetup.Gutter
.GutterPos = ThisPageSetup.GutterPos
.GutterStyle = ThisPageSetup.GutterStyle
.HeaderDistance = ThisPageSetup.HeaderDistance
.LayoutMode = ThisPageSetup.LayoutMode
.LeftMargin = ThisPageSetup.LeftMargin
.LineNumbering = ThisPageSetup.LineNumbering
.LinesPage = ThisPageSetup.LinesPage
.MirrorMargins = ThisPageSetup.MirrorMargins
.OddAndEvenPagesHeaderFooter = ThisPageSetup.OddAndEvenPagesHeaderFooter
.Orientation = ThisPageSetup.Orientation
.OtherPagesTray = ThisPageSetup.OtherPagesTray
.PageHeight = ThisPageSetup.PageHeight
.PageWidth = ThisPageSetup.PageWidth
.PaperSize = ThisPageSetup.PaperSize
.RightMargin = ThisPageSetup.RightMargin
.SectionDirection = ThisPageSetup.SectionDirection
.SectionStart = ThisPageSetup.SectionStart
.SuppressEndnotes = ThisPageSetup.SuppressEndnotes
.TextColumns = ThisPageSetup.TextColumns
.TopMargin = ThisPageSetup.TopMargin
.TwoPagesOnOne = ThisPageSetup.TwoPagesOnOne
.VerticalAlignment = ThisPageSetup.VerticalAlignment
End With
End Sub