使用模板将Excel导入Word。我从哪里开始？

我正在寻找从excel文件填充word模板。我的excel文件将包括几行，每行都有一个名称和几个数字条目，因此类似于：

Firstname, Lastname, 1,2,3,4

我想做的是为每一行自动创建一个不同的word文档。每个单词都是同一个模板，只是根据行的不同使用不同的数字

---

是否有任何方法可以批处理此操作，以便包含每行数据的word文件？

您可以从以下代码开始：

Sub AutoSend2Word()
Dim i, lastRow As Long
Dim objWord, objDoc As Object

lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Set objWord = CreateObject("word.Application")
objWord.Visible = True
For i = 2 To lastRow
    Set objDoc = objWord.Documents.Add
    Set objselection = objWord.Selection
    With objselection
       .TypeText Range("A" & i).Value & Chr(10)
       .TypeText Range("B" & i).Value & Chr(10)
       .TypeText Range("C" & i).Value & Chr(10)
       .TypeText Range("D" & i).Value & Chr(10)
       .TypeText Range("E" & i).Value & Chr(10)
       .TypeText Range("F" & i).Value & Chr(10)
       .TypeText Range("G" & i).Value & Chr(10)
    End With
    Filename = "D:\MyFirstSave_" & Format(Now, "hh mm ss")
    objDoc.SaveAs Filename
    Set objselection = Nothing
Next i

Set objOutlook = Nothing
End Sub