Word.Application

CreateObject("Word.Application")

Dim objWord

Set objWord = CreateObject("Word.Application")

' Word表示.
objWord.Visible = True
' 警告メッセージをOFF.
objWord.DisplayAlerts = False
' ファイルオープン.
objWord.Documents.Open( "./xxxxx.doc" )
' 行数を表示.
WScript.Echo objWord.Paragraphs.Count
' Word終了.

objWord.Quit wdDoNotSaveChanges
Set objWord = Nothing

Wordの行数を取得するサンプルです。

Wordで気をつけないといけないのが、Quit時の設定をお忘れなく。