求助，自动化（automation）错误对象库未注册

轩萧

Private Sub CommandButton输出通知到Word文件_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   判断 = 0
   For i = 2 To 最后行号
      导出文件名 = "授课通知"
      FileCopy 当前路径 & "\授课通知(模板).doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        For j = 1 To 5 '填写文字数据
           Str1 = "数据" & Format(j, "000")
           Str2 = Sheets("数据").Cells(i, j + 1)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = Str2 '替换字符串
           End If
        Next j
        For j = 1 To 3 '填写表格数据
           .ActiveDocument.Tables(1).Cell(2, j).Range = Sheets("数据").Cells(i, j + 6)
           .ActiveDocument.Tables(1).Cell(4, j).Range = Sheets("数据").Cells(i, j + 9)
        Next j
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页眉
        Str1 = "数据006"
        Str2 = Sheets("数据2").Cells(2, 2)
        .Selection.HomeKey Unit:=wdStory '光标置于文件首
        If .Selection.Find.Execute(Str1) Then '查找到指定字符串
           .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
           .Selection.Text = Str2 '替换字符串
        End If
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '设置位置在页脚
        Str1 = "数据007"
        Str2 = Sheets("数据2").Cells(2, 1)
        .Selection.HomeKey Unit:=wdStory '光标置于文件首
        If .Selection.Find.Execute(Str1) Then '查找到指定字符串
           .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
           .Selection.Text = Str2 '替换字符串
        End If
      End With
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing
   Next i
   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub

huang1314wei

工具---引用里面没有引用word吧

轩萧

huang1314wei 发表于 2017-12-4 20:58
工具---引用里面没有引用word吧

我在工具里没找到word啊

轩萧

huang1314wei 发表于 2017-12-4 20:58
工具---引用里面没有引用word吧

加载word了，还是不好使。流泪//

huang1314wei

轩萧 发表于 2017-12-4 21:12
加载word了，还是不好使。流泪//

那你需要重装一下office了，你的附件在我们电脑上运行没有问题的，我的电脑安装的是office 2010 32位完整版

bifutian

楼主，你的问题解决了吗，我也是遇到相同的问题不知道怎么弄