[原创]多节文档中第*页共*页第*节本节第*页本节共*页

lxylk

原帖由 leiyi 于 2008-12-13 18:13 发表
节内第几页不用VBA

如果能有详细的操作说明就好了。把表格复制到新的文档中，页码就都不对了。不知道该怎么用。水平太低呀，有高手详细说一下就好了。楼主2008年的贴，现在还能回复吗。

lichangming9999

想把第几节，本节第几页 本节共几页放于页眉中，但每节的页眉内容又不相同，请问能否办到？

banjinjiu

运行本程序，必须保证“节”>2，程序的结果为：在页眉处分2行显示，总第？页共？页，第？节本节第？页本节共？页。

1. Sub AllPages()
   
2.     Dim i As Section, myRange As Range, myBk As Bookmark, strBk As String
   
3.     Dim KeyRange As Range, BtLenth As Byte
   
4.     On Error Resume Next
   
5.     With ActiveDocument
   
6.         If .Sections.Count = 1 Then Exit Sub
   
7.         Application.ScreenUpdating = False
   
8.         For Each myBk In .Bookmarks
   
9.             If VBA.InStr(myBk.Name, "myBK_S") = 1 Then myBk.Delete
   
10.         Next
    
11.         For Each i In .Sections
    
12.             Set myRange = .Range(i.Range.Start, i.Range.Start)
    
13.             strBk = "myBK_S" & i.Index
    
14.             BtLenth = Len(strBk)
    
15.             .Bookmarks.Add strBk, myRange
    
16.             With i.Headers(wdHeaderFooterPrimary)
    
17.                 Set KeyRange = .Range
    
18.                 .LinkToPrevious = False
    
19.                 .Range.Text = "总第PAGE页共NUMPAGES页" & Chr(13) & "第SECTION节 ,本节第=PAGE-PAGEREF " & strBk & "+1页, 本节共SECTIONPAGES页"
    
20.                 Set KeyRange = .Range
    
21.                 KeyRange.SetRange KeyRange.Start + 38, KeyRange.Start + 38 + 8 + BtLenth
    
22.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
23.                 Set KeyRange = .Range
    
24.                 KeyRange.SetRange KeyRange.Start + 33, KeyRange.Start + 37
    
25.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
26.                 Set KeyRange = .Range
    
27.                 KeyRange.SetRange KeyRange.Start + 32, KeyRange.End - 20
    
28.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
29.                 Set KeyRange = .Range
    
30.                 KeyRange.SetRange KeyRange.End - 14, KeyRange.End - 2
    
31.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
32.                 Set KeyRange = .Range
    
33.                 KeyRange.SetRange KeyRange.Start + 19, KeyRange.Start + 26
    
34.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
35.                 Set KeyRange = .Range
    
36.                 KeyRange.SetRange KeyRange.Start + 8, KeyRange.Start + 16
    
37.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
38.                 Set KeyRange = .Range
    
39.                 KeyRange.SetRange KeyRange.Start + 2, KeyRange.Start + 6
    
40.                 KeyRange.Fields.Add KeyRange, wdFieldEmpty, , False
    
41.                 .Range.Fields.Update
    
42.             End With
    
43.         Next
    
44.     End With
    
45.     Application.ScreenUpdating = True
    
46. End Sub

复制代码

虽然使用程序比域多输入多少字符，但是能方便修改，具有可读性。

istu

Word MVP macropod有个域公式，不需vba，直接生成节页码。网址在 http://www.tech-archive.net/Archive/Word/microsoft.public.word.newusers/2009-07/msg00549.html

{QUOTE{IF{PAGE}= 1 {SET Section0 0}}
{IF{PAGE}<>{NUMPAGES} {IF{={SECTIONPAGES}+{REF {QUOTE Section{={SECTION}-1}}}}={PAGE} {SET {QUOTE Section{SECTION}} {PAGE}}}}
"Page {={PAGE}-{REF {QUOTE Section{={SECTION}-1}}}} of {SECTIONPAGES}"}

我试了几次，有时候可以，有时候不行。目前看问题似乎出在{SET Section0 0}是否运行上。还望高手研究下，以发挥这段代码的作用