Word图片批量导出方法详解

首先将Word文档另存为网页格式，系统会自动提取所有图片至同名文件夹；或修改.docx为.zip后解压进入word/images/获取图片；还可使用VBA宏代码一键导出所有图片。

如果您需要从Word文档中提取多张图片，而不想手动逐一另存为，可以使用以下方法快速批量导出图片。这些技巧适用于包含大量插图的文档，能够高效分离图像内容。

本文运行环境：Surface Pro 9，Windows 11。

一、将Word文档另存为网页格式提取图片

通过将文档保存为网页格式，系统会自动将所有嵌入的图片单独保存到同名文件夹中，实现批量导出。

1、打开需要提取图片的Word文档。

2、点击文件 → 另存为，选择保存位置。

3、在“保存类型”下拉菜单中选择网页 (*.htm; *.html)。

4、点击保存后，检查保存路径，会生成一个HTML文件和一个同名文件夹。

5、进入该文件夹，即可看到所有从文档中提取出的图片文件。

二、修改文件扩展名为ZIP并解压获取图片

Word文档本质上是基于Open XML的压缩包，重命名为ZIP后可直接解压查看内部资源，包括全部图片。

1、关闭Word文档，找到其所在目录。

2、将文档的扩展名从.docx改为.zip（如提示确认，选择“是”）。

3、双击打开ZIP文件，浏览其中的word/images/文件夹。

4、选中该文件夹内所有图片，右键选择“解压到指定文件夹”即可完成批量导出。

三、使用VBA宏代码一键导出所有图片

VBA脚本可以直接遍历文档中的所有图形对象，并将其逐个导出为独立图像文件。

1、在Word中按下Alt + F11打开VBA编辑器。

2、插入新模块，粘贴以下代码：

Paste this code:
Sub ExtractImages()
    Dim oShape As InlineShape
    Dim oILShp As InlineShape
    Dim SavePath As String
    SavePath = "C:\ExtractedImages\" ' 修改为您想要保存的路径
    MkDir SavePath
    Dim i As Integer: i = 0
    For Each oILShp In ActiveDocument.InlineShapes
        i = i + 1
        oILShp.Select
        Selection.Copy
        With CreateObject("WIA.Imaging")
            .LoadFromClipboard
            .SaveToFile SavePath & "Image_" & i & ".png"
        End With
    Next oILShp
End Sub

3、确保已设置正确的保存路径，按F5运行宏。

4、前往指定文件夹查看导出的所有图片。