excel vba 填充word模板

Excel VBA 可以用于填充 Word 模板，通过以下步骤实现：

首先，我们需要创建一个 Word 模板，并在模板中设置好需要填充的位置，如需要填充的文本框、表格等。

其次，通过 VBA 代码在 Excel 中打开该 Word 模板，将数据从 Excel 中读取并填充到 Word 模板中对应的位置。可以使用 VBA 的 Range 和 Selection 对象来定位并填充数据。

例如，可以使用 Range 对象来定位到需要填充的位置，然后使用 Selection 对象来将数据填充到相应的位置。也可以通过书签（Bookmark）的方式来定位需要填充的位置。

最后，当所有数据填充完成后，保存并关闭 Word 文档。

以下是一个简单的示例代码：

Sub FillWordTemplate()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim excelRange As Range
    
    ' 创建一个 Word 应用
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开 Word 模板
    Set wdDoc = wdApp.Documents.Open("C:\Template.docx")
    
    ' 将 Excel 中的数据填充到 Word 模板中
    Set excelRange = ThisWorkbook.Sheets("Sheet1").Range("A1")
    wdDoc.Bookmarks("Bookmark1").Range.Text = excelRange.Value
    
    ' 保存并关闭 Word 文档
    wdDoc.SaveAs "C:\FilledTemplate.docx"
    wdDoc.Close
    wdApp.Quit
    
    ' 释放对象
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

通过这种方式，我们可以利用 Excel VBA 代码来自动化填充 Word 模板，提高工作效率。