为什么Excel VBA不能在Word文档中查找和替换

Sub FindAndReplace()
    Dim wordApp As Object
    Dim wordDoc As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\path\to\your\document.docx")
    
    ' 在文档中查找和替换文本
    With wordApp.Selection.Find
        .ClearFormatting
        .Text = "要查找的文本"
        .Replacement.Text = "要替换的文本"
        .Forward = True
        .Wrap = 1    ' wdFindContinue
        .Execute Replace:=2    ' wdReplaceAll
    End With
    
    ' 关闭Word文档和应用程序对象
    wordDoc.Close SaveChanges:=True
    wordApp.Quit
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub