求助：Word录制宏无法选中图片，如何创建图片布局设置宏

解决思路 #

录制宏没法直接选中图片是因为它对对象操作的支持有限，手动编写VBA宏更灵活，以下是完整步骤：

步骤1：打开VBA编辑器 #

按Alt+F11快捷键直接打开；或者点击Word顶部「开发工具」选项卡的「Visual Basic」按钮（如果没看到「开发工具」，右键顶部菜单栏→自定义功能区→勾选「开发工具」）。

步骤2：插入代码模块 #

在左侧「工程」面板里，右键你的目标文档（想让所有Word文档都能用的话，右键「Normal」模板），选择「插入」→「模块」。

步骤3：编写宏代码 #

在右侧代码窗口粘贴以下代码：

Sub SetImageSquareWrap()
    ' 检查是否选中了图片/形状
    If Selection.Type = wdSelectionShape Then
        With Selection.ShapeRange
            ' 设置环绕方式为四周环绕（Square）
            .WrapFormat.Type = wdWrapSquare
            ' 设置与下方文本的间距为0.1英寸（转换为Word默认的磅单位）
            .WrapFormat.DistanceBottom = InchesToPoints(0.1)
        End With
    Else
        MsgBox "请先选中一张或多张图片！"
    End If
End Sub

代码说明 #

• Selection.Type = wdSelectionShape：判断当前选中的是不是图片/形状（Word里插入的图片属于Shape对象）
• WrapFormat.Type = wdWrapSquare：把环绕方式设为「四周环绕型」
• InchesToPoints(0.1)：把0.1英寸转换成Word VBA默认的磅单位，避免单位混乱
• 如果选中多张图片，代码会批量给所有选中图片设置相同参数

步骤4：保存与使用 #

• 若要让所有文档都能用：保存Normal模板，之后打开任意Word文档都能调用这个宏
• 若仅当前文档使用：把文档保存为「启用宏的文档（.docm）」格式
• 运行宏：选中图片后，按Alt+F8，选中SetImageSquareWrap点击「运行」；也可以把宏添加到快速访问工具栏，点击图标就能执行

内容的提问来源于stack exchange，提问作者Jr Analyst