首先将Word文档另存为网页格式，系统会自动提取所有图片至同名文件夹；或修改.docx文件扩展名为.zip并解压，进入word/media目录获取图片；还可使用VBA宏代码自动导出图片至指定文件夹。
如果您在编辑或整理Word文档时需要获取其中的所有图片，但手动一张张另存为过于繁琐，则可以通过以下方法快速提取文档内嵌的所有图像。这些方法能够帮助您高效完成图片的批量导出。
本文运行环境：Dell XPS 13，Windows 11
一、将文档另存为网页格式提取图片
通过将Word文档保存为网页（HTML）格式，系统会自动将文档中的所有图片分离并存储在一个同名的文件夹中，从而实现批量提取的目的。
1、打开需要提取图片的Word文档。
2、点击“文件” → “另存为”，选择保存位置。
3、在“保存类型”下拉菜单中选择“网页 (*.htm; *.html)”。
4、点击“保存”后，检查保存路径下的同名文件夹，该文件夹内即包含所有从文档中提取的图片文件。
二、修改文件扩展名为ZIP并解压提取
Word文档本质上是基于Open XML格式的压缩包，将其扩展名改为ZIP后可直接解压，进而访问其中的图片资源。
1、关闭正在编辑的Word文档，确保文件未被占用。
2、找到该文档的存储位置，将文件扩展名从“.docx”重命名为“.zip”。
3、双击打开ZIP文件，进入“word”文件夹，再进入“media”子文件夹。
4、该目录下存放了文档中使用的所有图片，可一次性复制到本地指定文件夹。
三、使用VBA宏代码自动导出图片
对于熟悉宏操作的用户，可通过编写VBA脚本遍历文档中的所有图形对象，并将其逐一导出为独立图像文件。
1、在Word中按下Alt + F11打开VBA编辑器。
2、插入一个新模块，在代码窗口中粘贴以下脚本：
Sub ExtractImages()
Dim oShape As InlineShape
Dim oPath As String
oPath = "C:\ExtractedImages\"
MkDir oPath
For Each oShape In ActiveDocument.InlineShapes
oShape.Select
Selection.Copy
With CreateObject("WIA.Imaging")
.LoadFromClipboard
.SaveToFile oPath & "Image_" & Int(Rnd * 1000) & ".png"
End With
Next oShape
MsgBox "图片已全部导出至 " & oPath
End Sub
3、修改代码中的路径为实际目标文件夹。
4、运行宏，程序会自动创建文件夹并将所有内联图片以PNG格式保存。
