如何用vba返回word文档的总行数？

word vba 里面有页（Page）、段落（Paragraph）对象，但是却没有行对象。

在对word文档进行逐行遍历时，需要知道word文档内容的总行数。

word vba 中提供了一个便捷的方法可以快速地获得word文档内容的总行数。
在word vba 中利用Document对象的BuiltInDocumentProperties属性可以获得文档的各种属性的值，其中总行数可以用以下的代码获得。

Sub QQ1722187970()
     Dim iLine As Long
     Const wdPropertyLines = 23
     Dim oDoc As Document
     Set oDoc = Word.ActiveDocument
     '获取当前word文档内容的总的行数
     iLine = oDoc.BuiltInDocumentProperties(wdPropertyLines)
     MsgBox iLine
End Sub

除了可以用BuiltInDocumentProperties属性获取文档的总行数外，还可以获取各种其它属性的值，用以下的代码可以获得所有内在属性的名称和对应的值。

Sub QQ1722187970()
     Dim obj
     Dim oDoc As Document
     Set oDoc = Word.ActiveDocument
     For Each obj In oDoc.BuiltInDocumentProperties
        Debug.Print obj.Name
        Debug.Print obj.Value
     Next
End Sub