关于vba word的一些用法

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

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

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

Sub totalLine()     
Dim iLine As Long     
Const wdPropertyLines = 23     
Dim oDoc As Document     

Set oDoc = Word.ActiveDocument     
'获取当前word文档内容的总的行数     
iLine = oDoc.BuiltInDocumentProperties(wdPropertyLines)     
MsgBox iLineEnd Sub

p= Selection.Information(wdActiveEndPageNumber) '当前页码
r= Selection.Information(wdFirstCharacterLineNumber) '当前行