替換單詞VBA Excel-Microsoft Word

Question

我正在嘗試搜索一個單詞並將其替換為空：

objWord.Documents.Open (C:\word.docx)


With objWord.ActiveDocument
Set myrange = .Content
With myrange.Find
    .Execute FindText:=txt1, ReplaceWith:=""
    .Execute FindText:=txt2, ReplaceWith:=""
    .Execute FindText:=txt3, ReplaceWith:=""
End With
End With

問題是它首先搜索txt1，如果找不到，則搜索txt1文本下方的txt2和txt 3。 我希望它在整個文檔中搜索txt1 / 2/3。 這可能嗎？

Answer 1

這被標記為我所熟悉的Excel，它是Word，但我想在每一個之間重置myrange可能起作用：

    With objWord.ActiveDocument
    Set myrange = .Content
    With myrange.Find
        .Execute FindText:=txt1, ReplaceWith:=""
    End With
    Set myrange = .Content
    With myrange.Find
        .Execute FindText:=txt2, ReplaceWith:=""
    End With
    Set myrange = .Content
    With myrange.Find
        .Execute FindText:=txt3, ReplaceWith:=""
    End With
    End With