急！word2016页码的问题

ymcly2009

各位大侠好，有一份招标文件，在这份招标文件的基础上增减内容生成投标文件后，插入页码，因为有很多页，但是有的页显示页码，有的不显示，很没有规律，有什么办法清除一下，再插入页码吗？因为涉及的是标书，就不上传文件了，谢谢！

kuangben8

清理页脚，重新插入页码

ymcly2009

kuangben8 发表于 2020-8-27 22:20
清理页脚，重新插入页码

非常感谢您的回复，如何清除页脚，因为有的页码位置是空的，页脚位置也是空的，谢谢！

wxw_1230

清理页脚，里面可能有分节，重新链接。

cuanju

删除原页脚后重新插入页码
========
Sub dm555()
    Rem 批量清除原页脚
    For Each oSec In ActiveDocument.Sections
        With oSec.Footers(wdHeaderFooterPrimary)
            .Range.Select
            Selection.Delete
        End With
    Next
    Rem 页脚链接到前一节
    For Each oSec In ActiveDocument.Sections
        oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
    Next
    ActiveDocument.ActiveWindow.View = wdPrintView
    ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveDocument.ActiveWindow.View = wdPrintView
    Rem 插入页码
    With ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageFooter
        With Selection
            .Expand wdStory
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Fields.Add .Range, wdFieldPage
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .WholeStory
            .Font.Name = "Times New Roman"
        End With
        .SeekView = wdSeekMainDocument
    End With
End Sub

ymcly2009

cuanju 发表于 2020-8-29 17:47
删除原页脚后重新插入页码
========
Sub dm555()

都太厉害了

cuanju

cuanju 发表于 2020-8-29 17:47
删除原页脚后重新插入页码
========
Sub dm555()

Sub 复杂文档删除原页脚并插入页码()
    Application.ScreenUpdating = False
    Rem 批量清除原页脚
    For Each oSec In ActiveDocument.Sections
        With oSec.Footers(wdHeaderFooterPrimary)
            .Range.Select
            Selection.Delete
        End With
    Next
    Rem 页脚链接到前一节
    For Each oSec In ActiveDocument.Sections
        oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
    Next
    ActiveDocument.ActiveWindow.View = wdPrintView
    ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveDocument.ActiveWindow.View = wdPrintView
    Rem 插入页码
    With ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageFooter
        With Selection
            .Expand wdStory
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Fields.Add .Range, wdFieldPage
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .WholeStory
            .Font.Name = "Times New Roman"
        End With
        .SeekView = wdSeekMainDocument
    End With
    Rem 页码续前节
    For Each oSec In ActiveDocument.Sections
        With oSec.Footers(wdHeaderFooterPrimary).PageNumbers
            .RestartNumberingAtSection = False
        End With
    Next
    Application.ScreenUpdating = True
End Sub

413191246se

cuanju 老师 厉害！