ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5366|回复: 15

如何设置“第X节 共Y节”的自动图文集词条?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-7-11 17:35 | 显示全部楼层 |阅读模式
有一份协议,共2页,需要打印三份,我想在每份的页脚处插入一个“第X份 共Y份”的自动图文词条,现在我采用在文档末尾手工插入分节符+复制粘贴的方法把这份协议在一篇文档里分成了三份(每份2页),然后在页脚区插入“域”——选择“编号”类别中的“Section”,即“插入当前节号”,插入之后在页眉页脚工具栏中把文档中节与节之间的关系都设置为“链接到前一个”,这样即能实现自动填入“第?份”的目的(也就是第?节),可惜没有“共?份”的域指令——即文档的节数。不过好在手工输入并不麻烦,因为节是手工分的,我当然知道有几节(按Ctrl+End键到文档末尾,状态栏上也会有显示),所以手工填上数字就可以了。 遗憾的是我不能新建一个这样的自动图文集词条:“第X份 共Y份”,只能建一个“第X份"的词条,“共Y份”就要靠手工输入了,尽管并不麻烦,但还是有些遗憾……望高手赐教。

TA的精华主题

TA的得分主题

发表于 2005-7-11 18:25 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-11 19:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

已看到,非常感谢,为方便其他有兴趣的朋友共享,特在此转贴,原文如下:

如分节是相等的, 可以变形域:{ ={ numpages }/{ sectionpages } } 这个是总页数除以每节的总页数,即等于节数,即共Y份的Y。 are you oK?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-11 23:17 | 显示全部楼层
再问一个问题:在设置了多个节(分节是相等的)的文档中插入页码,则页码格式默认是“续前节”,而我要每一节重新排列页码-—即每一节的页码都从1开始,因此不得不在每一节中反复设置页码格式(重新设定起始页码),我已尝试把已经设置好页码格式的词条加入到自动图文集里,但在重新插入次词条时页码格式默认依然是“续前节”,这个问题怎样解决呢?谢谢……

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-12 21:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-7-13 07:10 | 显示全部楼层

如果"有一份协议,共2页,需要打印三份,我想在每份的页脚处插入一个“第X份 共Y份”的自动图文词条"这样固定的话

你可以试用这个:

变形域代码为: 第 { IF { PAGE } < 3 1 { IF { PAGE } < 5 2 3} } 份 共 { = { NUMPAGES } /2 } 份'这是第X份共Y份

第 { IF { =MOD({ PAGE },2) } = 1 1 2 } 页 共 2 页'这是第X页第2页

你再试一下.

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-13 12:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

不是这样固定,下一份协议可能是3页,打印8份,我建自动图文集词条的目的是:在文档被平均分节的情况下,该词条能够自动插入总节数,当前节号,本节的总页数,以及当前节的当前页码(每节的起始页码从1开始),烦请版主不吝赐教……

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-13 12:32 | 显示全部楼层
现在我建的词条是这样的:“本协议共{ ={ numpages }/{ sectionpages } }份 每份共{sectionpages}页 当前为第{Section}份 第{ PAGE }页”,现在前三项都没问题,只是最后一项按默认显示是“续前节”,而我想让每节的页码重新计数……

TA的精华主题

TA的得分主题

发表于 2005-7-13 12:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

这个比较麻烦,要用一点数学知识。给我想想。

想好了,就是她了:

{ if { page } <= { sectionpages } { page } { = { page} –{sectionpages} * ({section } -1 ) } }

如果page页数小于等于节的总页数,则页数就显示页数page,否则,节的页数减去数(所在节数-1),因为第二个才出现否则嘛。

思路叁见老大的贴子

[此贴子已经被作者于2005-7-13 13:32:11编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-13 14:21 | 显示全部楼层
想了半个小时还没想明白,我再想想……
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 10:42 , Processed in 0.044544 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表