如何借助spire.doc，在 Word 中插入 OLE 对象

news2024/9/27 23:28:24

Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库。在于帮助开发人员无需安装 Microsoft Word情况下，轻松快捷高效地创建、编辑、转换和打印 Microsoft Word 文档。拥有近10年专业开发经验Spire系列办公文档开发工具，专注于创建、编辑、转换和打印Word/PDF/Excel等格式文件处理，小巧便捷。

E-iceblue 功能类库Spire 系列文档处理组件均由中国本土团队研发，不依赖第三方软件，不受其他国家的技术或法律法规限制，同时适配国产操作系统如中科方德、中标麒麟等，兼容国产文档处理软件 WPS（如 .wps/.et/.dps 等格式

Spire.Doc for.NET 最新下载（qun：767755948）https://www.evget.com/product/3368/download

Word OLE（对象链接和嵌入）对象用于使在一个程序中创建的内容在 Word 文档中可用。例如，用户可以在 Word 文档中插入 Excel 工作表。

Linked object 和Embedded object 都可以在Word 和其他程序之间使用。Embedded 对象的数据保存在 Word 中，需要手动更新，而 Linked 对象的数据保留为单独的文件，并在源数据更改时更新。

Spire.Doc for .NET是一个用.NET 操作Word 文档的专业组件，使用户可以使用C#/VB.NET 在Word 中插入OLE 对象。本指南将向您展示如何在 Word 中插入一种 OLE 对象、链接对象（Excel 工作表）。

用户可以调用paragraph.AppendOleObject(string pathToFile, olePicture, OleObjectType)方法在 Word 中插入 OLE 对象。参数olePicture和OleObjectType是 Spire.Doc for .NET 提供的 DocOleObject 类的属性。

以下步骤介绍了在 Word 中插入 OLE 对象的详细信息。下面演示一个将OLE对象插入Word之前的文档，在最下方可以看到插入后的结果截图。在开始执行这些步骤之前，请在系统上下载并安装适用于 .NET 的 Spire.Doc。

代码详情：

第 1 步：定义一个GetExcelImage(string ExcelFile)方法来获取olePicture。实际上，olePicture 是原始Excel 工作表中数据信息的图像。该图像是通过 Spire.XLS for .NET 从 Excel 生成的，在 Word 中插入 OLE 对象后将显示在文档中。双击这张图片，可以得到原始工作表。

[C＃]

private static Image GetExcelImage(String ExcelFile)
{
//Load Excel File
Workbook workbook = new Workbook();
workbook.LoadFromFile(ExcelFile);
Worksheet sheet = workbook.Worksheets[0];

//Set Image Range
int lastRow = sheet.LastRow;
int lastColumn = sheet.LastColumn;
return workbook.Worksheets[0].SaveToImage(1, 1, lastRow, lastColumn);
}

[VB.NET]

Private Shared Function GetExcelImage(ByVal ExcelFile As String) As Image
'Load Excel File
Dim workbook As New Workbook()
workbook.LoadFromFile(ExcelFile)
Dim sheet As Worksheet = workbook.Worksheets(0)

'Set Image Range
Dim lastRow As Integer = sheet.LastRow
Dim lastColumn As Integer = sheet.LastColumn
Return workbook.Worksheets(0).SaveToImage(1, 1, lastRow, lastColumn)
End Function

第 2 步：插入 OLE 对象。在Word文档中添加段落后，声明一个新的DocPicture。然后，使用步骤1中定义的GetExcelImage(string ExcelFile)方法获取图像源，然后使用picture.LoadImage(Image)方法加载该图像。最后，插入 OLE 对象。

[C＃]

para = mysec.AddParagraph();
DocPicture picture = new DocPicture(mydoc);
Image image = GetExcelImage(@"E:\work\Documents\ExcelFiles\Customers.xlsx");//Get Image Source
picture.LoadImage(image);//Load Image
DocOleObject obj = para.AppendOleObject(@"E:\work\Documents\ExcelFiles\Customers.xlsx", picture, Spire.Doc.Documents.OleObjectType.ExcelWorksheet);

[VB.NET]

'Insert OLE Object
para = mysec.AddParagraph()
Dim picture As New DocPicture(mydoc)
Dim image As Image = GetExcelImage("E:\work\Documents\ExcelFiles\Customers.xlsx") 'Get Image Source
picture.LoadImage(image) 'Load Image
Dim obj As DocOleObject = para.AppendOleObject("E:\work\Documents\ExcelFiles\Customers.xlsx", picture, Spire.Doc.Documents.OleObjectType.ExcelWorksheet)

完成此编码后，您可以运行此应用程序，结果将显示如下：