各位老师节日快乐，请VBA(word)教用户类型未定义的错误

msstz

F8 出现用户类型未定义的错误，请问各位老师这个问题出在哪里啊
我把下面的代码复制到热浪老师的提供的EXECL样本中却没有报同类错误；
谢谢


Private Sub 生成程序文件_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名
   Dim j%, i%
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   数据表名 = "自动生成DOC-勿删"
   判断 = 0

   i = 4

      导出文件名 = "程序文件"
      FileCopy 当前路径 & "\程序文件--模版.doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets(数据表名).Range("A" & i) & ").doc"
      导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets(数据表名).Range("A" & i) & ").doc"
      With Word对象
         .Documents.Open 导出路径文件名
         .Visible = False

         '填写文字数据
         With .Selection.Find
            For j = Sheet6.Range("iv3").End(1).Column To 1 Step -1 'j从最大列到小，防止字符串序号低位与高位串扰
               Str1 = "数据" & Format(j)
               Str2 = Sheets(数据表名).Cells(i, j)
               .Text = Str1 '查找到指定字符串
               .Replacement.Text = Str2 '替换字符串
              .Execute Replace:=wdReplaceAll '全部替换
            Next
         End With

        '填写表格数据


        .Selection.WholeStory '全部选中
        .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
      End With
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing

   If 判断 = 0 Then
      j = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub