Word中使用OLE跳转到指定页码

Question

请问：在 C++ Builder 控制 Word 时怎样使用 OLE 跳转到指定页码？
Office 录制的宏如下：
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"

Answer 1

本答案参考 多次询问 ChatGPT-3.5 后选择的最佳回答，若是满意，还请采纳，谢谢

以下是在C++ Builder中控制Word使用OLE跳转到指定页码的一般步骤：

一、添加必要的组件和引用

1. 在C++ Builder项目中，需要确保已经正确引用了支持OLE自动化的相关库。通常，这涉及到对ComObj单元的引用，它提供了操作COM对象（如Word的OLE接口）的基本功能。

2. 在项目中添加一个TOleContainer组件（如果还没有的话），这个组件将用于与Word进行OLE交互。

二、连接到Word并执行跳转操作

1. 启动Word应用程序

   • 使用Variant类型来处理OLE对象。首先创建一个Variant对象来表示Word应用程序：

     Variant WordApp;
     try {
       WordApp = Variant::CreateObject("Word.Application");
       WordApp.OlePropertySet("Visible", true);
     } catch (...) {
       // 处理创建Word应用程序失败的情况
     }
     

2. 打开文档（如果需要）

   • 如果要对特定的Word文档进行操作，可以使用以下代码打开文档：

     Variant Doc;
     try {
       Doc = WordApp.OlePropertyGet("Documents").OleFunction("Open", "your_document_path");
     } catch (...) {
       // 处理打开文档失败的情况
     }
     

3. 跳转到指定页码

   • 根据你提供的宏代码Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"，在C++ Builder中可以这样实现：

     Variant Selection = WordApp.OlePropertyGet("Selection");
     // 这里假设wdGoToPage和wdGoToNext是预定义的常量，你可能需要根据Word的类型库定义来正确设置它们的值
     Selection.OleFunction("GoTo", wdGoToPage, wdGoToNext, "2");
     

4. 释放资源

   • 当操作完成后，需要正确释放与Word相关的资源：

     try {
       if (Doc.VariantType()!= varEmpty) {
           Doc.OleFunction("Close", false);
       }
       if (WordApp.VariantType()!= varEmpty) {
           WordApp.OleFunction("Quit");
       }
     } catch (...) {
       // 处理关闭Word应用程序或文档失败的情况
     }
     

请注意：

1. 上述代码中的wdGoToPage和wdGoToNext常量需要根据Word的类型库进行正确定义。在实际应用中，你可能需要导入Word的类型库或者查找这些常量对应的实际整数值。
2. 在处理OLE对象时，要确保正确的错误处理，因为OLE操作可能会因为多种原因（如Word未安装、文档损坏等）而失败。