Word文档批量提取图片方法

1、通过将Word文档另存为网页格式，系统会自动生成包含所有图片的同名文件夹；2、将.docx文件重命名为.zip并解压，进入word/media目录即可获取全部图片；3、使用VBA宏代码可自动遍历并导出文档中所有内嵌图片至指定路径。

如果您需要从Word文档中获取所有插入的图片，而不想手动逐一另存为，可以使用以下方法快速提取文档内全部图像资源。这些方法适用于包含大量图片的文档，能够显著提升处理效率。

本文运行环境：Dell XPS 13，Windows 11

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

通过将Word文档保存为网页（HTML）格式，系统会自动将文档中的所有图片导出到同名文件夹中，实现批量提取。

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

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

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

4、点击“保存”后，系统会在同一目录生成一个HTML文件和一个同名文件夹。

5、进入该文件夹，即可看到文档中所有被自动导出的图片文件。

二、修改文件扩展名为ZIP并解压提取

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

1、复制一份原始Word文档，防止操作失误导致原文件损坏。

2、将文档的扩展名从“.docx”改为“.zip”，若未显示扩展名，请先开启文件资源管理器中的“显示扩展名”选项。

3、双击打开ZIP文件或使用解压软件如WinRAR、7-Zip打开。

4、进入解压目录中的“word” → “media”文件夹。

5、该文件夹内包含文档中所有插入的图片，可直接复制到任意位置。

三、使用VBA宏代码自动导出图片

通过编写VBA脚本，可以在Word中自动遍历所有内嵌图片并将其单独保存到指定文件夹。

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

2、点击“插入” → “模块”，粘贴以下代码：

Sub ExtractImages()
Dim oShape As InlineShape
Dim oILShp As InlineShape
Dim strPath As String
strPath = "C:\Extracted_Images"
MkDir strPath
For Each oILShp In ActiveDocument.InlineShapes
oILShp.Select
Selection.Copy
With CreateObject("WIA.ImageFile")
.LoadFile oILShp.Range.Text
.SaveToFile strPath & "\Image_" & Format(Now, "HHMMSS") & "_" & Timer & ".png"
End With
Next oILShp
MsgBox "图片已全部导出至: " & strPath