Question

下面的代码打开一个单词doc（working），然后我想找到并替换我的程序员用＆＃39; 438＆＃39;错误，＆＃34;对象不支持此属性或方法＆＃34;！干杯！

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

Answer 1

请参阅此处的文档：https://msdn.microsoft.com/en-us/library/office/ff839118.aspx。 Find和Selection对象提供Range。您正尝试从Word实例访问它。您需要先定义Selection或Range，然后从那里访问它。

请查看文档中的示例代码，但您可以执行以下操作（根据您的用例调整示例代码），以便myRange.Find代表您正在寻找的对象：

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

VBA在代码中修复.Text .Replace

1 个答案: