Проверьте текстовый документ с помощью vbscripting

Question

Как вы думаете, vba поможет мне узнать, как проверить текстовый документ с помощью vbscripting. Или я должен строго изучать скрипты для документов Word. Моя главная проблема - я хочу начать проверку, например, со строки 7, а затем завершить работу с документом, как только я закончу. Я не хочу проверять до конца документа. Пожалуйста, дайте мне знать, как это сделать.

Set objWord = CreateObject("Word.Application")
    objWord.Visible = True

Set objDoc = objWord.Documents.Open(strFilePath)
Set objSelection = objWord.Selection
For i =0 to 1

    objSelection.Find.Text =Date 'Today's Date
        objSelection.Find.Forward = TRUE
        objSelection.Find.MatchWholeWord = TRUE

        If objSelection.Find.Execute Then
           Call Verification(True, True,"The search string was found."&i, "")
        Else
           Call Verification(True, False,"The search string was not found.", "")
    End If
Next
objWord.Quit 0