从 VBA 中使用 Visual Basic .NET 将 Word 文档序列化为 XML

XmlProvider 类

Serialize 函数将完成所有编译器的大部分工作，因为它必须遍历复杂的 Word 文档对象（XimlCompiler 类中的所有函数仅处理符合规范的 XML）。因为 Word 文档遍历是无状态的，所以我们可以利用托管 XML 提供的更佳性能。为了尽量减少跨进程封送处理，而且由于 Word 还不能直接支持公共语言运行库，因此我们选择 VBA 作为客户端语言。进入 WordXmlHost.exe 中的 XML 文本处理阶段后，我们将会把客户端和服务器语言都切换为 Visual Basic .NET。

Public Function Serialize (ByVal rngTestAreas As Range) _ As Boolean Try ´ 从 Word XP 输入 Range 对象 ´ 序列化 Introduction、Projects 和 Contexts 部分 ´ 遍历从第一个 Set 开始的所有 Test Areas 部分 ´ 序列化 Set 及其 setText 样式段落 ´ 序列化 Level 及其标题 ´ 遍历 Level 部分的所有段落 ´ 序列化 Var ´ 序列化 varText 表 ´ 如果存在，则序列化 Declared 的测试表 ´ 如果存在，则序列化 Defined 的测试表 ´ 如果存在，则序列化同一层的 Level（编号相同 ´ 但类别不同） ´ 重复序列化 Var Catch ´ 出现异常，因此我们在运行时和 ´ 调试时停止了组件。 Finally ´ 关闭书写器，将内容永久保存到磁盘（即使 ´ 出现异常也要关闭） End Function 程序列表 3：XmlProvider Serialize 伪代码 【我对这篇文章有话说?】