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