LinktoPrevious失败，困扰1个月

herry5871

    With doc.Sections(3)  
        .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
        .Headers(wdHeaderFooterPrimary).Range.InsertAfter "某某报告"
        .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphRight      'wdAlignPageNumberRight
        .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
        .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True         '不续前节，每个节的页码都重新编号
        .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter
    End With

文档有3个节，上文主要把第3节设置页眉和页脚，但是执行到上文第一句话出错，提示前面没有节。。。LinkToPrevious总是出错，怎么回事（有时候执行又对了，感觉word vba有点六脉神剑时灵时不灵的）当前word是office365，win11系统

拜托大神知道的不吝赐教，解决我的困扰

413191246se

楼主，你可以用 For ... Next 结构从第 2 节开始循环遍历各个节（Section）,这样第 1 节就不会出错了！而不必使用 For Each ... Next 结构来循环。或声明语句前加一句：On Error Resume Next 也可以。