巧用宏实现Word文档奇偶页不同页码的自动编排.docVIP

巧用宏实现Word文档奇偶页不同页码的自动编排 新的党政机关公文格式国家标准已经实施，其中的一条规定就是页码的设置为奇偶页不同。这对已往的旧文档新利用增添了不多麻烦。本文提供一种通过宏执行，实现快速、标准的自动给文档重新编页码。并可实现批量修改所有打开的Word 文档，自动保存并关闭文档。 说明：宏：Sub Macro2() 为自动重编页码；Sub Macro1() 为批量执行，可实现批量修改所有打开的Word 文档，自动保存并关闭文档。 作用方法：打开任一文档，在菜单中选：工具/宏/录制新宏/确定/停止录制/工具/宏/编辑（/表示依次打开意思），在弹出的编辑框中清除所有内容，然后粘贴上如下所有字符： ―――――――――（此横杠后开始，不包括横杠）――――――――――― Sub Macro2() Macro2 Macro 宏在 2013年11月14日 由 user 录制 Application.ScreenUpdating = False With ActiveDocument.Sections(1) .PageSetup.OddAndEvenPagesHeaderFooter = True With .Footers(wdHeaderFooterPrimary) With .PageNumbers .Add PageNumberAlignment:=wdAlignPageNumberRight .NumberStyle = wdPageNumberStyleNumberInDash End With With .Range.Frames(1) .HorizontalPosition = wdFrameRight With .Range.ParagraphFormat .Alignment = wdAlignParagraphRight .CharacterUnitRightIndent = 1 End With End With End With With .Footers(wdHeaderFooterEvenPages).Range.Frames(1) .HorizontalPosition = wdFrameLeft With .Range.ParagraphFormat .Alignment = wdAlignParagraphLeft .CharacterUnitLeftIndent = 1 End With End With End With Application.ScreenUpdating = True Selection.HomeKey unit:=wdStory Selection.GoTo wdGoToPage, wdGoToNext, , 15 If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End If If 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 Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.WholeStory Selection.Font.Size = 14 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.HomeKey unit:=wdStory If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWi