SOS 高手攻略：页眉和页脚的另类问题!!!

tangqingfu

以下是引用竹叶青在2005-3-9 11:14:00的发言：

在8开的最后一页按如下方式插入分节符：(分节符、奇数页)

[此贴子已经被作者于2005-3-11 0:30:10编辑过]

竹叶青

是的，要加等号。谢谢。

竹叶青

以下是引用ykhy在2005-3-10 22:23:00的发言：

“如果前面８开的纸不是偶数页的话，那么在８开与１６开的纸之间会插入一个隐藏的偶数”，我没有发现这种现象。注意，在我修改的文档中没有使用“奇偶页不同”，否则可能不能成功设置你所需的页码样式，特别是使用你所采用的密封线样式时（实为在页眉页脚中放置密封线，故“奇偶页不同”就会对密封线产生影响，），所以我修改了你的密封线样式，使之互不冲突；无论８开与１６开的纸有多少页都没有关系，甚至你再增加几个不同类型的纸型节也没事。

密封线受“对称页边距”控制，页码受“奇偶页不同”控制。

你可能使用了“奇偶页不同”。

传个附件看看，可以吗？………………

你８楼的附件打不开。提示如下：

[此贴子已经被作者于2005-3-11 9:04:48编辑过]

tangqingfu

以下是引用竹叶青在2005-3-11 8:58:00的发言： > 传个附件看看，可以吗？………………

你８楼的附件打不开。提示如下：

我也是出现同样的问题,不过很多人可以打开这个附件,我同事上的电脑就可以打开这个附件,他将这个附件改名后传给我,还是打不开,不知是怎么回事???

ykhy

8楼中的附件给大家带来不便，深感歉意。现没有使用楼主的文档重新做了一个，只涉及页码。页码部份已能满足楼主的要求，请测试。希望守版主能用VBA代码制作一下。

复杂页码设置 要求：分两节，第一节为8开纸、二栏，每栏均有页码；第二节，16开纸，一栏，一个页码。页码要求两节连续，总页数正确。表达困难，见页脚。

这里没有讨论密封线设置。

第一节页码设置：

第{ ={PAGE}*2-1} 共{ ={ NUMPAGES }+{ SECTIONPAGES \* MERGEFORMAT }}页 第{ ={PAGE}*2} 共{ ={ NUMPAGES }+{ SECTIONPAGES \* MERGEFORMAT }}页

其中，\* MERGEFORMAT用于更新时保留格式，一般可删除。

含义：

当前页码 = {PAGE}

总页数={ NUMPAGES }，WORD之总页数

当前节的页数={ SECTIONPAGES \* MERGEFORMAT }

第几页：

当前页码*2-1 =第一栏页码

当前页码*2 =第二栏页码

共几页：总页数 + 当前节的页数 = 所有页总页数

第二节页码设置：

设置为,起始页码为1,与上一节不同

第{ ={PAGE}+({ NUMPAGES }-{ SECTIONPAGES \* MERGEFORMAT })*2}页 共{ ={ NUMPAGES }*2-{ SECTIONPAGES \* MERGEFORMAT }}页 本行修改过,简化 其中，\* MERGEFORMAT用于更新时保留格式，一般可删除。 含义： 当前页码 = {PAGE} 总页数={ NUMPAGES }，WORD之总页数 当前节的页数={ SECTIONPAGES \* MERGEFORMAT } 第几页： （总页数 – 当前节的页数）= 前一节的WORD页数 （总页数 – 当前节的页数）*2 = 前一节分栏页数 当前页码+（总页数 – 当前节的页数）*2 = 与前一节连续的页码 共几页： （总页数 – 当前节的页数）*2+当前节的页数 = 所有页总页数

另：设置“对称页边距”后，所有页总页数会增加1，请相应减1。

附件先用WINRAR压缩，方可上传，打不开别砸我。但DOC文档[36K]不能直接上传，提示“文件类型不正确”。

win98+office2000

CrRshNvM.rar (4.55 KB, 下载次数: 13)

2005-3-12 21:00 上传

点击文件名下载附件
复杂页码设置

[此贴子已经被作者于2005-3-13 12:44:58编辑过]

ykhy

加入密封线后结果。当设置为“对称页边距”后，页数可能会多1页，可在预览中看到，页数改为“共{ ={ NUMPAGES }+{ SECTIONPAGES \* MERGEFORMAT }-1}页” ；使用了“奇偶页不同”，须修改6处；第二节偶数页中右密封线不正常，如果楼主第二节只有一页，可以使用。

按这种方法我只能改成这样，望高手们继续努力！

win98+office2000

WuVMaI4Y.rar (8.67 KB, 下载次数: 7)

2005-3-12 23:12 上传

点击文件名下载附件

[此贴子已经被作者于2005-3-12 23:14:35编辑过]

tangqingfu

以下是引用ykhy在2005-3-12 16:22:00的发言：

8楼中的附件给大家带来不便，深感歉意。现没有使用楼主的文档重新做了一个，只涉及页码。页码部份已能满足楼主的要求，请测试。希望守版主能用VBA代码制作一下。

复杂页码设置 要求：分两节，第一节为8开纸、二栏，每栏均有页码；第二节，16开纸，一栏，一个页码。页码要求两节连续，总页数正确。表达困难，见页脚。

这里没有讨论密封线设置。

第一节页码设置：

第{ ={PAGE}*2-1} 共{ ={ NUMPAGES }+{ SECTIONPAGES \* MERGEFORMAT }}页 第{ ={PAGE}*2} 共{ ={ NUMPAGES }+{ SECTIONPAGES \* MERGEFORMAT }}页

其中，\* MERGEFORMAT用于更新时保留格式，一般可删除。

含义：

当前页码 = {PAGE}

总页数={ NUMPAGES }，WORD之总页数

当前节的页数={ SECTIONPAGES \* MERGEFORMAT }

第几页：

当前页码*2-1 =第一栏页码

当前页码*2 =第二栏页码

共几页：总页数 + 当前节的页数 = 所有页总页数

第二节页码设置：

设置为,起始页码为1,与上一节不同

第{ ={PAGE}+({ NUMPAGES }-{ SECTIONPAGES \* MERGEFORMAT })*2}页

共{ =({ NUMPAGES }-{ SECTIONPAGES \* MERGEFORMAT })*2 + { SECTIONPAGES \* MERGEFORMAT }}页

其中，\* MERGEFORMAT用于更新时保留格式，一般可删除。

含义：

当前页码 = {PAGE}

总页数={ NUMPAGES }，WORD之总页数

当前节的页数={ SECTIONPAGES \* MERGEFORMAT }

第几页：

（总页数 – 当前节的页数）= 前一节的WORD页数

（总页数 – 当前节的页数）*2 = 前一节分栏页数

当前页码+（总页数 – 当前节的页数）*2 = 与前一节连续的页码

共几页：

（总页数 – 当前节的页数）*2+当前节的页数 = 所有页总页数

附件先用WINRAR压缩，方可上传，打不开另砸我。但DOC文档[36K]不能直接上传，提示“文件类型不正确”。

win98+office2000

谢谢你的详细说明,域代码很长,需要好好思考才能消化吸收,不知你这种设置能否适用于8开纸奇数页的密封线(包含学校,姓名,座号等)在左边,偶数页的密封线(不包含学校,姓名,座号等)在右边;16开纸的奇数页(如第一页)的密封线(包含学校,姓名,座号等)在左边,偶数页(如第二页)的密封线(不包含学校,姓名,座号等)在右边,试卷打印时正反两面的密封线重合的情况. ? 如可行的话,再次麻烦详细说明!!!

ykhy

请参照26楼附件。你可将密封线改为你原来的样式，只是第二节偶数页的密封线不太正常，位置太靠右了，第一节偶数页正常了第二节的偶数页就不正常，反之亦然。如果你使用我8楼中使用的密封线样式，应该可以解决。需要制作3个密封线自动图文集，左边一个，右边8开的一个、16开的一个，其中右边的两个图形为同一个，但图文集中的位置不一样，可以在打印前或排版完成后再加入。打印时正反两面能否重合，这要看你的调试情况和打印机的质量，一般每次打印都会有点偏移。

两种密封线样式各有特点，一般在只有一种纸型的页面中使用页眉页脚加入密封线的方式较方便，但在多纸型的页面中应使用我介绍的方式；即将密封线绘制成图形，插入到文档（将图形格式设置为“四周型”，否则你的图形可能无法移到页边距内），调整图形位置到所需位置，然后建立为“自动图文集”。对固定样式的文档，可用VBA编程后自动插入。

“自动图文集”可以是“图”，也可以是“文字”，并且包含了它们的格式，如图形的“格式”（大小、位置、型等）均会被记录下来，利用记录正确的“自动图文集”插入后，无须再次调整。

不过，我判断楼主的文档，此类答题纸一般只有一页，可以凑合；如果出现2页，可将16开改为8开，这样密封线就能正常。出此下策，不知可否？

[此贴子已经被作者于2005-3-13 13:37:51编辑过]

tangqingfu

以下是引用ykhy在2005-3-13 13:36:00的发言：

请参照26楼附件。你可将密封线改为你原来的样式，只是第二节偶数页的密封线不太正常，位置太靠右了，第一节偶数页正常了第二节的偶数页就不正常，反之亦然。如果你使用我8楼中使用的密封线样式，应该可以解决。需要制作3个密封线自动图文集，左边一个，右边8开的一个、16开的一个，其中右边的两个图形为同一个，但图文集中的位置不一样，可以在打印前或排版完成后再加入。打印时正反两面能否重合，这要看你的调试情况和打印机的质量，一般每次打印都会有点偏移。

两种密封线样式各有特点，一般在只有一种纸型的页面中使用页眉页脚加入密封线的方式较方便，但在多纸型的页面中应使用我介绍的方式；即将密封线绘制成图形，插入到文档（将图形格式设置为“四周型”，否则你的图形可能无法移到页边距内），调整图形位置到所需位置，然后建立为“自动图文集”。对固定样式的文档，可用VBA编程后自动插入。

“自动图文集”可以是“图”，也可以是“文字”，并且包含了它们的格式，如图形的“格式”（大小、位置、型等）均会被记录下来，利用记录正确的“自动图文集”插入后，无须再次调整。

不过，我判断楼主的文档，此类答题纸一般只有一页，可以凑合；如果出现2页，可将16开改为8开，这样密封线就能正常。出此下策，不知可否？

感谢ykhy的一再帮助,由于平时对自动图文集没什么用,对其功能了解不多,如何建立"自动图文集"不知如何下手, 如何建立"自动图文集"和 如何灵活运用"建立的'自动图文集'"的问题还请多多指教.

[此贴子已经被作者于2005-3-13 22:59:18编辑过]

ykhy

对25、26楼再次修改。为避免共几页出现多1页的情况，使用“条件域”判断页码情况，自动调整；提醒：输入域时注意空格，“ = 0”中的=前后各有一个空格。

条件域：{ if 条件 "条件为真时字符" "条件为假时字符"} 具体请参阅WORD相关帮助

第一节修改为：

共{ if { = mod({ SECTIONPAGES },2) } = 0 { ={ NUMPAGES } - { SECTIONPAGES }} { ={ NUMPAGES }+ { SECTIONPAGES }-1 } }页

第二节修改为： 共{ if { = mod({ NUMPAGES }-{ SECTIONPAGES },2) } = 0 { =({ NUMPAGES } - { SECTIONPAGES })*2+{ SECTIONPAGES } } { =({ NUMPAGES } - { SECTIONPAGES })*2+{ SECTIONPAGES }-1 } }页

其中{ = mod({ xxxxxx },2) } = 0判断是否为偶数

至于密封线，第一节的左、右和第二节的奇数页可使用在页眉页脚中加入，第二节的偶数页使用“自动图文集”在正文中加入（有偶数页即加，可在VBA中判断），两者结合即可完美解决。

恕不提供附件。

[此贴子已经被作者于2005-3-15 0:07:44编辑过]