代码制作试卷（十一）——设置纸型及分栏.doc

试卷制作（十一）试卷纸型一般设置成B4或八开均可，本例为设置成B4纸型。同时试卷分为左右两栏。同时设置页边距。=Sub 设置文档为B4纸型并分两栏()If ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type wdPrintView ThenActiveWindow.ActivePane.View.Type = wdPrintView End IfWith ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2 .EvenlySpaced = True.LineBetween = False.Width = CentimetersToPoints(6.95) .Spacing = CentimetersToPoints(0.75)End With With ActiveDocument.Styles(wdStyleNormal).FontIf .NameFarEast = .NameAscii Then.NameAscii = End If.NameFarEast = End WithWith ActiveDocument.PageSetup.LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = CentimetersToPoints(2) 上边距 .BottomMargin = CentimetersToPoints(2) 下边距 .LeftMargin = CentimetersToPoints(5) 左边距 .RightMargin = CentimetersToPoints(1) 右边距 .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1.5) 页眉位置 .FooterDistance = CentimetersToPoints(1.25) 页郐位置 .PageWidth = CentimetersToPoints(36.4) .PageHeight = CentimetersToPoints(25.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 .LayoutMode = wdLayoutModeLineGrid End With If ActiveWindow.View.SplitSpecial wdPaneNone ThenActiveWindow.Panes(2).CloseEnd If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintViewEnd If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderWith Selection.ParagraphFormat .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintView End If Active