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

Posted 2020-09-08 zhanglei1371

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

 

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 With  
  
End Sub