word自动排版【宏命令】.pdfVIP

Attribute VB_Name = AutoType Sub perfect() WORD自动排版并打印，楷体、正文分栏。 页面设置部分，上下边距0.5cm，左右边距1cm，无页眉页脚，横排 With ActiveDocument PageSetup LineNumbering Active = False Orientation = wdOrientLandscape TopMargin = CentimetersToPoints(0 5) BottomMargin = CentimetersToPoints(0 5) LeftMargin = CentimetersToPoints(1) RightMargin = CentimetersToPoints(1) Gutter = CentimetersToPoints(0) HeaderDistance = CentimetersToPoints(0) FooterDistance = CentimetersToPoints(0) PageWidth = CentimetersToPoints(29 7) PageHeight = CentimetersToPoints(21) 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 Application.Run MacroName:=space Application Run MacroName:=enter ctrl+Home使光标回归至首字符处（即标题前） Selection HomeKey Unit:=wdStory ctrl+Shift+↓使首段选中，目的是设置标题格式 Selection MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend If Selection Text = + vbCr Then Selection Text = GetName + vbCrLf 以下为段落格式，字体楷体，字号小二，加粗，居中对齐 Selection Font Name = 楷体_GB2312 Selection Font Size = 18 Selection Font Bold = wdToggle Selection ParagraphFormat Alignment = wdAlignParagraphCenter →使选中取消并移至下一段首。 Selection MoveRight Unit:=wdCharacter, Count:=1 回车，目的是使正文分栏时行文美观 Selection TypeParagraph ctrl+Shift+End使正文选中，目的是设置正文格式 Selection EndKey Unit:=