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

Word图片快速居中技巧：宏代码与替换方法

2026-04-13 23:27:34 0浏览收藏

在Word中高效统一居中所有图片，无需逐张手动调整：本文详解两种实用方案——功能强大的VBA宏代码可一键批量处理全文档（含页眉页脚、跨节内容）的嵌入型与浮动型图片，真正实现“一劳永逸”；而无需启用宏的查找替换技巧，则通过识别图形符号“^g”并批量应用居中段落格式，快速搞定嵌入型图片，辅以简单的浮动图转嵌入操作，即可覆盖全部场景，大幅提升排版效率与文档专业度。

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