首页 / 新闻资讯 / Word中批量提取所有图片的完整指南

Word中批量提取所有图片的完整指南

发布时间：2026-09-12 作者：姜亮 阅读量：29

为什么需要提取Word中的所有图片？

在处理大量Word文档时，经常需要将文档中的图片单独保存用于其他用途（如制作PPT、网站素材等）。手动右键保存图片效率极低，尤其当文档包含几十张图片时。本文将介绍4种高效方法，帮助您一键提取所有图片。

方法一：将Word另存为网页

这是最简单的方法，适用于Word 2007及以上版本：

  1. 打开包含图片的Word文档。
  2. 点击“文件” > “另存为”。
  3. 在“保存类型”中选择“网页(.htm;.html)”。
  4. 选择一个文件夹保存，点击“保存”。
  5. 打开保存的文件夹，您会看到一个与文档同名的文件夹（例如“文档名.files”），其中包含了所有图片，格式为.png、.jpg或.emf等。

注意：此方法会保留图片的原始分辨率和格式，但可能产生一些额外的HTML文件，只需删除即可。

方法二：更改文件后缀为ZIP并解压

Word 2007之后的文档实际上是ZIP压缩包（包含XML和媒体文件）。

  1. 确保文档以.docx格式保存。
  2. 复制文档并重命名，将后缀.docx改为.zip（如果看不到后缀，需在文件夹选项开启“显示文件扩展名”）。
  3. 双击ZIP文件，或使用解压工具（如WinRAR、7-Zip）解压。
  4. 进入解压后的文件夹，找到 word/media 子文件夹，里面就是所有图片。

此方法无需安装额外软件，且提取的图片质量无损。

方法三：使用VBA宏一键导出

如果您熟悉VBA，可以使用以下宏批量保存图片：

Sub ExportAllImages()
    Dim doc As Document
    Dim shp As InlineShape
    Dim i As Integer
    Dim savePath As String
    
    Set doc = ActiveDocument
    savePath = InputBox("请输入保存路径（例如C:\Images\）")
    If Right(savePath, 1) <> "\" Then savePath = savePath & "\"
    
    For i = 1 To doc.InlineShapes.Count
        If doc.InlineShapes(i).Type = wdInlineShapePicture Then
            doc.InlineShapes(i).Range.Select
            Selection.Copy
            ' 利用剪贴板保存为PNG
            With doc.InlineShapes(i)
                .Range.Select
                .Export savePath & "Image" & i & ".png", wdExportFormatPNG
            End With
        End If
    Next i
    MsgBox "导出完成！图片保存至：" & savePath
End Sub

使用方法：按 Alt+F11 打开VBA编辑器，插入模块，粘贴代码，然后运行宏。

方法四：利用第三方工具

如果您不熟悉技术操作，可以借助工具如“Office图片提取器”、“Total Image Extractor”等，它们提供图形界面，一键提取所有图片。

总结

以上方法均能高效提取Word中的所有图片。推荐使用“更改后缀为ZIP”方法，因为它简单、无损且不依赖版本。希望对您有所帮助！

相关文章