当前位置：首页 > 文章列表 > 文章 > 软件教程 > Word图片一键居中方法：宏代码与格式替换技巧

Word图片一键居中方法：宏代码与格式替换技巧

2026-04-06 08:05:11 0浏览收藏

想告别Word中一张张手动调整图片居中的繁琐操作？本文揭秘两种高效可靠的“一键居中”方案：一是功能强大的VBA宏代码，可全自动批量处理正文、跨节内容乃至页眉页脚中的嵌入型与浮动型图片；二是无需编程的查找替换技巧，通过识别图形符号^g并应用居中段落格式，快速统一所有嵌入型图片对齐方式，还贴心附上浮动图转嵌入型的实操步骤——无论你追求极致效率还是受限于VBA禁用环境，都能找到即学即用、立竿见影的解决方案。

Word文档中的所有图片怎么一键居中_使用宏代码或查找替换格式

如果您在Word文档中需要将所有插入的图片统一设置为居中对齐，手动逐张调整效率低下。以下是通过宏代码和查找替换格式两种不同机制实现图片一键居中操作的具体步骤：

一、使用VBA宏代码批量居中所有图片

该方法通过遍历文档中所有InlineShape（嵌入型图片）和Shape（浮动型图片）对象，强制将其水平对齐方式设为居中。宏可一次性处理全文档内所有图片，包括跨节、页眉页脚中的嵌入图（需额外启用页眉页脚遍历）。

1、按 Alt + F11 打开VBA编辑器。

2、在左侧“工程资源管理器”中，右键“Normal”或当前文档名称，选择“插入”→“模块”。

3、在新模块空白窗口中粘贴以下完整代码：

Sub CenterAllPictures()
Dim ils As InlineShape
Dim shp As Shape
Dim sec As Section
Dim hdr As HeaderFooter
Dim rng As Range

For Each ils In ActiveDocument.InlineShapes
  ils.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next ils

For Each shp In ActiveDocument.Shapes
  If shp.WrapFormat.Type wdWrapInline Then
    shp.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    shp.Left = wdShapeCenter
  End If
Next shp

For Each sec In ActiveDocument.Sections
  For Each hdr In sec.Headers
    If hdr.Exists Then
      Set rng = hdr.Range
      For Each ils In rng.InlineShapes
        ils.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
      Next ils
    End If
  Next hdr
  For Each hdr In sec.Footers
    If hdr.Exists Then
      Set rng = hdr.Range
      For Each ils In rng.InlineShapes
        ils.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
      Next ils
    End If
  Next hdr
Next sec
End Sub