ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Word > 如何运用WORD VBA获得word文档中当前页的总行数

如何运用WORD VBA获得word文档中当前页的总行数

作者:绿色风 分类: 时间:2022-08-18 浏览:235
楼主
xmyjk
Q:如何运用WORD VBA获得word文档中当前页的总行数

A:程序并非为了模拟WORD自身的统计工具的效果,用于实际程序判断光标的位置。
还是有所差异的,WORD统计表格是按单元格计算行数的,另外,不计算最后的空行,但是程序有时候为了知道实际位置,还是需要得知最后是否有空行的。
  1. Sub IWantToKnow()
  2.     Dim lineCount As Integer, myRectangle As Rectangle, netLines As Long, tableCount As Long, tb As Table

  3.     For Each myRectangle In ActiveWindow.Panes(1).Pages(Selection.Information(wdActiveEndPageNumber)).Rectangles '获取光标所在页面的的Rectangles集合并开始循环
  4.         If myRectangle.RectangleType = wdTextRectangle Then '判断是否是文本
  5.             On Error GoTo line1 '错误处理,用于排除其他干扰项
  6.             If myRectangle.Range.StoryType = wdMainTextStory Then '判断是否是正常段落文本
  7.                 On Error GoTo 0
  8.                 lineCount = lineCount + myRectangle.Lines.Count '行数累加
  9.                 netLines = netLines + myRectangle.Lines.Count '净行数累加
  10.                 tableCount = tableCount + myRectangle.Range.Tables.Count '表格数累加
  11.                 For Each tb In myRectangle.Range.Tables '历遍表格
  12.                     netLines = netLines - tb.Rows.Count '表格数累加
  13.                 Next
  14.             End If
  15.         End If
  16. line1:
  17.         If Err.Number <> 0 And Err.Number <> 5891 Then MsgBox "出错," & Err.Number Else Err.Clear '错误处理
  18.     Next
  19.     MsgBox "本页有" & lineCount & "行(含表格)," & vbCrLf & _
  20.            "有" & tableCount & "表格,扣除表格有" & netLines & "行!"
  21. End Sub



行数测试.rar
2楼
花蔓
跟着妃妃学习Word里的vba,拽着去折腾~
3楼
天南地北
这个计算跟WORD的直接提供的字数统计有出入:
第一:对于当前页的统计word对于最后一行的空行是不统计的,也就是最后一个只有回车符的这一行是不会统计的
第二:WORD对于表格行数的统计是按照单个单元格来的
第三:俺测试出错了……
对于.rar
4楼
xmyjk
第一个:我们是针对程序用的,所以最后行还是要算进去的,不然,程序就判断不准当前光标所在的实际坐标,无法进行后续处理,漏了最后一个实际行,程序就会出错的,如果要和WORD一致,用下替换,去除最后连续空回车符号即可。
第二个:一样,正是它的统计是按单元格统计,这个不是很科学,也不利于程序判断实际行数,所以才特别编程书写的,如果仅仅是为了获取统计数据栏的消息,直接访问统计栏对象即可,就不用大费周章去这么测试了。也不知道微软为啥按单元格统计,其实在VBA对象里面,微软的LINES属性也是按照行数来处理的。
前两点,我会重新编排版面的:程序不是用于模拟WORD统计界面,而是用于程序用来实际判断行数,以便程序进行下一步处理。
第三点是我失误了,少加了个错误处理,有时候是会有一些其他干扰对象,就是那些非正文的文本对象,结果又隐藏在可视的范围内。例如空文本框,空艺术字,脚注等等一些。抛出即可。

总之,谢谢天南的测试。
5楼
BianChengNan
版主v5.
6楼
chenlifeng
妃师祖,您的代码,我遇到了问题哈:
1、说for循环未初始化,具体情况见下的附件;
2、统计的行数,有时候不太对,具体见我上次的提问:http://www.exceltip.net/thread-41352-1-1.html


   谢谢妃师祖!
7楼
chenlifeng
反馈:
    上面第一个问题,已经解决,原来是不能用 web版式来查看文档并使用上面代码。
但第二个问题,我暂时还没有解。期望妃师祖及大家指导!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap