·EXCEL信息批量生成WORD·报错问题

lovelycpp

hello
VBA大神，在论坛上下了个模板，在我自己电脑上用非常爽，但是把模板发给同事或者在其他电脑上，运行时，显示：Private Sub CommandButton输出通知到Word文件_Click() 找不到工程or文件，这个怎么破。

还有个问题，这个模板是EXCEL生成单个word模板，如果我有多个WORD模板，想要用一个Excel批量生成多个模板，怎么做呢~

蓝桥玄霜

把这二句改一下：
        导出文件名 = "01 解除劳动合同证明书"
        FileCopy 当前路径 & "\01 解除劳动合同证明书（模板）.doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
下面再抄抄一样的代码
就是换一个文件名，再写一遍过程

lovelycpp

蓝桥玄霜 发表于 2020-3-27 17:15
把这二句改一下：
        导出文件名 = "01 解除劳动合同证明书"
        FileCopy 当前路径 & "\01 解 ...

hello~老师，有个问题
这个模板在我的电脑上可以使用，发给其他人就显示，找不到工程，这个怎么破

alai1222

这个应该是要勾选VBA编辑器里的  工具--引用--Microsoft Office 14.0 object library 请试试。

lovelycpp

alai1222 发表于 2020-3-30 17:00
这个应该是要勾选VBA编辑器里的  工具--引用--Microsoft Office 14.0 object library 请试试。

高手~确实是这个问题呢，终于可以那台电脑上都用了

lovelycpp

alai1222 发表于 2020-3-30 17:00
这个应该是要勾选VBA编辑器里的  工具--引用--Microsoft Office 14.0 object library 请试试。

亲 怎么办，我电脑原来是office2019 装了机密软件不兼容 改为office 2010
现在运行这个宏就提示：运行时错误‘48’ 加载DLL错误
怎么办呀？

魂断蓝桥

dim word对象
Set word对象= CreateObject("Word.Application")

试一试用创建法建立对象

lovelycpp

魂断蓝桥 发表于 2020-7-29 11:57
dim word对象
Set word对象= CreateObject("Word.Application")

Private Sub CommandButton输出通知到Word文件_Click()
    Dim word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
    Dim Str1, Str2
    当前路径 = ThisWorkbook.Path
    最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
    For i = 2 To 最后行号
        导出文件名 = "离职证明"
        FileCopy 当前路径 & "\11 离职证明（文控编号：CBYJ-RL-011-202006-V2）.docx", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").docx"
        导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").docx"
        With word对象
            .Documents.Open 导出路径文件名
            .Visible = False
            For x = 1 To 2
                For j = 1 To 9      '填写文字数据
                    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
            Next
            .Documents.Save
            .Quit
        End With
        Set word对象 = Nothing
    Next i
    MsgBox "已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示："
End Sub



亲 求教 怎么改代码呀？

gbgbxgb

lovelycpp 发表于 2020-7-29 13:03
Private Sub CommandButton输出通知到Word文件_Click()
    Dim word对象 As New Word.Application, 当 ...

试试附件。
生成Word文档.rar (37.54 KB, 下载次数: 142)

2020-7-29 13:58 上传

点击文件名下载附件

wps6129

魂断蓝桥 发表于 2020-7-29 11:57
dim word对象
Set word对象= CreateObject("Word.Application")

我在原始的code 上  把引用法：

1. Dim word对象 as New Word.Application

复制代码

换成了 创建法：

1. Dim word对象
   
2. set word对象=CreateObject("word.Application")

复制代码

程序就报错了。
在第一次完成 循环后， End with语句 后word对象就被清空了。
但是在 引用法中，word对象就不会被清空。

这是对象创建 的不同 原理？