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
4、将光标置于代码中任意位置，按 F5 运行宏。
5、返回Word文档，检查所有图片是否已居中；若页眉页脚中仍有未生效图片，确认对应节的页眉页脚未被“链接到前一节”禁用。
二、利用查找替换功能定位并修改图片段落格式
该方法不依赖宏，适用于禁用VBA环境的场景。核心原理是：Word中嵌入型图片始终位于独立段落内，且该段落仅含图片无文字。通过查找“^g”（图形符号）并替换为“^&”，配合段落格式替换，可批量作用于所有含图段落。
1、按下 Ctrl + H 打开“查找和替换”对话框。
2、在“查找内容”框中输入：^g（代表任意图形，包括嵌入型图片）。
3、在“替换为”框中输入：^&（代表原内容，即保持图片不变）。
4、点击“更多 >>”，展开高级选项；将光标置于“替换为”框，点击“格式”→“段落”。
5、在弹出的段落设置窗口中，将“对齐方式”设为：居中，其余选项保持默认，点击“确定”。
6、点击“全部替换”，Word将遍历所有含图片的段落，并统一应用居中段落格式。
7、注意：此方法仅对嵌入型图片（InlineShape）有效，浮动型图片（如四周型、紧密型）不会被“^g”匹配，需另行处理或转为嵌入型。
三、将浮动型图片转为嵌入型后统一居中
浮动型图片无法被“^g”识别，也无法通过段落格式直接居中。必须先将其转换为嵌入型，再配合查找替换或宏处理。转换过程会改变图文混排效果，但确保格式可控。
1、按 Ctrl + A 全选文档内容。
2、右键任意一张浮动图片，选择“大小和位置…”。
3、切换到“文字环绕”选项卡，点击“衬于文字下方”或“浮于文字上方”旁的下拉箭头，选择：嵌入型。
4、关闭窗口，此时所有被选中的浮动图片将转为嵌入型，并自动进入独立段落。
5、立即执行
