根据excel数据和word模板生成word

chxw68

练习。。。

gwjkkkkk

Option Explicit
Sub test2()
Dim ar, br, i&, j&, wdApp As Object, strFileName$, strPath$, strSaveName$, Msg&

    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "培训记录模板.docx"
    If Dir(strFileName) = "" Then MsgBox "模板文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
   
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
   
    ar = [A1].CurrentRegion.Value
    br = Array(6, 8, 4, 10, 18, 14, 12, 2, 16)
   
    With wdApp.Documents.Add
        strSaveName = ThisWorkbook.Path & "\生成文档"
        For i = 2 To UBound(ar)
            With wdApp.Documents.Open(strFileName)
                With .tables(1)
                    For j = 0 To UBound(br)
                        .Range.Cells(br(j)).Range.Text = ar(i, j + 2)
                    Next j
                End With
                .Range(.Content.Start, .Content.End - 1).Copy
                .Close False
            End With
            wdApp.Selection.Paste
        Next i
        .SaveAs2 strSaveName: .Close
    End With
   
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

cqcbc

两位大师的作品，很好用，收藏了。

toc230415

chxw68 发表于 2024-8-20 15:34
练习。。。

大佬，麻烦问下如果有的要改的地方在word的表格外我插入一个标签bookmark1要把trainingLocation的内容放进去这个要怎么更改呢，或者不用标签其他方便的方式也行，就是有的数据不再表格内

toc230415

gwjkkkkk 发表于 2024-8-20 19:29
参与一下。。。

谢谢您百忙之中帮我解决问题，你这个代码我看着太难了，而且我运行后没生成培训记录，可能是OFFICE版本问题吧，我用的2016的

gwjkkkkk

toc230415 发表于 2024-8-21 12:25
谢谢您百忙之中帮我解决问题，你这个代码我看着太难了，而且我运行后没生成培训记录，可能是OFFICE版本问 ...

文档 解压后，生成在运行文档的相同目录下。。。

toc230415

gwjkkkkk 发表于 2024-8-21 13:09
文档 解压后，生成在运行文档的相同目录下。。。

不行，我点按钮或者直接运行代码都在当前文件下没有生成培训记录，可能是我OFFICE版本问题吧。主要您的我不好理解   不方便我以后修改其他类似模板。
这个压缩包是另外一位大佬做的，修改没有问题，但是我想试下在表格外的信息如何更新的，我在培训记录模板插入一个标签bookmark1要把trainingLocation的内容放进去这个要怎么修改这个代码。我做的运行都是trainingLocation的内容都集中放在了第一页。

chxw68

toc230415 发表于 2024-8-21 12:19
大佬，麻烦问下如果有的要改的地方在word的表格外我插入一个标签bookmark1要把trainingLocation的内容放 ...

VBA操作WORD确实没有操作EXCEL那么方便，你最好能上传附件看一下，这个需要具体问题具体分析，我给你笼统地讲一下估计你也不会修改。

cai2532

toc230415 发表于 2024-8-21 14:17
不行，我点按钮或者直接运行代码都在当前文件下没有生成培训记录，可能是我OFFICE版本问题吧。主要您的我 ...

    在老师代码里加入这行代码就可以生成了。Set wdapp = CreateObject("word.application")