Sub 有封面双页码()
'
' 有封面双页码 宏
'
'
Dim oSection As Section
For Each oSection In Word.ActiveDocument.Sections
With oSection.PageSetup
.DifferentFirstPageHeaderFooter = True '设置页眉页脚的首页不同
.OddAndEvenPagesHeaderFooter = True '设置页眉页脚的奇偶页不同
End With
Next
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.Delete
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.Delete
Selection.TypeText Text:="— "
Application.Templates( _
"C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Buildi