当前位置: 源码素材网 » Delphi源码 » 文件操作 » 详情页

Delphi 统计Word文档的页数

Delphi 统计Word文档的页数,在不打开Word文档的情况下,直接统计出该文档的页码数,显示在窗口的Edit2.Text 处,并设置醒目颜色,运行效果如截图所示,用户打开后可浏览选择一个Word文档,然后单击按钮即可获取页码:
  if Edit1.Text<>'' then
  begin
   try
   MSWord := CreateOLEObject('Word.Application'); //创建Word对象
   Leaf := MSWord.Documents.Open (FileName:=f); //打开指定目录下的Word文档
   MSWord.Visible := False; //不显示Word文档
   p := MSWord.Selection.Information[wdNumberOfPagesInDocument]; //获取当前Word文档的总页数
   Edit2.Text :=IntToStr(p);
   finally
   MSWord.quit;
   MSWord := unassigned;
   end;

  • 相关标签:Word 页码
  • 调试环境:Delphi+MSSQL
  • 文件大小:92.3K
  • 资源评级:
  • 更新时间:2020-05-19
  • 相关链接:暂无演示

源码测试截图:

Delphi 统计Word文档的页数运行截图

相似源码:Word 页码 Delphi源码下载:Delphi 统计Word文档的页数 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 统计Word文档的页数”源代码侵犯了您的权益,请尽快告诉我们。