用vba插入奇偶页不同的页面问题

tongyi

假如一个文档，要插入奇偶页不同的页码，并且用vba实现，我录制了以下代码，如果页面多于2页，且光标定位于奇数页，这个代码好是可以运行，如果光标定位在偶数页就出错，或者只有一页时代码就无法运行，你可能会说等大于1页再运行这个代码，但我怕忘记加页码，喜欢新建文档后就加入页面，而且这个贴主要是想请教下，只有一页的情况下，怎么用vba插入奇偶页不同的页码，望高人指点
Sub Macro3()

    With ActiveDocument.PageSetup
        .OddAndEvenPagesHeaderFooter = True
    End With

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If

    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    With Selection.ParagraphFormat
        .CharacterUnitRightIndent = 1
    End With

    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 14
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage

    ActiveWindow.ActivePane.View.NextHeaderFooter
    With Selection.ParagraphFormat
        .CharacterUnitLeftIndent = 1
    End With
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 14
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
   
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

sylun

可试试如下代码：

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Sections(1)
   
4.         .PageSetup.OddAndEvenPagesHeaderFooter = True
   
5.         With .Footers(wdHeaderFooterPrimary)
   
6.             With .PageNumbers
   
7.                 .Add PageNumberAlignment:=wdAlignPageNumberRight
   
8.                 .NumberStyle = wdPageNumberStyleNumberInDash
   
9.             End With
   
10.             With .Range.Frames(1)
    
11.                 .HorizontalPosition = wdFrameRight
    
12.                 With .Range.ParagraphFormat
    
13.                     .Alignment = wdAlignParagraphRight
    
14.                     .CharacterUnitRightIndent = 1
    
15.                 End With
    
16.             End With
    
17.         End With
    
18.         With .Footers(wdHeaderFooterEvenPages).Range.Frames(1)
    
19.             .HorizontalPosition = wdFrameLeft
    
20.             With .Range.ParagraphFormat
    
21.                 .Alignment = wdAlignParagraphLeft
    
22.                 .CharacterUnitLeftIndent = 1
    
23.             End With
    
24.         End With
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

tongyi

能注视下 或简单说下原理吗，是可以实现了 但是我要修改其中的代码 明白原理容易操作，我想要我自己做的页码 不要默认的

[ 本帖最后由 tongyi 于 2011-4-16 15:22 编辑 ]

andysky

tongyi 发表于 2011-4-16 14:45
能注视下 或简单说下原理吗，是可以实现了 但是我要修改其中的代码 明白原理容易操作，我想要我自己做的页 ...

.PageSetup.OddAndEvenPagesHeaderFooter = True
它表示奇偶页不同，所有重点就这一句