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

这是一个计算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

---

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