求助：通过VBA批量替换所有节的页脚图片并配置指定格式

完整实现代码 #

Sub ReplaceFooterBrandImage()
    Dim targetDoc As Document
    Dim primaryFooter As HeaderFooter
    Dim oldShape As Shape
    Dim newFooterPic As Shape
    Dim imageFullPath As String
    
    ' 替换为你的新图片本地路径
    imageFullPath = "D:\BrandAssets\new_footer_logo.png"
    
    Set targetDoc = ActiveDocument
    ' 定位到文档主页脚（若需处理所有节可循环Sections）
    Set primaryFooter = targetDoc.Sections(1).Footers(wdHeaderFooterPrimary)
    
    ' 删除页脚中所有旧图片
    For Each oldShape In primaryFooter.Shapes
        If oldShape.Type = msoPicture Then
            oldShape.Delete
        End If
    Next oldShape
    
    ' 插入新图片
    Set newFooterPic = primaryFooter.Shapes.AddPicture( _
        Filename:=imageFullPath, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=0, Top:=0, Width:=0, Height:=0)
    
    ' 设置环绕方式为衬于文字下方
    newFooterPic.WrapFormat.Type = wdWrapBehind
    
    ' 设置精准尺寸（单位转换：英寸转Word点）
    newFooterPic.Width = InchesToPoints(8.1)
    newFooterPic.Height = InchesToPoints(0.21)
    
    ' 设置位置：水平居中，垂直低于页边距底部0.05英寸
    With newFooterPic
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .Left = (primaryFooter.PageSetup.PageWidth - .Width) / 2
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .Top = primaryFooter.PageSetup.BottomMargin + InchesToPoints(0.05)
    End With
    
    MsgBox "页脚图片替换完成", vbOKOnly
End Sub

代码细节说明 #

• 删除旧图逻辑：只筛选删除页脚中类型为msoPicture的形状，避免误删文本或其他页脚元素。
• 图片插入参数：LinkToFile:=msoFalse确保图片嵌入文档而非外部链接，避免路径失效问题。
• 环绕方式：wdWrapBehind直接实现"衬于文字下方"的要求，无需手动右键设置。
• 尺寸与位置：用InchesToPoints完成单位转换，保证尺寸精准；水平居中通过页面宽度与图片宽度的差值计算实现，垂直位置基于页边距底部偏移指定距离。

使用步骤 #

1. 打开目标Word文档，按Alt + F11打开VBA编辑器。
2. 右键点击左侧项目窗格中的文档名称，选择「插入」→「模块」。
3. 将代码粘贴到模块中，修改imageFullPath为你的新图片实际路径。
4. 按F5运行宏，或回到Word界面通过「开发工具」→「宏」执行该程序。

内容的提问来源于stack exchange，提问作者Katie Bird