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

PAGE PAGE 1 试卷制作（十一） 试卷纸型一般设置成B4或八开均可，本例为设置成B4纸型。同时试卷分为左右两栏。同时设置页边距。 ======================================================================================================================== ======================================================================================================================== Sub 设置文档为B4纸型并分两栏() If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type wdPrintView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If With ActiveDocument.PageSetup.TextColumns .SetCount NumColumns:=2 .E