首先将Word文档另存为网页格式，系统会自动分离图片并保存至同名文件夹；或修改.docx扩展名为.zip后解压，进入“word/media”目录提取图片；还可使用VBA宏代码批量导出图片至指定文件夹。
如果您需要从Word文档中提取所有嵌入的图片以便单独使用或备份，可以直接通过文档解析的方式批量导出这些图像资源。以下是具体操作步骤：
本文运行环境：Dell XPS 13，Windows 11
一、将Word文档另存为网页格式
通过将文档保存为网页格式，系统会自动分离文本内容与嵌入的图片，并将图片保存在同名文件夹中。
1、打开需要提取图片的Word文档。
2、点击“文件”菜单，选择“另存为”。
3、在保存类型下拉菜单中选择“网页 (*.htm; *.html)”。
4、选择保存位置并点击“保存”按钮。
5、完成后，在保存路径下会生成一个HTML文件和一个同名文件夹，图片均存储在该文件夹内。
二、修改文档扩展名为ZIP并解压
Word文档本质上是基于Open XML格式的压缩包，更改扩展名后可直接解压以访问内部资源文件。
1、复制原始Word文档并重命名副本，将文件扩展名从“.docx”改为“.zip”。
2、右键点击该ZIP文件，选择“全部解压”或使用解压软件打开。
3、进入解压后的文件夹，依次打开路径“word” → “media”。
4、此目录下的所有文件即为文档中插入的图片，可直接复制使用。
三、使用VBA宏代码批量导出图片
通过编写VBA脚本可以自动化遍历文档中的所有图片对象并将其逐一导出到指定文件夹。
1、在Word中按下Alt + F11打开VBA编辑器。
2、插入新模块，粘贴以下代码：
Sub ExtractImages()
Dim oShape As InlineShape
Dim oILShp As InlineShape
Dim strPath As String
strPath = "C:\ExtractedImages\"
MkDir strPath
For Each oILShp In ActiveDocument.InlineShapes
If oILShp.Type = wdInlineShapePicture Then
oILShp.Select
Selection.Copy
Dim imgFileName As String
imgFileName = strPath & "Image_" & Format(Now, "HHMMSS") & ".png"
CreateObject("Wscript.Shell").Exec "mspaint /pt """ & imgFileName & """"
DoEvents
End If
Next oILShp
MsgBox "图片已导出至 " & strPath
End Sub
3、修改代码中的保存路径为本地有效目录。
4、运行宏后，程序将在指定路径生成PNG格式的图片文件。
