word文档如何提取所有图片_Word提取所有图片方法-办公软件-PHP中文网

word文档如何提取所有图片_Word提取所有图片方法

尼克

发布： 2025-11-26 12:22:02

原创

604人浏览过

首先将Word文档另存为网页格式，系统会自动分离图片并保存至同名文件夹；或修改.docx扩展名为.zip后解压，进入“word/media”目录提取图片；还可使用VBA宏代码批量导出图片至指定文件夹。

word文档如何提取所有图片_word提取所有图片方法

如果您需要从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、插入新模块，粘贴以下代码：

<p>Sub ExtractImages()</p>
<p>Dim oShape As InlineShape</p>
<p>Dim oILShp As InlineShape</p>
                    <div class="aritcle_card">
                        <a class="aritcle_card_img" href="/ai/735">
                            <img src="https://img.php.cn/upload/ai_manual/001/246/273/68b6cdbf48df2598.png" alt="代码小浣熊">
                        </a>
                        <div class="aritcle_card_info">
                            <a href="/ai/735">代码小浣熊</a>
                            <p>代码小浣熊是基于商汤大语言模型的软件智能研发助手，覆盖软件需求分析、架构设计、代码编写、软件测试等环节</p>
                            <div class="">
                                <img src="/static/images/card_xiazai.png" alt="代码小浣熊">
                                <span>396</span>
                            </div>
                        </div>
                        <a href="/ai/735" class="aritcle_card_btn">
                            <span>查看详情</span>
                            <img src="/static/images/cardxiayige-3.png" alt="代码小浣熊">
                        </a>
                    </div>
                
<p>Dim strPath As String</p>
<p>strPath = "C:\ExtractedImages\"</p>
<p>MkDir strPath</p>
<p>For Each oILShp In ActiveDocument.InlineShapes</p>
<p>If oILShp.Type = wdInlineShapePicture Then</p>
<p>oILShp.Select</p>
<p>Selection.Copy</p>
<p>Dim imgFileName As String</p>
<p>imgFileName = strPath & "Image_" & Format(Now, "HHMMSS") & ".png"</p>
<p>CreateObject("Wscript.Shell").Exec "mspaint /pt """ & imgFileName & """"</p>
<p>DoEvents</p>
<p>End If</p>
<p>Next oILShp</p>
<p>MsgBox "图片已导出至 " & strPath</p>
<p>End Sub</p>

登录后复制

3、修改代码中的保存路径为本地有效目录。

4、运行宏后，程序将在指定路径生成PNG格式的图片文件。

以上就是word文档如何提取所有图片_Word提取所有图片方法的详细内容，更多请关注php中文网其它相关文章！