Isso deve funcionar
Dim lastRow As Long
lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
MsgBox lastRow
KB de BuiltInDocumentProperties
Então algo assim funcionaria e seria o mesmo tipo de for
loop como excel -
Sub CountLines()
Dim lastRow As Long
Dim i As Long
lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
For i = 1 To lastRow
If i Mod 3 = 0 Then
'Do Stuff
End If
Next
End Sub
Ou para ser mais completo -
Sub CountLines()
Dim lastRow As Long
Dim i As Long
lastRow = ActiveDocument.BuiltInDocumentProperties("Number Of Lines")
For i = 1 To lastRow
If i Mod 3 = 0 Then
ActiveDocument.Paragraphs(i).Range.Font.Bold = True
'Do other stuff
End If
Next
End Sub