向守柔版主请教VBA实现判别页码删除与否的问题

seenosee

敬爱的守柔版主，很感谢您的 [原创并分享]批量WROD文档格式比较报告程序

我还增加了一点点小功能。

但是假如有这样一个小题目，就是标准文档里删除了第一页的页码，要判别作业文档里是否也

删除了第一页的页码，并给出正确的批改信息，这个用VBA应该如何实现呀？

我折腾了好久，实在是找不到合适的办法，只好又向您求助。盼望您给予解答。谢谢！

这是相关的附件（含程序文件，标准文档和作业文档）：

13zJCizg.rar (40.44 KB, 下载次数: 16)

2005-4-26 06:05 上传

点击文件名下载附件
向守柔版主请教VBA实现判别页码删除与否的问题

守柔

我做了个试例，你自己加进去吧，这种小程序，其实不难，只是太繁而矣，好象穷举法，一个一个对比，感觉不是特别爽。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-26 07:10:17 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() With ThisDocument '如果页眉页脚设置了奇偶页不同并且未选中首页不同的 If .PageSetup.OddAndEvenPagesHeaderFooter = True And .PageSetup.DifferentFirstPageHeaderFooter = False Then '如果第一节(此处即全文档,因仅一节)的第一页页脚不存在,则提示正确(即删除) If .Sections(1).Footers(wdHeaderFooterFirstPage).Exists = False Then MsgBox "与标准文档一致的页眉页脚设置!", vbInformation + vbOKOnly End If Else '反之,则提示错误 MsgBox "与标准文档不一致的页眉页脚设置!", vbExclamation + vbOKOnly End If End With End Sub '----------------------

moon929

页码不是域吗?可不可以检查是否有域代码PAGE,若存在则做得不对

seenosee

老大，好像不行呀，为什么不管我删不删除第一页的页码，

.Sections(1).Footers(wdHeaderFooterFirstPage).Exists

的值都是False 呀？

麻烦守柔版主帮我检查一下！谢谢！

v6l3XubY.rar (15.55 KB, 下载次数: 19)

2005-4-26 13:19 上传

点击文件名下载附件
向守柔版主请教VBA实现判别页码删除与否的问题

守柔

不好意思，不过，我弄明白了其中的道理。

请再试试这个：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-26 14:20:10 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Again() With ThisDocument '如果页眉页脚设置了奇偶页不同并且未选中首页不同的 If .PageSetup.OddAndEvenPagesHeaderFooter = True And .PageSetup.DifferentFirstPageHeaderFooter = False Then '如果第一节(此处即全文档,因仅一节)的第一页页脚不存在,则提示正确(即删除) If Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range) < 2 Then MsgBox "与标准文档一致的页眉页脚设置!", vbInformation + vbOKOnly Else MsgBox "与标准文档不一致的页眉页脚设置!", vbExclamation + vbOKOnly End If Else '反之,则提示错误 MsgBox "与标准文档不一致的页眉页脚设置!", vbExclamation + vbOKOnly End If End With End Sub '----------------------

seenosee

哇，可以了耶！守柔真厉害！

还向您请教一下：

为什么如果页码存在，Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)的值为3；

而当页码删除后，Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)的值为1呢？

Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)它具体表示的是什么东西的什么数据呢？

麻烦博学的守柔朋友赐教！多谢！

咦，怎么发帖表情里没花，我想给您带花！

守柔

如果第一节的首页页眉脚未编辑过，就没有这个标记，其.EXISTS为FALSE,但假如进入过页眉页脚,其会显示段落标记,其.EXISTS为TRUE(即使删除,已是经过"初始化"了),所以,上述代码不行.

而<2,其实就是包括的一个段落标记(CHR(13)),即既初始化了,又删除了,没有可打印字符的页眉(此处特指第一节的主页脚)

LEN(CHR(13))=1

seenosee

哦，敬爱的守柔朋友，

是不是要这样理解吗？

Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)

表示的是第一页的页脚的域宽。

当没有设置页码时，它实际是求出的是段落结束符所占域宽，所以值为1；

当设置了页码时，它实际是求出的是 “段落结束符 +页码值（一个整数）“

所占域宽，所以值为1+2=3

是这样理解的吗？请高手守柔朋友指点。谢谢！

seenosee

敬爱的守柔朋友呀，

Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)它具体表示的是什么东西的什么数据呀？

为什么如果页码为1，Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)的值为3；

而当如果页码为11，Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)的值为4；

而当如果页码为111，Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)的值为5呢？

它究竟是怎么计算出来的呀？

还敬请您给个明示呀！谢谢！

[此贴子已经被作者于2005-4-27 19:11:54编辑过]

守柔

我在7楼已经写得非常明确了!

你检查一下,你的页码中,是否包含空格.

LEN是计算字符长度;

RANGE是代表一个区域,在WORD中,小到一个光标,大到整篇文章,都是一个RANGE对象,RANGE对象包括两个点,从起点(.START)到终点(.END),当END=START时,就是一个光标.

Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range)这句代码的含义就是返回主页脚区域的文本长度,其中,此处省略了RANGE的默认属性.TEXT

其等同于Len(.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text)