vbscript：如何在选择中包含单词表的搜索文本？

我正在使用这些脚本在VBscript中执行“搜索和替换”操作。问题是有些搜索字段位于Word文档的表中。我的选择似乎不包括该表中的文本。我如何改进我的脚本，以便我的选择也包括该文本并替换表中的文本

function sendLetterGeneric(letter, Vars1, Vars2)
    Set oWord = CreateObject("Word.Application")
    oWord.Visible = False
    oWord.Documents.Open letter
    Set objSelection = oWord.Selection
    call replaceText(objSelection, Vars1, Vars2)
    oWord.PrintOut
    oWord.activedocument.Saved = True
    oWord.activedocument.close
    oWord.Quit
end function

function replaceText(objSelection, Vars1, Vars2)
    Const wdReplaceAll = 2
    dim counter
    counter = 0
    for each var in Vars1
        objSelection.Find.Text = Vars1(counter)
        objSelection.Find.Forward = TRUE
        objSelection.Find.MatchWholeWord = TRUE
        objSelection.Find.Replacement.Text = Vars2(counter)
        objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll
        counter = counter +1
    next
end function 

---

你还在为此挣扎吗？为了回答这个问题，我们需要知道选择是什么。您的意思是要搜索整个文档？在具有文本换行格式的页眉/页脚或图形对象中是否有未被搜索的文本？