查找并替换单词vba vb.net

Question

我的查找和替换有一个小问题。 它不会在标题中找到并替换我的文本。

我使用VB.net打开word文档进行搜索和替换

有谁知道为什么？

With wdRng.Find
            oDoc.Content.Find.Execute(FindText:="ELEKUND", ReplaceWith:=kund, Replace:=Word.WdReplace.wdReplaceAll)
            While oDoc.Content.Find.Execute(FindText:="  ", Wrap:=Word.WdFindWrap.wdFindContinue)
                oDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)
            End While
        End With