2 种快速提取 Word 文档中嵌入的 MS Office 文件的方法

词解法 2025 年 9 月 28 日

在今天的文章中，我们将为您提供两种快速提取 Word 文档中嵌入的所有 MS office 文件的方法。

每隔一段时间，我们就可以继承一个包含多个嵌入文件的 Word 文档，如下所示：

通常，要导出它们，我们必须打开文件然后保存。但是，当文件很少时，这种方式是可以接受的。一旦涉及到大量的对象，我们就要寻找一些更快捷、更省力的捷径。为此，我们为您准备了以下两种方法。

方法 1：更改文件扩展名

首先，在其他任何事情之前，我们建议您复制一份 tar获取文件，以防任何事件可能对其造成损坏。
其次，右键单击文档图标，然后在菜单上选择“重命名”。
第三，将扩展名“.docx”更改为“.docx”。zip“。
您会遇到警告消息，只需单击“是”。
文档转换为 zip 文件，双击打开。
现在双击打开“word”文件夹。
然后双击打开“embeddings”文件夹。您可以在那里找到所有文件，但无法识别。麻烦的是你必须重命名它们。

方法二：运行Word宏

首先和形式ost，单击“开发人员”选项卡，然后单击“Visual Basic”。或者，如果“开发人员”选项卡不可用，则只需按“Alt+F11”即可。
接下来单击“正常”项目。
然后单击“插入”选项卡。
在下拉菜单中选择“模块”。
现在双击新模块以获得编码空间。
并在此处粘贴以下代码：

Sub ExtractAndSaveEmbeddedFiles()
  Dim objEmbeddedShape As InlineShape
  Dim strShapeType As String, strEmbeddedDocName As String
  Dim objEmbeddedDoc As Object
 
  With ActiveDocument
  For Each objEmbeddedShape In .InlineShapes
 
  '  Find and open the embedded doc.
  strShapeType = objEmbeddedShape.OLEFormat.ClassType
  objEmbeddedShape.OLEFormat.Open
 
  '  Initialization
  Set objEmbeddedDoc = objEmbeddedShape.OLEFormat.Object
 
  '  Save embedded files with names as same as those of icon label. 
  strEmbeddedDocName = objEmbeddedShape.OLEFormat.IconLabel
  objEmbeddedDoc.SaveAs "C:\Users\Public\Documents\New folder\" & strEmbeddedDocName
  objEmbeddedDoc.Close
 
  Set objEmbeddedDoc = Nothing
 
  Next objEmbeddedShape
  End With
End Sub

最后，单击“运行”按钮或按“F5”。

所有嵌入文件将以其原始名称存储在特定目录下。

注意：:

在代码行“objEmbeddedDoc.SaveAs “C:\Users\Public\Documents\New folder\” & strEmbeddedDocName“中，”C:\Users\Public\Documents\新建文件夹\”是存放文件的位置。记得用实际的替换它。

妥善保管 Word 文件

由于你们中的一些人经常使用 Word，因此面对败字可以是家常便饭。因此，这就是为什么我们非常重视处理好文件。毕竟，一旦文件损坏，恢复它的生命既需要时间又需要金钱。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术的世界领先者，包括修复损坏的Excel 以及 pdf 修复软件产品。欲了解更多信息，请访问 datanumen.com