VBA插入页码怎么才是从第2节的1开始。

zhongqiuzz

以下代码借鉴高人，也添加点内容，文章有2节，可不管怎么样都要运行2次代码，才是从第2节开始插入页码。运行第1次是给第1节插入页码。

1. Sub 页码()
   
2. Dim wdApp As New Word.Application, wdDoc As Word.Document
   
3. Set wdDoc = ActiveDocument
   
4. 
   
5. Dim r As Range
   
6. '给文档的第二节页脚添加页码
   
7. Set r = wdDoc.Sections(2).Footers(wdHeaderFooterPrimary).Range
   
8. wdDoc.Sections(2).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
   
9. With r
   
10.     .InsertAfter "-"
    
11.     .Font.Size = 10.5
    
12.     .Collapse Direction:=wdCollapseEnd
    
13.     '插入页码域
    
14.     .Fields.Add Range:=r, Type:=wdFieldEmpty, Text:= _
    
15.        "PAGE  \* Arabic ", PreserveFormatting:=True
    
16.     .Expand Unit:=wdWord
    
17.     .InsertAfter "- "
    
18.     .ParagraphFormat.Alignment = wdAlignParagraphCenter 'wdAlignParagraphRight
    
19. End With
    
20. '隐藏页眉的横线
    
21. wdDoc.Sections(2).Headers(wdHeaderFooterPrimary).Range.Borders(wdBorderBottom).Visible = False
    
22. 
    
23. With wdDoc.Sections(2).Footers(wdHeaderFooterPrimary).PageNumbers
    
24.         .NumberStyle = wdPageNumberStyleArabic
    
25.         .HeadingLevelForChapter = 0
    
26.         .IncludeChapterNumber = False
    
27.         .ChapterPageSeparator = wdSeparatorHyphen
    
28.         .RestartNumberingAtSection = True
    
29.         .StartingNumber = 1
    
30.     End With
    
31. End Sub

复制代码

请论坛高手指点。

413191246se

1. Sub InsertPageNumberFromSection2()
   
2.     With ActiveDocument.Sections(2).Footers(1).PageNumbers
   
3.         .RestartNumberingAtSection = True
   
4.         .StartingNumber = 1
   
5.     End With
   
6. End Sub
   

复制代码

zhongqiuzz

413191246se 发表于 2020-12-26 00:44

如果仅仅是这段代码，测试没反应呀。

zhongqiuzz

这是测试文档，经测试后不行。

413191246se

1. Sub Insert_Page_Number_On_Section2()
   
2.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
3.     With ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).PageNumbers
   
4.         .Add PageNumberAlignment:=wdAlignPageNumberCenter
   
5. '        .NumberStyle = wdPageNumberStyleNumberInDash
   
6.         .RestartNumberingAtSection = True
   
7.         .StartingNumber = 1
   
8.     End With
   
9.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
   
10. End Sub

复制代码