最近，我需要在基于BCB开发的程序上增加导出Word报表功能，由于之前使用Variant和Automation对象操作过Excel,于是放弃了使用Office2k的TWordApplication控件的方式，直接使用Variant就开始了。期间，我在网上搜索资料，发现会的人还真是少，当然了，除了“OLE专业户”妖哥了，在此表示感谢。通过这几天的努力，我还真收获了不少，特别是如何将VBA语言转换为BCB语言。想起这几天网上搜资料的辛苦，于是我决定把心得写下来，希望能帮到自己和其他有需要的人。
### BCB 使用 Variant 和 Automation 对象操作 Word 报表
#### 基础概念与原理
在本篇文章中，我们将探讨如何使用 Borland C++ Builder (BCB) 的 Variant 和 Automation 对象来操作 Microsoft Word 文件。这种方法对于那些希望在 C++ 应用程序中集成 Word 功能的开发者来说非常实用。
##### Word 对象模型简介
Word 对象模型是 Microsoft Office 应用程序提供的编程接口之一，允许外部程序通过 COM (Component Object Model) 接口与 Word 进行交互。通过这些接口，开发者可以控制 Word 文档的各个方面，包括文档内容的读写、格式化设置、宏的编写等。
- **Word 对象**：代表 Word 中的基本元素，如文档 (`Documents`)、段落 (`Paragraphs`)、表格 (`Tables`)、书签 (`Bookmarks`) 或单个字符。
- **集合**：集合是 Word 对象模型中用来存储一组相似对象的数据结构。集合拥有 `Count` 属性，表示集合中对象的数量；并提供 `Item` 方法来获取集合中的特定对象。
##### Variant 类型的重要性
`Variant` 是一种特殊的类型，它可以存储任何数据类型，包括 Automation 对象。这使得 `Variant` 成为了处理未知类型数据的理想选择，尤其是在使用 COM 时。
- **CreateObject()**：用于创建一个新的 Automation 对象实例。
- **GetActiveObject()**：检索已存在的 Automation 对象实例。
- **OleFunction()**：调用 Automation 对象的方法。
- **OleProcedure()**：调用无返回值的 Automation 对象方法。
- **OlePropertyGet()**：获取 Automation 对象的属性值。
- **OlePropertySet()**：设置 Automation 对象的属性值。
#### 实现步骤
下面详细介绍如何使用 `Variant` 和 `Automation` 对象在 BCB 中操作 Word。
##### 步骤 1: 创建 Word 应用程序实例
```cpp
Variant word_app;
word_app = Variant::CreateObject("Word.Application");
```
这段代码创建了一个新的 Word 应用程序实例，并将其存储在 `word_app` 变量中。
##### 步骤 2: 获取文档集合
```cpp
Variant word_docs;
word_docs = word_app.OlePropertyGet("Documents");
```
通过 `word_app` 获取 Word 的文档集合，并将其存储在 `word_docs` 变量中。
##### 步骤 3: 新建文档
```cpp
word_docs.OleProcedure("Add");
```
使用 `Add` 方法新建一个 Word 文档。
##### 步骤 4: 设置 Word 应用程序的可见性
```cpp
word_app.OlePropertySet("Visible", (Variant)true);
```
设置 `Visible` 属性为 `true`，使 Word 应用程序可见。
#### 使用 Exec() 方法的替代方案
另一种方法是通过 `Exec()` 方法来实现相同的功能：
```cpp
void__fastcall TForm_Automation::Button_WordExecClick(TObject* Sender)
{
Variant word_app;
Variant word_docs;
Function Documents("Documents"); // 定义 Documents 函数
Function AddDocument("Add"); // 定义 AddDocument 函数
PropertySet Visibility("Visible"); // 定义 Visibility 属性
word_app = Variant::CreateObject("Word.Application");
word_docs = word_app.Exec(Documents);
word_docs.Exec(AddDocument);
Visibility << true;
word_app.Exec(Visibility);
}
```
这里定义了 `Documents`、`AddDocument` 和 `Visibility` 函数或属性，然后通过 `Exec()` 方法来执行它们。
#### VBA 转 BCB 的对比
我们来看看在 VBA 和 BCB 中实现同样功能（如插入表格）的差异：
##### VBA 示例
```vb
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=15, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior
```
这段 VBA 代码在当前文档的选定位置插入一个 15 行 4 列的表格。
##### BCB 实现
在 BCB 中实现同样的功能较为复杂，因为它涉及更多对象的创建和属性的设置。以下是一个可能的实现方式：
```cpp
void__fastcall TForm_Automation::InsertTable(TObject* Sender)
{
Variant word_app;
Variant word_doc;
Variant selection;
Variant table;
word_app = Variant::CreateObject("Word.Application");
word_doc = word_app.OlePropertyGet("ActiveDocument");
selection = word_doc.OlePropertyGet("Selection");
// 插入表格
table = word_doc.OlePropertyGet("Tables");
table.OleProcedure("Add", selection, 15, 4, wdWord9TableBehavior);
}
```
这段代码首先创建了一个 Word 应用程序实例，并获取了活动文档的选定区域。然后，使用 `Tables` 集合的 `Add` 方法插入了一个表格。
通过以上示例可以看出，虽然使用 Variant 和 Automation 对象在 BCB 中操作 Word 文档的方法与 VBA 有所不同，但都能有效地完成任务。对于 C++ 开发者而言，掌握这些技术可以在不需要依赖额外控件的情况下轻松集成 Word 功能。
