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