替换word 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和txt3。我想让它在整个文档中搜索txt1/2/3。这可能吗？

Answer 1

这被标记为我熟悉的Excel，这是Word，但我认为在两者之间重新设置我的范围可能会有效：

    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