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

使用 VBA 宏批量选择图片

✅ 第一步:创建 .dotm 加载项文件
1、使用环境
office word 365,文件格式为.docx
图片格式为.PNG

2、创建 .dotm 加载项文件

打开 Word,新建一个空白文档。
按下 Alt + F11 打开 VBA 编辑器。
点击菜单栏:插入一个模块(“插入” → “模块”)。

输入以下代码(代码只选择“嵌入式图片”(InlineShape),“浮动图片”(Shape))

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 宏,添加到右侧“快速访问工具栏”或自定义选项卡中。
在这里插入图片描述

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值