将excel中的数据填入word模板中-VBA

以下是使用VBA代码将Excel中的数据填入Word模板中的基本步骤：

1. 打开Word模板文件并创建Word文档对象。

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open("C:\Template.docx")

2. 在Word模板中插入书签并保存。

在Word模板中插入书签，书签将用于标识我们要填充数据的位置。例如，我们可以在Word模板中插入名为"Name"和"Age"的两个书签。

wordDoc.Bookmarks.Add "Name", wordDoc.Range(0, 0)
wordDoc.Bookmarks.Add "Age", wordDoc.Range(0, 0)
wordDoc.Save

3. 打开Excel文件并读取数据。

Dim excelApp As Excel.Application
Dim excelWorkbook As Excel.Workbook
Dim excelWorksheet As Excel.Worksheet
Set excelApp = New Excel.Application
Set excelWorkbook = excelApp.Workbooks.Open("C:\Data.xlsx")
Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
Dim name As String
Dim age As Integer
name = excelWorksheet.Range("A2").Value
age = excelWorksheet.Range("B2").Value
excelWorkbook.Close

4. 在Word文档中填充数据。

wordDoc.Bookmarks("Name").Range.Text = name
wordDoc.Bookmarks("Age").Range.Text = age

5. 关闭Word文档和Excel应用程序并保存Word文档。

wordDoc.Close SaveChanges:=True
wordApp.Quit
excelApp.Quit

完整的VBA代码如下：

Sub FillWordTemplate()
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Dim excelApp As Excel.Application
    Dim excelWorkbook As Excel.Workbook
    Dim excelWorksheet As Excel.Worksheet
    
    '打开Word模板文件
    Set wordApp = New Word.Application
    Set wordDoc = wordApp.Documents.Open("C:\Template.docx")
    
    '在Word模板中插入书签并保存
    wordDoc.Bookmarks.Add "Name", wordDoc.Range(0, 0)
    wordDoc.Bookmarks.Add "Age", wordDoc.Range(0, 0)
    wordDoc.Save
    
    '打开Excel文件并读取数据
    Set excelApp = New Excel.Application
    Set excelWorkbook = excelApp.Workbooks.Open("C:\Data.xlsx")
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
    Dim name As String
    Dim age As Integer
    name = excelWorksheet.Range("A2").Value
    age = excelWorksheet.Range("B2").Value
    excelWorkbook.Close
    
    '在Word文档中填充数据
    wordDoc.Bookmarks("Name").Range.Text = name
    wordDoc.Bookmarks("Age").Range.Text = age
    
    '关闭Word文档和Excel应用程序并保存Word文档
    wordDoc.Close SaveChanges:=True
    wordApp.Quit
    excelApp.Quit
End Sub

以上代码仅供参考，具体实现可能需要根据具体情况进行调整。