怎么在word文档中从第2页开始设置页眉？

liling199

代码运行时是全部页面都设置页眉，包含了第1页，不是从第2页开始的，怎么修改才行呢？

  

子程序名	返回值类型	公开	备 注
设置页眉
参数名	类 型	参考	可空	数组	备 注
内容	文本型
对齐方式	整数型

变量名	类 型	静态	数组	备 注
Sections	对象
Headers	对象

Sections ＝ word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Sections”, ).读对象型属性 (“Item”, 1)  ' 取第一个节
word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).方法 (“InsertBreak”, “wdSectionBreakNextPage”)
Headers ＝ Sections.读对象型属性 (“Headers”, ).读对象型属性 (“Item”, 1)  ' 1 wdHeaderFooterPrimary
Headers.写属性 (“LinkToPrevious”, 假)  ' 断开新节页眉与前一节页眉的链接
Headers.读对象型属性 (“Range”, ).写属性 (“text”, 内容)
Headers.读对象型属性 (“Range”, ).读对象型属性 (“Paragraphs”, ).读对象型属性 (“Format”, ).写属性 (“Alignment”, 对齐方式)

.版本 2<br /> <br /> .子程序 设置页眉, , 公开<br /> .参数 内容, 文本型<br /> .参数 对齐方式, 整数型, 可空<br /> .局部变量 Sections, 对象<br /> .局部变量 Headers, 对象<br /> <br /> Sections ＝ word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Sections”, ).读对象型属性 (“Item”, 1)  ' 取第一个节<br /> word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).方法 (“InsertBreak”, “wdSectionBreakNextPage”)<br /> Headers ＝ Sections.读对象型属性 (“Headers”, ).读对象型属性 (“Item”, 1)  ' 1 wdHeaderFooterPrimary<br /> Headers.写属性 (“LinkToPrevious”, 假)  ' 断开新节页眉与前一节页眉的链接<br /> Headers.读对象型属性 (“Range”, ).写属性 (“text”, 内容)<br /> Headers.读对象型属性 (“Range”, ).读对象型属性 (“Paragraphs”, ).读对象型属性 (“Format”, ).写属性 (“Alignment”, 对齐方式)

圆圈

页眉页脚有个设置叫“首页不同”可以实现第二页开始出现页码，你找找这个功能实现的代码

liling199

已解决
检查发现方法参数似乎不接受“wdSectionBreakNextPage”的写法，且下面的节点不应该取第1个，应该找第2个节点为新节点
以下是修改后的源码

  

子程序名	返回值类型	公开	备 注
设置页眉
参数名	类 型	参考	可空	数组	备 注
内容	文本型
对齐方式	整数型

变量名	类 型	静态	数组	备 注
Sections	对象
Headers	对象

word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).方法 (“InsertBreak”, 2)
Sections ＝ word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Sections”, ).读对象型属性 (“Item”, 2)  ' 1 wdHeaderFooterPrimary
Headers ＝ Sections.读对象型属性 (“Headers”, ).读对象型属性 (“Item”, 1)
Headers.写属性 (“LinkToPrevious”, 假)  ' 断开新节页眉与前一节页眉的链接
Headers.读对象型属性 (“Range”, ).写属性 (“text”, 内容)
Headers.读对象型属性 (“Range”, ).读对象型属性 (“Paragraphs”, ).读对象型属性 (“Format”, ).写属性 (“Alignment”, 对齐方式)

.版本 2<br /> <br /> .子程序 设置页眉, , <br /> .参数 内容, 文本型<br /> .参数 对齐方式, 整数型, 可空<br /> .局部变量 Sections, 对象<br /> .局部变量 Headers, 对象<br /> <br /> word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).方法 (“InsertBreak”, 2)<br /> Sections ＝ word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Sections”, ).读对象型属性 (“Item”, 2)  ' 1 wdHeaderFooterPrimary<br /> Headers ＝ Sections.读对象型属性 (“Headers”, ).读对象型属性 (“Item”, 1)<br /> Headers.写属性 (“LinkToPrevious”, 假)  ' 断开新节页眉与前一节页眉的链接<br /> Headers.读对象型属性 (“Range”, ).写属性 (“text”, 内容)<br /> Headers.读对象型属性 (“Range”, ).读对象型属性 (“Paragraphs”, ).读对象型属性 (“Format”, ).写属性 (“Alignment”, 对齐方式)

补充内容 (2024-8-2 11:10):
不知道为什么，换其他电脑后  Headers.写属性 (“LinkToPrevious”, 假)  不能断开链接