求WORD <em>VBA</em>代码，删除或更改页眉内容后，删除文件图片及...-vba w

两个办法：

1. 页眉页脚编复辑工具条上面有一项是链接到上一节，然制后点下一个，百以此类推，把所有页眉变成一样的，度然后只需要删除一个就可以了，页脚也一样

2.用查找替问换功能 用空白替换^b，即分节答符号，如下图：

Sub abc()
Dim mySec As Section
Dim myShape1 As Shape, myShape2 As InlineShape

    ' 修改所有页眉中的 AAA 为 BBB，请自行替换相应的内容，若7a686964616fe78988e69d83365需删除 AAA，则 BBB 为空即可
    For Each mySec In ActiveDocument.Sections
        mySec.Headers(1).Range.Text = Replace(mySec.Headers(1).Range.Text, "AAA", "BBB")
    Next mySec
    
    ' 删除文档中所有的图形对象
    For Each myShape1 In ActiveDocument.Shapes
        myShape1.Delete
    Next myShape1
    
    ' 删除文档中所有的嵌入对象
    For Each myShape2 In ActiveDocument.InlineShapes
        myShape2.Delete
    Next myShape2
    
    ' 不提示直接保存文档
    ActiveDocument.Save noPrompt:=True
End Sub

使用分节符下一页，取消节间链接，就复可以了：
1、分别在在第二页（摘要）、绪论的第一个字符前插入分节符下一页，双击页眉（页脚）进入编辑状态，分别取消这制两页，页眉和页脚工具－－设计－－导航－－链接到前一条页眉，按钮的选中状态知；
2、在摘要页插入页码，设置页码格式：编号格式为罗马数字，起始页为i；在绪论页插入页码，设置页码格式：编号格式为阿拉伯数道字，起始页为1；
3、检查封面，如果有页码，直接删除。
希望能够帮到你，请采纳我的回答哦。

修改如下：zhidao

Sub 删除页眉页脚()
    Dim myRange As Range
    On Error Resume Next
    
    For Each oSec In ThisDocument.Sections '文档的节专中循环
        Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range
        myRange.Delete '删除页眉中的内容属
        myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线
        Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
        myRange.Delete '删除页脚中的内容
    Next
End Sub