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

gdqb521 · 发表于 2007-5-13 11:43

你的代码很不错,能正常运行,现有几个问题?

1.你在代码中是否可以直接设置显示文字的格式?

2.你的代码的意思如何?能够给各注释,便于交流和学习!

3.如果我的封面和目录不要页眉,怎么实现?

carol-pig · 发表于 2008-9-2 10:56

看了版主的方法，正是我所需要的，可是不会设置书签和运行宏啊，谁教教我怎么用啊，我就需要每节的：共页，第页，其中第页是节中的页码，具体怎么设置呢

pwkduke · 发表于 2008-12-9 16:31

能不能直接用域代码写出某一页在本节中的页码

leiyi · 发表于 2008-12-13 12:59

Ｗord 2003用域可实现，第二节时节内第几页设为不连续就可以，

我现在想在表格右下角指定的位置（像域加到任意位置字符之间）自动添加节内第几页，保存或打印时自动更新

版主的代码学习了一下，但不会改到文档别的位置

leiyi · 发表于 2008-12-13 18:13

节内第几页不用VBA

pwkduke · 发表于 2008-12-15 16:50

我是想加在页眉里的，楼上的方法是不是只适用于正文内。版主的宏只能把把页眉设置能固定的格式，因为如果页眉中有表格的话，用VBA实现比较困难，能不能采用改写方式，把页眉中的某一段文字改成“本节第几页共几页”的内容。这样可以先在页眉上画好表格，把鼠标停在表格的某处，点击宏，把对应的域代码写入该单元格内。不知版主能不能实现？

ningyong58 · 发表于 2010-1-28 20:20

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

{NUMPAGES \* MERGEFORMAT}
{PAGE \* MERGEFORMAT }
{=SUM(10,-10,1) \* MERGEFORMAT
域可以这样用

tangqingfu · 发表于 2010-8-10 23:54

如果要将各节中的页码显示样式改为“第*页，共*页”的样式，请教该如何修改代码？
将
.Range.Text = "总第PAGE页共NUMPAGES页" & Chr(13) & "第SECTION节, 本节第=PAGE-PAGEREF " & strBk & "+1页, 本节共SECTIONPAGES页"
改为
.Range.Text ="第=PAGE-PAGEREF " & strBk & "+1页, 共SECTIONPAGES页"
发现出错了。

[ 本帖最后由 tangqingfu 于 2010-8-10 23:58 编辑 ]

renqiang851224 · 发表于 2010-8-11 00:16

历害了,版主

biaotiger1 · 发表于 2010-8-11 00:30

很久以前遇到章内分节的问题
也是质量手册排版问题

记得是用书签的办法搞定的
学习下老大做法

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

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

试过了，在页眉上可加

用域和书签、公式实现

回复 1楼守柔的帖子

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

试过了，在页眉上可加

用域和书签、公式实现

回复 1楼 守柔 的帖子

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

回复 1楼守柔的帖子