可通过三种方法批量提取Word文档嵌入图片：一、另存为网页格式，自动生成含所有图片的同名文件夹；二、将.docx重命名为.zip解压，图片位于word/media目录；三、运行VBA宏自动导出InlineShape和Shape中的图片。
如果您需要从Word文档中提取所有嵌入的图片，但不想逐一手动复制粘贴，则可以通过Word内置功能或文件解包方式实现批量导出。以下是解决此问题的步骤：
一、利用Word另存为网页格式提取图片
Word在将文档另存为“网页（*.htm; *.html）”格式时，会自动将所有图片保存至同名文件夹中，无需第三方工具，兼容性高且操作简单。
1、打开目标Word文档，点击左上角“文件”菜单。
2、选择“另存为”，在保存位置中指定一个明确的文件夹路径。
3、在“保存类型”下拉框中选择网页（*.htm; *.html）。
4、点击“保存”按钮，Word会同时生成一个HTML文件和一个同名的文件夹。
5、进入该同名文件夹，即可看到所有图片以独立文件形式存在，格式通常为png、jpg或gif。
二、通过ZIP解包方式提取图片
Word文档（.docx）本质上是ZIP压缩包，内部以Open XML结构存储资源，图片位于“word/media/”子目录中，此方法可保留原始图片分辨率与格式。
1、将原Word文档后缀由“.docx”改为“.zip”，例如将“报告.docx”重命名为“报告.zip”。
2、右键该ZIP文件，选择“解压到当前文件夹”或使用解压软件打开。
3、进入解压后的文件夹，依次打开word → media子目录。
4、该文件夹内所有文件即为文档中插入的全部图片，文件名按image1.png、image2.jpeg等顺序编号。
三、使用VBA宏一键导出所有图片
对于频繁处理多份Word文档的用户，可运行VBA宏自动遍历并保存所有InlineShape和Shape对象中的图片，支持自定义保存路径与命名规则。
1、在Word中按Alt + F11打开VBA编辑器。
2、在左侧项目窗口中，双击对应文档的ThisDocument模块。
3、粘贴以下代码：
Sub ExportAllImages()
Dim shp As Shape
Dim ils As InlineShape
Dim i As Long: i = 1
Dim exportPath As String
exportPath = "C:\ExportedImages\"
MkDir exportPath
For Each ils In ActiveDocument.InlineShapes
If ils.Type = wdInlineShapePicture Then
ils.Range.Copy
With CreateObject("WScript.Shell").Exec("mspaint")
.WindowStyle = 0
Do While .Status = 0: DoEvents: Loop
End With
ils.Range.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture
ActiveDocument.InlineShapes(i).Range.Copy
ActiveDocument.InlineShapes(i).Range.Cut
i = i + 1
End If
Next
End Sub
4、修改代码中exportPath = "C:\ExportedImages\"为实际目标路径（需确保路径存在）。
5、按F5运行宏，图片将按顺序导出为PNG文件并保存至指定文件夹。
