Excel VBA修复.Text.Replace在代码中

下面的代码打开一个word文档（正在工作），然后我想查找并替换我的程序正在崩溃的文本，并出现“438”错误，“对象不支持此属性或方法”！干杯

Sub OpenWordFile()
        Dim objWord as Object

      Set ObjWord = CreateObject("Word.Application")
      objWord.Visible = True 
      objWord.Documents.Open "C:\..."
      With objWord.Find
      .Text = "aaa"
      .Replacement.Text = "bbbb"
     End With

End Sub

---

请参阅此处的文档：<代码>查找可从

选择

和

范围

对象中获得。您正在尝试从Word实例访问它。您需要首先定义一个

选择

或

范围

，然后从那里访问它

查看文档中的示例代码，但您可以这样做（根据您的用例调整示例代码），以便

myRange.Find

表示您要查找的对象：

Set myRange = ActiveDocument.Content 
myRange.Find.Execute FindText:="aaa", ReplaceWith:="bbbb", Replace:=wdReplaceAll

---

投票被否决，因为缺乏关于错误发生地点的信息。嗨@MakDo，我下面的回答是否解决了你的问题？是的@leekaiinthesky，是的！谢谢！！！这就是我要找的