求助！！如何将excel 表格中的数据根据一定条件更新到word之中！！

lj1226189

文件夹内有一个excel表格 另有一个 word 模板 ，现在要求点击excel表中按钮后  以word模板为基础 再生成一个word文件 改名为 excel表格中年份，同时将word 各个[]内数据 替换成excel中数据  ！！！  谢谢！！！ excel 连动word 培训模板.rar (17.71 KB, 下载次数: 20)

2018-9-3 06:49 上传

点击文件名下载附件

lj1226189

不能沉下去啊 各位高手一定要帮帮我啊！！

谢谢！！！！！

小花鹿

给你段代码，自己研究吧：
Sub test()
Dim myword, thispath, mydoc, r&, i&, j&
Set myword = CreateObject("word.application")
thispath = ThisWorkbook.Path & "\"
r = Sheet1.[b65536].End(3).Row
For i = 2 To r
    mydoc = thispath & "授课通知（" & Sheet1.Cells(i, 2) & "）.doc"
    FileCopy thispath & "授课通知(模板).doc", mydoc
    With myword
        .documents.Open mydoc
        .Visible = True
        For j = 1 To 5
            If .Selection.Find.Execute("数据" & Format(j, "000")) Then
                .Selection.Text = Sheet1.Cells(i, j + 1)
                .Selection.MoveRight Unit:=1, Count:=1
            End If
        Next j
        For j = 1 To 3
            .activedocument.tables(1).cell(2, j) = Sheet1.Cells(i, j + 6)
            .activedocument.tables(1).cell(4, j) = Sheet1.Cells(i, j + 9)
        Next j
        '--------------------------------------------
        .ActiveWindow.ActivePane.View.SeekView = 9
        If .Selection.Find.Execute("数据006") Then
            .Selection.Text = "中心小学"
        End If
        .ActiveWindow.ActivePane.View.SeekView = 10
        If .Selection.Find.Execute("数据007") Then
            .Selection.Text = "宁阳县"
        End If
        '------------------------------------------
        .documents.Close True
    End With
Next i
myword.Quit
End Sub

小花鹿

或者看这个帖子：http://club.excelhome.net/thread-477904-1-1.html

lj1226189

能否帮我在附件上做一下呢 这个我都看了 学过了 总是有自动化错误 或对象库未注册 ！！ 能否麻烦你在百忙之中出手相助！！

不胜感激！！

QQ214189912

.............

lj1226189

QQ214189912 发表于 2018-9-3 10:51
.............

非常感谢 ！！

这个是在模板上面改 能否模板还放在哪边 内容不动 生成一个新的word 命名为2015全年培训总结 并且将改过的内容显示在这个新命名的word中 再次感谢！！

lj1226189

[赞],点击[ http://pinyin.cn/e19975 ]查看表情[赞],点击[ http://pinyin.cn/e19975 ]查看表情

lj1226189

再次求助 谢谢

lj1226189

已解决 多谢楼上各位 等会把附件上传大家共享！！