求WORD VBA代码，删除或更改页眉内容后，删除文件图片及存盘

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

    ' 修改所有页眉中的 AAA 为 BBB，请自行替换相应的内容，若需删除 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