快捷導(dǎo)航

C#實(shí)現(xiàn)提取Word中插入的多媒體文件(視頻,音頻)

更新時間：2022年02月28日 14:17:22 作者：E-iceblue

在Word中可將文件通過OLE對象嵌入的方式插入到文檔，包括Word、excel、PDF、PPT、圖片、宏文件、文件包等在內(nèi)的多種文件類型。本文將利用C#實(shí)現(xiàn)提取插入在Word文件中的這些多媒體文件，感興趣的可以了解一下

在Word中可將文件通過OLE對象嵌入的方式插入到文檔，包括Word、excel、PDF、PPT、圖片、宏文件、文件包等在內(nèi)的多種文件類型。對文檔中已插入的文檔對象，也可通過本文中的方法提取出來另存到指定路徑。本文將通過C#程序代碼示例做詳細(xì)介紹。

dll文件安裝（3種方法）

1.通過NuGet安裝dll（2種方法）

1.1可以在Visual Studio中打開“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“管理NuGet包”，然后搜索“Free Spire.Doc”，點(diǎn)擊“安裝”。等待程序安裝完成。

1.2將以下內(nèi)容復(fù)制到PM控制臺安裝。

Install-Package FreeSpire.Doc -Version 9.9.7

2.手動添加dll引用

可通過手動下載包到本地，然后解壓，找到BIN文件夾下的Spire.Doc.dll。然后在Visual Studio中打開“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“添加引用”，將本地路徑BIN文件夾下的dll文件添加引用至程序。

提取文件

提取文件時，主要通過以下步驟完成：

創(chuàng)建Document類的對象，并通過Document.LoadFromFile()方法加載Word文檔。
遍歷Word文檔中的所有Section中的子對象，判斷對象是否為Paragraph類型。
遍歷段落中的子對象，判斷對象是否為DocumentObjectType類型的OLE對象。
將符合條件的OLE對象通過as操作符轉(zhuǎn)換為DocOleObject類型。
通過File.WriteAllBytes()方法提取對象，保存到本地路徑。

注：以下代碼中所使用到的Word測試文件和提取到的多媒體文件路徑為VS程序的Debug路徑，如：F:\VS2017Project\ ExtractMediaFile\bin\Debug 。

完整代碼

下面是完整代碼示例：

C#

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using System.IO;

namespace ExtractMediaFile
{
    class Program
    {
        static void Main(string[] args)
        {
            //加載Word文檔
            Document doc = new Document();
            doc.LoadFromFile(@"OLE.docx");

            //遍歷所有子對象
            foreach (Section section in doc.Sections)
            {
                foreach (DocumentObject obj in section.Body.ChildObjects)
                {
                    if (obj is Paragraph)
                    {
                        Paragraph paragraph = obj as Paragraph;
                        foreach (DocumentObject obj2 in paragraph.ChildObjects)
                        {
                            if (obj2.DocumentObjectType == DocumentObjectType.OleObject)
                            {
                                DocOleObject ole = obj2 as DocOleObject;

                                //提取文件
                                File.WriteAllBytes(ole.PackageFileName, ole.NativeData);
                            }
                        }
                    }
                }
            }

        }
    }
}

VB.NET

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports System.IO

Namespace ExtractMediaFile
    Class Program
        Private Shared Sub Main(args As String())
            '加載Word文檔
            Dim doc As New Document()
            doc.LoadFromFile("test.docx")

            '遍歷所有子對象
            For Each section As Section In doc.Sections
                For Each obj As DocumentObject In section.Body.ChildObjects
                    If TypeOf obj Is Paragraph Then
                        Dim paragraph As Paragraph = TryCast(obj, Paragraph)
                        For Each obj2 As DocumentObject In paragraph.ChildObjects
                            If obj2.DocumentObjectType = DocumentObjectType.OleObject Then
                                Dim ole As DocOleObject = TryCast(obj2, DocOleObject)

                                '提取文件
                                File.WriteAllBytes(ole.PackageFileName, ole.NativeData)
                            End If
                        Next
                    End If
                Next
            Next

        End Sub
    End Class
End Namespace

文件讀取結(jié)果如圖：