使用 VBA 宏创建一个选择全部word图片快捷指令，进行图片格式编辑

徐赛俊2025-04-15 13:23

使用 VBA 宏批量选择图片

✅ 第一步：创建 .dotm 加载项文件

1、使用环境

office word 365，文件格式为.docx

图片格式为.PNG

2、创建 .dotm 加载项文件

打开 Word，新建一个空白文档。

按下 Alt + F11 打开 VBA 编辑器。

点击菜单栏：插入一个模块（"插入" → "模块"）。

输入以下代码（代码只选择"嵌入式图片"（InlineShape），"浮动图片"（Shape））

python 复制代码

Sub 全选图片()
    Dim s As Shape
    Dim ils As InlineShape
    ' 选择所有嵌入式图片（InlineShape）
    For Each ils In ActiveDocument.InlineShapes
        ils.Select
    Next ils
    ' 选择所有浮动图片（Shape）
    For Each s In ActiveDocument.Shapes
        s.Select Replace:=False
    Next s
End Sub

3、测试运行效果

运行后选中所有图片按照单个图片修改格式即可

4、保存文件

点击文件 → 另存为，选择类型为：

📁 Word 启动宏模板（*.dotm）

命名为：全选图片.dotm

✅ 第二步：将 .dotm 添加为 Word 加载项

在 Word 主界面点击菜单：

文件 → 选项 → 加载项。

在底部选择"管理：Word 加载项"，点击右侧【转到】。

在弹出的对话框中点击【添加】。

找到你刚刚保存的 .dotm 文件 → 打开。

勾选这个加载项 → 点击【确定】。

第三步（可选）：将宏添加到工具栏/自定义选项卡

在 Word 顶部点击右上角的下拉箭头 → 选择【更多命令】。

从左侧的"选择命令"下拉中选择【宏】。

找到你的 SelectAllPictures 宏，添加到右侧"快速访问工具栏"或自定义选项卡中。