在 Delphi 5 中获取 Word 文档页数的方法

在 Delphi 5 中获取 Word 文档页数的方法

// 获取文档页数
// PageCount := Document.ComputeStatistics(2);
// PageCount := Document.BuiltInDocumentProperties.Item('Number of Pages').Value;
// PageCount := Document.Selection.Information(4);
 PageCount := Document.ActiveWindow.Panes.Item(1).Pages.Count;

在 Delphi 5 中，您可以通过多种方法获取 Word 文档的页数。以下是几种常用的方法：

方法一：使用 ComputeStatistics 方法（推荐）

这是最可靠的方法，因为它会计算文档的实际页数：

delphi

var
  WordApp, Document: Variant;
  PageCount: Integer;
begin
  // 假设 WordApp 和 Document 已经初始化
  try
    // 使用 ComputeStatistics 方法获取页数
    // 参数 2 对应 wdStatisticPages 常量
    PageCount := Document.ComputeStatistics(2);
    
    ShowMessage('文档页数: ' + IntToStr(PageCount));
  except
    on E: Exception do
      ShowMessage('获取页数时出错: ' + E.Message);
  end;
end;

方法二：使用 BuiltInDocumentProperties

您也可以通过文档的内置属性获取页数：

delphi

var
  WordApp, Document: Variant;
  PageCount: Integer;
begin
  // 假设 WordApp 和 Document 已经初始化
  try
    // 获取页数属性
    PageCount := Document.BuiltInDocumentProperties.Item('Number of Pages').Value;
    
    ShowMessage('文档页数: ' + IntToStr(PageCount));
  except
    on E: Exception do
      ShowMessage('获取页数时出错: ' + E.Message);
  end;
end;

注意事项

1. 两种方法的区别：

   • ComputeStatistics 方法会实时计算文档页数，结果最准确

   • BuiltInDocumentProperties 方法获取的是文档属性中存储的页数，可能不是最新的

2. 错误处理：

   • 始终添加异常处理，因为操作 Word 文档可能会遇到各种问题

   • 确保文档已完全加载后再获取页数

3. 资源清理：

   • 使用完毕后正确关闭 Word 应用程序，避免内存泄漏

4. Word 版本兼容性：

   • 这些方法在 Word 2000 及更高版本中都可用，与 Delphi 5 兼容

使用这些方法，您可以可靠地获取 Word 文档的页数信息。推荐使用 ComputeStatistics 方法，因为它提供的结果最准确。

解决 Delphi 5 中 ComputeStatistics 方法不支持的问题

您遇到的 "not supported by automation object" 错误通常表示该方法在当前 Word 版本或上下文中不可用。这可能是由于 Word 版本兼容性问题或对象引用不正确导致的。以下是几种解决方案：

解决方案一：使用 BuiltInDocumentProperties 方法（推荐替代方案）

delphi

var
  PageCount: Integer;
begin
  try
    // 使用 BuiltInDocumentProperties 获取页数
    PageCount := Document.BuiltInDocumentProperties.Item('Number of Pages').Value;
    ShowMessage('文档页数: ' + IntToStr(PageCount));
  except
    on E: Exception do
      ShowMessage('获取页数时出错: ' + E.Message);
  end;
end;

解决方案二：使用 ActiveWindow 的视图信息

delphi

var
  PageCount: Integer;
begin
  try
    // 通过 ActiveWindow 获取页数信息
    PageCount := WordApp.ActiveWindow.Panes.Item(1).Pages.Count;
    ShowMessage('文档页数: ' + IntToStr(PageCount));
  except
    on E: Exception do
      ShowMessage('获取页数时出错: ' + E.Message);
  end;
end;

解决方案三：使用 Selection 的 Information 属性

delphi

var
  PageCount: Integer;
begin
  try
    // 使用 Selection 的信息属性获取总页数
    // 参数 4 对应 wdNumberOfPagesInDocument 常量
    PageCount := WordApp.Selection.Information(4);
    ShowMessage('文档页数: ' + IntToStr(PageCount));
  except
    on E: Exception do
      ShowMessage('获取页数时出错: ' + E.Message);
  end;
end;