word vba 怎么设置续上节

jurdy001

xiaoyouxi01 发表于 2019-6-15 19:29
Sub 续前节()
    Application.ScreenUpdating = False
    Dim oSection As Section, oHeaderFooter ...

谢谢老师  看来这个问题确实很棘手   代码不可靠

xiaoyouxi01

jurdy001 发表于 2019-6-15 22:41
谢谢老师  看来这个问题确实很棘手   代码不可靠

怎么不可靠？是哪里不行？

jurdy001

xiaoyouxi01 发表于 2019-6-15 22:49
怎么不可靠？是哪里不行？

比如我这里运行后  实际上第五节  并没有链接到前一节的页眉和页脚   导致后面的总页码也是错的   
但是手动点击 是可行的    vba则不行

xiaoyouxi01

jurdy001 发表于 2019-6-15 23:00
比如我这里运行后  实际上第五节  并没有链接到前一节的页眉和页脚   导致后面的总页码也是错的   
但 ...

我测试了你的文档，没有问题啊，第5节已经是续前节了~

jurdy001

xiaoyouxi01 发表于 2019-6-16 17:00
我测试了你的文档，没有问题啊，第5节已经是续前节了~

谢谢老师耐心帮助
可能是系统问题 我这里就是不靠谱
用了一个可靠但是低效率的方法  每节都select一下 就可以了  

413191246se

写了个蹩脚的 Do...Loop循环，未达到目的。参考了 xiaoyouxi01 朋友的代码，但最终未能满意，请试用：

1. Sub SectionLoop()
   
2.     Dim s As Section
   
3.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
4.     For Each s In ActiveDocument.Sections
   
5.         With s
   
6.             .Footers(wdHeaderFooterPrimary).LinkToPrevious = True
   
7.             With .Footers(wdHeaderFooterPrimary).PageNumbers
   
8.                 .NumberStyle = wdPageNumberStyleNumberInDash
   
9.                 .HeadingLevelForChapter = 0
   
10.                 .IncludeChapterNumber = False
    
11.                 .ChapterPageSeparator = wdSeparatorHyphen
    
12.                 .RestartNumberingAtSection = False
    
13.                 .StartingNumber = 0
    
14.             End With
    
15.         End With
    
16.     Next
    
17.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
18. End Sub

复制代码

jurdy001

413191246se 发表于 2019-6-21 11:00
写了个蹩脚的 Do...Loop循环，未达到目的。参考了 xiaoyouxi01 朋友的代码，但最终未能满意，请试用：

谢谢老师帮助  确实还是不行   最靠谱的还是每节select一下  虽然慢  但是可靠

xiaoyouxi01

jurdy001 发表于 2019-6-25 09:24
谢谢老师帮助  确实还是不行   最靠谱的还是每节select一下  虽然慢  但是可靠

我也遇到同样的问题了~

碰到一个文件，第3节的页脚没有链接到前一节

执行一次以下代码，msgbox输出的是false，结果显示第一句代码执行无效？！

1. 
   
2.     ActiveDocument.Sections(3).Footers(1).LinkToPrevious = True
   
3.     MsgBox ActiveDocument.Sections(3).Footers(1).LinkToPrevious

复制代码

将第一句代码运行两次后，msgbox输出的结果才是true

或者按楼主你说的，前面加一句 ActiveDocument.Sections(3).Range.Select 也可以得到正确结果

很奇怪，不知道什么原因。

xiaoyouxi01

jurdy001 发表于 2019-6-25 09:24
谢谢老师帮助  确实还是不行   最靠谱的还是每节select一下  虽然慢  但是可靠

楼主，你试试这个代码。看是否可行？

1. 
   
2. Sub 续前节()
   
3.     Application.ScreenUpdating = False
   
4.     Dim oSection As Section, oHeaderFooter As HeaderFooter
   
5.     For Each oSection In ActiveDocument.Sections
   
6.         For Each oHeaderFooter In oSection.Headers
   
7.             oHeaderFooter.LinkToPrevious = True
   
8.             oHeaderFooter.LinkToPrevious = True
   
9.         Next
   
10.         For Each oHeaderFooter In oSection.Footers
    
11.             oHeaderFooter.LinkToPrevious = True
    
12.             oHeaderFooter.LinkToPrevious = True
    
13.         Next
    
14.         With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
    
15.             .RestartNumberingAtSection = False
    
16.         End With
    
17.     Next
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

xiaoyouxi01

413191246se 发表于 2019-6-21 11:00
写了个蹩脚的 Do...Loop循环，未达到目的。参考了 xiaoyouxi01 朋友的代码，但最终未能满意，请试用：

413191246se 朋友你好~我测试了你的代码。
对于楼主提供的附件，代码运行后，存在一个问题：

有些地方并没有实现“链接到上一条页眉”，比如第5节页脚、第8节页脚。。。

而其他地方比如第6节页脚、第7节页脚。。。则有“链接到上一条页眉”。

不知道是什么原因出现这个问题。。