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
3、修改代码中的路径"C:\Extracted_Images"为您希望保存图片的目标文件夹。
4、关闭VBA编辑器，返回Word，按下Alt + F8运行宏“ExtractImages”。
5、程序执行完成后，目标文件夹中将包含所有从文档中提取的图片。
