合并文档时让第一页为奇数

来源：互联网发布：linux shell cut 编辑：程序博客网时间：2024/06/05 05:28

目的：实现打印时自动将第一页排在奇数页，以防出现两份资料不独立的情况。
因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符

Sub 合并文档时让第一页为奇数()    'ThisDocument.BuiltInDocumentProperties(wdPropertyPages)Rem Selection.Information(wdNumberOfPagesInDocument)Rem ActiveDocument.ComputeStatistics(wdStatisticPages)Rem ActiveDocument.ActiveWindow.ActivePane.Pages.Count    With Application.FileDialog(msoFileDialogFilePicker)        If .Show <> -1 Then Exit Sub        For Each f In .SelectedItems            Selection.InsertFile f            Selection.InsertBreak Type:=wdSectionBreakOddPage  '插入奇数页分节符 wdSectionBreakEvenPage  '插入偶数页分节符            'If ActiveDocument.content.Information(wdNumberOfPagesInDocument) Mod 2 <> 0 Then            '    ActiveDocument.content.InsertBreak Type:=wdPageBreak            'End If        Next    End WithEnd Sub

0 0