通过vbscripting验证word文档

你认为vba会帮助我学习如何通过vbscripting验证word文档。或者我必须严格学习word文档的vb脚本。我的主要问题是我想从第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

microsoft-word vba

— Sarah
source

直到你想要验证的地方或时间

— Gaurav Joseph

对不起我的意思是：请忽略上述评论。我的意思是说在Word文档中你不会有像Excel这样的范围，所以如果我想验证创建的日期和传输日期都在一行中。我不能用上面的脚本来做，因为它匹配所有的日期在创建和传输的文档中，所以我不知道它匹配哪一个。

— Sarah

您可以上传或粘贴可能包含所有测试用例的文档或相关部分。

— Gaurav Joseph