使用 VBA 宏批量選擇圖片

? 第一步：創建 .dotm 加載項文件
1、使用環境
office word 365，文件格式為.docx
圖片格式為.PNG

2、創建 .dotm 加載項文件

打開 Word，新建一個空白文檔。
按下 Alt + F11 打開 VBA 編輯器。
點擊菜單欄：插入一個模塊（“插入” → “模塊”）。

輸入以下代碼（代碼只選擇“嵌入式圖片”（InlineShape），“浮動圖片”（Shape））

Sub 全選圖片()Dim s As ShapeDim ils As InlineShape' 選擇所有嵌入式圖片（InlineShape）For Each ils In ActiveDocument.InlineShapesils.SelectNext ils' 選擇所有浮動圖片（Shape）For Each s In ActiveDocument.Shapess.Select Replace:=FalseNext s
End Sub

3、測試運行效果

運行后選中所有圖片按照單個圖片修改格式即可

4、保存文件
點擊 文件 → 另存為，選擇類型為：
📁 Word 啟動宏模板（*.dotm）
命名為：全選圖片.dotm

? 第二步：將 .dotm 添加為 Word 加載項
在 Word 主界面點擊菜單：
文件 → 選項 → 加載項。

在底部選擇“管理：Word 加載項”，點擊右側【轉到】。

在彈出的對話框中點擊【添加】。

找到你剛剛保存的 .dotm 文件 → 打開。

勾選這個加載項 → 點擊【確定】。

第三步（可選）：將宏添加到工具欄/自定義選項卡
在 Word 頂部點擊右上角的下拉箭頭 → 選擇【更多命令】。

從左側的“選擇命令”下拉中選擇【宏】。

找到你的 SelectAllPictures 宏，添加到右側“快速訪問工具欄”或自定義選項卡中。