C# VB.NET 实现在Word中嵌入多媒体(视频、音频)文件

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

namespace EmbedMediaFile
{
    class Program
    {
        static void Main(string[] args)
        {
            //实例化Document类的对象，并添加Section
            Document doc = new Document();
            Section section = doc.AddSection();

            //定义段落样式
            ParagraphStyle style1 = new ParagraphStyle(doc);
            style1.Name = "Style";
            style1.CharacterFormat.FontName = "Calibri";
            style1.CharacterFormat.FontSize = 18;
            style1.CharacterFormat.Bold = true;
            style1.CharacterFormat.TextColor = Color.BlueViolet;
            doc.Styles.Add(style1);

            //添加段落1，嵌入视频文件
            Paragraph para1 = section.AddParagraph();
            para1.AppendText("嵌入视频文件:");           
            para1.ApplyStyle(style1.Name);
            Stream s1 = File.OpenRead("Video.mp4");
            DocPicture pic1 = new DocPicture(doc);
            pic1.LoadImage(Image.FromFile("logo1.png"));
            para1.AppendOleObject(s1, pic1, "mp4");

            //添加一个空白段落2
            Paragraph para2 = section.AddParagraph();

            //添加段落3,嵌入音频文件
            Paragraph para3 = section.AddParagraph();
            para3.AppendText("嵌入音频文件:");
            para3.ApplyStyle(style1.Name);
            Stream s2 = File.OpenRead("Audio.mp3");
            DocPicture pic2 = new DocPicture(doc);
            pic2.LoadImage(Image.FromFile("logo2.png"));
            para3.AppendOleObject(s2, pic2, "mp3");

            //保存文档
            doc.SaveToFile("Result.docx", FileFormat.Docx2013);
        }
    }
}

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

Namespace EmbedMediaFile
    Class Program
        Private Shared Sub Main(args As String())
            '实例化Document类的对象，并添加Section
            Dim doc As New Document()
            Dim section As Section = doc.AddSection()

            '定义段落样式
            Dim style1 As New ParagraphStyle(doc)
            style1.Name = "Style"
            style1.CharacterFormat.FontName = "Calibri"
            style1.CharacterFormat.FontSize = 18
            style1.CharacterFormat.Bold = True
            style1.CharacterFormat.TextColor = Color.BlueViolet
            doc.Styles.Add(style1)

            '添加段落1，嵌入视频文件
            Dim para1 As Paragraph = section.AddParagraph()
            para1.AppendText("嵌入视频文件:")
            para1.ApplyStyle(style1.Name)
            Dim s1 As Stream = File.OpenRead("Video.mp4")
            Dim pic1 As New DocPicture(doc)
            pic1.LoadImage(Image.FromFile("logo1.png"))
            para1.AppendOleObject(s1, pic1, "mp4")

            '添加一个空白段落2
            Dim para2 As Paragraph = section.AddParagraph()

            '添加段落3,嵌入音频文件
            Dim para3 As Paragraph = section.AddParagraph()
            para3.AppendText("嵌入音频文件:")
            para3.ApplyStyle(style1.Name)
            Dim s2 As Stream = File.OpenRead("Audio.mp3")
            Dim pic2 As New DocPicture(doc)
            pic2.LoadImage(Image.FromFile("logo2.png"))
            para3.AppendOleObject(s2, pic2, "mp3")

            '保存文档
            doc.SaveToFile("Result.docx", FileFormat.Docx2013)
        End Sub
    End Class
End Namespace