EXCEL 内容在WORD里面实现替换的问题

在Excel里的表里的内容，在WORD指定位置替换
下面这段是写在EXCEL的VBE里的
Sub 合同_Click()
地址1=
地址2=
FileCopy 地址1, 地址2 & "\中.doc"
'===============================================
MV = Range("B5")
'ActiveWorkbook.Close
'===============================================
中路径 =
Dim wdApp
Set wdApp = CreateObject("word.application")
wdApp.Documents.Open (中路径)
wdApp.Visible = True
'============================== '这里是宏录制的 替换 将 !@#01 替换为 MV变量的内容
Selection.Find.ClearFormatting ←【错误点】
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "!@#01"
.Replacement.Text = MV
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'==============================
End Sub
上面这段的运行结果是
能成功的复制WORD文件并打开
在替换时出错：错误的参数号 或 无效的属性赋值
先谢谢各位了