如何将第一节和第三节的页码建立联系，让第一节页数变化后第三节也自动变化

killreins

如何将第一节和第三节的页码建立联系，让第一节页数变化后第三节也自动变化

也可以这样理解：有3页文档，我在第3页前插入一个“隔页”，第3页变成了第4页，但页码还是显示“3”，插多少张“隔页”也是显示“3”，不受插入多少张“隔页”的影响。    但是第1页或第2页前后面添加页后，原来的第“3”页（现在的最后一页）的页码就会自动增加。
如何设置？？？？？？？？？？？？？？？？

killreins

自己顶一下不要沉了呀

killreins

走过的路过的，瞧一瞧看一看了

killreins

哪位大神留下点意见呀

killreins

顶顶顶顶顶顶顶顶顶顶顶顶

413191246se

* 楼主，你好！——如果不会用 VBA 宏代码的话，请网络搜索“录制宏”；如果会用，请试用下面的宏：

1. Sub aaab分节_第3节自动页数()
   
2. '
   
3. '请注意：第1节/第2节，仅允许插入分页符！（当第1页插入分页符后，要重新运行本宏一次！不要重复运行！）
   
4. 
   
5.     Dim s&
   
6.     If Documents.Count = 0 Then Documents.Add
   
7. 
   
8.     s = ActiveDocument.Sections(1).Range.Information(wdActiveEndPageNumber)
   
9. 
   
10.     If s = 1 Then
    
11. 
    
12.         With ActiveWindow.ActivePane.View.Zoom
    
13.             .PageColumns = 4
    
14.             .PageRows = 1
    
15.         End With
    
16. 
    
17.         Selection.Font.Bold = True
    
18.         Selection.Font.Size = 72
    
19.         Selection.TypeText Text:="1"
    
20.         Selection.InsertBreak Type:=wdSectionBreakNextPage
    
21.         Selection.TypeText Text:="2"
    
22.         Selection.InsertBreak Type:=wdSectionBreakNextPage
    
23.         Selection.TypeText Text:="3"
    
24. 
    
25.         Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
    
26. 
    
27.         With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font
    
28.             .Size = 42
    
29.             .Bold = True
    
30.             .Color = wdColorRed
    
31.         End With
    
32. 
    
33.         ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    
34.         ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    
35. 
    
36.         ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary).Range.Delete
    
37.         ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).Range.Delete
    
38. 
    
39. s3:
    
40.         With ActiveDocument.Sections(3).Headers(1).PageNumbers
    
41.             .NumberStyle = wdPageNumberStyleArabic
    
42.             .HeadingLevelForChapter = 0
    
43.             .IncludeChapterNumber = False
    
44.             .ChapterPageSeparator = wdSeparatorHyphen
    
45.             .RestartNumberingAtSection = True
    
46.             .StartingNumber = s + 1
    
47.         End With
    
48. 
    
49.         ActiveDocument.Sections(3).Footers(1).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
    
50. 
    
51.         With ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).Range.Font
    
52.             .Size = 42
    
53.             .Bold = True
    
54.             .Color = wdColorRed
    
55.         End With
    
56.     Else
    
57.         GoTo s3
    
58.     End If
    
59. 
    
60.     ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll
    
61. End Sub

复制代码

sylun

可参考附件文档设置。当然，该页码并非WORD认可的，与自动目录中显示的页码不同
动态设置含隔页的文档页码.rar (10.76 KB, 下载次数: 8)

2019-9-28 16:22 上传

点击文件名下载附件

daibao88

SECTION       域