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

楼主 xmyjk	Q:如何运用WORD VBA获得word文档中当前页的总行数 A:程序并非为了模拟WORD自身的统计工具的效果，用于实际程序判断光标的位置。还是有所差异的，WORD统计表格是按单元格计算行数的，另外，不计算最后的空行，但是程序有时候为了知道实际位置，还是需要得知最后是否有空行的。 Sub IWantToKnow() Dim lineCount As Integer, myRectangle As Rectangle, netLines As Long, tableCount As Long, tb As Table For Each myRectangle In ActiveWindow.Panes(1).Pages(Selection.Information(wdActiveEndPageNumber)).Rectangles '获取光标所在页面的的Rectangles集合并开始循环 If myRectangle.RectangleType = wdTextRectangle Then '判断是否是文本 On Error GoTo line1 '错误处理，用于排除其他干扰项 If myRectangle.Range.StoryType = wdMainTextStory Then '判断是否是正常段落文本 On Error GoTo 0 lineCount = lineCount + myRectangle.Lines.Count '行数累加 netLines = netLines + myRectangle.Lines.Count '净行数累加 tableCount = tableCount + myRectangle.Range.Tables.Count '表格数累加 For Each tb In myRectangle.Range.Tables '历遍表格 netLines = netLines - tb.Rows.Count '表格数累加 Next End If End If line1: If Err.Number <> 0 And Err.Number <> 5891 Then MsgBox "出错，" & Err.Number Else Err.Clear '错误处理 Next MsgBox "本页有" & lineCount & "行(含表格)," & vbCrLf & _ "有" & tableCount & "表格，扣除表格有" & netLines & "行!" 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版式来查看文档并使用上面代码。但第二个问题，我暂时还没有解。期望妃师祖及大家指导！