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

《代码制作试卷（十一）——设置纸型及分栏》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、试卷制作（十一）试卷纸型一般设置成B4或八开均可，本例为设置成B4纸型。同时试卷分为左右两栏。同时设置页边距。'========================================================================================================================'===============================================================================================

2、=========================Sub设置文档为B4纸型并分两栏()IfActiveWindow.View.SplitSpecial<>wdPaneNoneThenActiveWindow.Panes(2).CloseEndIfIfActiveWindow.ActivePane.View.Type<>wdPrintViewThenActiveWindow.ActivePane.View.Type=wdPrintViewEndIfWithActiveDocument.PageSetup.TextColumns.SetCou

3、ntNumColumns:=2.EvenlySpaced=True.LineBetween=False.Width=CentimetersToPoints(6.95).Spacing=CentimetersToPoints(0.75)EndWithWithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=""EndIf.NameFarEast=""EndWithWithActiveDocument.PageSetup.LineN

4、umbering.Active=False.Orientation=wdOrientLandscape.TopMargin=CentimetersToPoints(2)'上边距.BottomMargin=CentimetersToPoints(2)'下边距.LeftMargin=CentimetersToPoints(5)'左边距.RightMargin=CentimetersToPoints(1)'右边距.Gutter=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints(1

5、.5)'页眉位置.FooterDistance=CentimetersToPoints(1.25)'页郐位置3.PageWidth=CentimetersToPoints(36.4).PageHeight=CentimetersToPoints(25.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentF

6、irstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWithIfActiv

7、eWindow.View.SplitSpecial<>wdPaneNoneThenActiveWindow.Panes(2).CloseEndIfIfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._ActivePane.View.Type=wdOutlineViewThenActiveWindow.ActivePane.View.Type=wdPrintViewEndIfActiveWindow.ActivePane.View.SeekView=wdSeekCur

8、rentPageHeaderWithSelection.ParagraphFormat.Borders(wdBorderLeft).LineStyle=wdLineStyleNone.Bord