word域代码插入页码。要求既有当前节第几页，又有文档的第几页

yym_0114 · 发表于 2022-9-19 15:07

使用域代码给word文档插入页码时遇到一个问题，既需要当前节的第X页，共Y页，也需要整篇文档的总第M页，共N页。

我用{PAGE}和{SECTIONPAGES}，来获取当前节的第X页，共Y页；用{PAGE}和{NUMPAGES}来获取整篇文档的总第M页和共N页。这样操作在第一节是没问题的，但到了第二节及以后，{PAGE}获取的还是当前节的当前页，不是整篇文档的第M页。我尝试过，通过修改页码格式，把“续前节”改为“从n开始”，但也不起作用。

我现在的解决方法是，在域代码中手动输入第一节结束时的页码，加上{PAGE}，得到当前文档的“总第M页”。但这样操作的缺点是，如果上一节增减页数，这里的“总第M页”不会跟着发生变化，就会出错。在附件中，第三节我特意没有修改前节的总页数，留了一个错误示例。我希望使用域代码，让文档的“总第M页”可以随文档的编辑动态变化。

盼解答多谢！

413191246se · 发表于 2022-9-19 16:41

本帖最后由 413191246se 于 2022-9-20 19:23 编辑

略。。。。

yym_0114 · 发表于 2022-9-20 10:17

413191246se 发表于 2022-9-19 16:41

不是双栏页码。是在页脚处插入页码，用“第x页，共y页。总第m页，共n页。”的格式来表示。x和y表示当前节的页数，x是在当前节中的当前页，y是当前节的总页数；m和n表示整个文档的页数，m是当前在整个文档的页码，n是整个文档的总页数。这个需求，用域代码可以实现吗？

yym_0114 · 发表于 2022-9-20 10:37

413191246se 发表于 2022-9-19 16:41

实测了一下，可以达到效果。我再多试几次看看

413191246se · 发表于 2022-9-23 23:48

本帖最后由 413191246se 于 2022-9-24 11:58 编辑

* 楼主，经过最近几天反复思考，问题就出在两个“PAGE”域上！改一个另一个也自动更改，最后，我决定还是从公式入手，将“PAGE”域起始号码 1 加上前一节的页码，这也和你的思想是一致的。现在宏运行结果，看来只能说是成功了一半！毛病就在于宏处理后，页脚显示是正常的，但是要是哪个节（Section）页码有增减，“总第M页”这里是不会自动更新的，必须重新运行一次宏才会正常。如果你想追求完美（自动更新），需要等待高手出马了（不过我觉得已经不错了，改一次运行一次宏也无妨）。——请试用：

Sub PageNumber_SectionPages()
'第 X 页，共 Y 页／总第 M 页，总共 N 页
Dim i&, j&, k&
With ActiveDocument
j = .Sections.Count
For i = 1 To j
If i > 1 Then k = ActiveDocument.Sections(i - 1).Range.Information(wdActiveEndPageNumber)
With .Sections(i)
With .Footers(1)
.Range.Delete
.Range.Font.Size = 42 '页脚字号（请自行调整）
End With
.Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
With Selection
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText Text:="第 "
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
.TypeText Text:=" 页，共 "
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:= _
"SECTIONPAGES ", PreserveFormatting:=True
.TypeText Text:=" 页／总第 "
If i = 1 Then
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
Else
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
.TypeText Text:="="
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
.TypeText Text:="PAGE"
.MoveRight 1, 2
.TypeText Text:="+" & k
.Range.Fields.ToggleShowCodes
.EndKey
End If
.TypeText Text:=" 页，总共 "
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:= _
"NUMPAGES ", PreserveFormatting:=True
.TypeText Text:=" 页"
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
If i > 1 Then
With .Footers(1)
.LinkToPrevious = False
With .PageNumbers
.RestartNumberingAtSection = True
.StartingNumber = 1
End With
End With
End If
End With
Next
End With
Selection.HomeKey 6
MsgBox "Complete!", 0 + 48
End Sub

复制代码

sylun · 发表于 2022-9-24 22:01

可结合书签进行设置，在每节起始位置插入一个书签，书签命名规则为“sec"+节编号，如sec1，则页脚含域代码的文本为：

第

{={ page }-{ pageref "sec{ section }" }+1 }

页，共

{sectionpages }

页。总第

{ page }

页，共

{numpages }

页。宏代码：

Sub test()
'同时显示节内页码和文档总页码
Dim i%, n%, achar, codetext
Dim aSec As Section
achar = Array(15, 11, 6, 2)
codetext = Array("numpages", "page", "sectionpages", "=page-pageref ""secsection""+1")
For Each aSec In ActiveDocument.Sections
i = i + 1
With aSec.Range '每节开头插入一个指定名称的书签
.Collapse wdCollapseStart
ActiveDocument.Bookmarks.Add "sec" & i, .Duplicate
End With
If aSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = False Then '如果指定页脚与前一节不同
With aSec.Footers(wdHeaderFooterPrimary).Range
.Text = "第x页，共y页。总第m页，共n页"
For n = 0 To 3
.Fields.Add .Characters(achar(n)), , codetext(n), False
Next
With .Fields(1).Code
.SetRange .Start + 7, .Start + Len(.Text) - 3
.Fields.Add .Duplicate, , .Text, False
.SetRange .Start - 5, .Start + Len(.Text) - 1
.Fields.Add .Duplicate, , .Text, False
End With
With .Fields(3).Code
.SetRange .Start + 13, .Start + Len(.Text) - 2
.Fields.Add .Duplicate, , .Text, False
End With
.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End If
Next
End Sub

复制代码

413191246se · 发表于 2022-9-25 13:14

sylun 兄：你的代码测试了，后三项都正确，唯独第一个域（包括3个）“第X页”不正确！“总第M页”在第一节增加一页后，测试仍然正确。我准备下午用笔记本电脑修改一下第一个域，但刚才在我联想大电脑上修改半天，未达到目的，原因在于：你不是像我一样用录制宏一样的代码来表达域，你直接用 .Range，我是录制宏方法进入页脚，填写后再退出页脚返回主文档（.wdSeekMainDocument）。还有，你代码中多处有“.duplicate”，我虽然知道它是复制的意思，但不知道这样用是为什么。现在问题不大，只是第一个域有问题，就是加这个域的双大花括号的位置问题。

413191246se · 发表于 2022-9-25 19:24

本帖最后由 413191246se 于 2022-10-2 20:26 编辑

* sylun 兄：今天下午折腾了 3 个小时，没有搞定！晚上刚才又折腾好一会儿，也没搞定。
* 下面的代码，是在兄台的代码基础上修改的，因为这个“.duplicate”实在搞不定！我只好用录制宏的方法插入域了，但是发现，执行宏后保存退出，再打开，页脚不正确！——兄台有空的话，请给看看，我实在搞不定了。

sylun · 发表于 2022-10-1 11:31

413191246se 发表于 2022-9-25 13:14
sylun 兄：你的代码测试了，后三项都正确，唯独第一个域（包括3个）“第X页”不正确！“总第M页”在第一节 ...

前面的域代码只用于需要设置的节的页码是连续设置的情形，这是通常的做法（其实就是需要计算节内页码），如果中间有重新设置起始页码的，就不适用，这其实从代码文本中{page}出现的位置就可看出来。如果一定要每节重新设置起始页码，可试试如下域代码（计算并显示所谓的总页编号），此时不需要插入书签并用pageref域，但需要用到set域，且每节用于插入页码的页眉或页脚需要与前一节断开链接，不建议用此法：
起始节：{quote {set "sec{section}" {sectionpages}}{page}}
之后的其他节：{quote {set "sec{section}" {={"sec{={section}-1}"}+{sectionpages}}}{={"sec{section}"}-{sectionpages}+{page}}}

413191246se · 发表于 2022-10-2 20:35

* sylun 兄：国庆节快乐！辛苦了！——昨天，录制了第一节的域代码，折腾一会儿成功了。今天，又录制了第二节的域代码，报错。另外，说实在的，这些域代码放在一起，我也看不出来是什么意思，感觉好麻烦。
* 如果楼主需要，我建议暂时使用我 5 楼的代码，每次修改文档完毕后，再运行一次宏即可保存。
* 我想放弃本帖的解答了，我的主要兴趣还是公文自动排版。
* 下面是我录制的宏的域代码（第二节），你看看是否有错：（建议你也不要多用精力了，好好休息！）

		自动登录	找回密码
密码			免费注册

[求助] word域代码插入页码。要求既有当前节第几页，又有文档的第几页