一个统计Word文档中行数的VBA例程

最新推荐文章于 2025-11-25 11:43:42 发布

原创最新推荐文章于 2025-11-25 11:43:42 发布 · 5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#文档 #vba #integer #table #each

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Word 2010

32 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

本文提供了一个使用VBA编写的例程，该例程能够计算Word文档中的行数，但不包括表格中的行数。通过遍历文档中的每个表格并从中减去其行数来实现这一目标。

这是一个计算Word中文档行数的例程（表格中的行数不算）。

Sub test()
     Dim i As Integer
     Dim t As Table
     
    i = ActiveDocument.range.ComputeStatistics(wdStatisticLines)
     For Each t In ActiveDocument.Tables
         i = i - t.range.ComputeStatistics(wdStatisticLines)
     Next
     MsgBox i
 End Sub

欢迎访问我的主博客《许阳的红泥屋》