在Excel里用代码把word里的“123”替换成“456”。调试过程中无报警和异常，就是没效果，没替换成功，求大神指点。

代码如下
Sub 按钮1_Click()
Dim myBool As Boolean
myBool = True
Set dakai = CreateObject("word.application")
dakai.Visible = True
Dim s As String
s = "*****************************************************************************"
Set myDoc = dakai.Documents.Open("C:\Users\Administrator\Desktop\test宏\test1.docx")
With myDoc.Content.Find
.ClearFormatting
.Text = "123"
.Replacement.ClearFormatting
.Replacement.Text = "456"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
Debug.Print myDoc.Content.Text
Debug.Print s
myDoc.Save
myDoc.Close
dakai.Quit SaveChanges:=wdPromptToSaveChanges
End Sub