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

首先将word模板中需要填写excel中数据的空白处用自己独特的字符串标记，比如数据001 什么的。如下图：

这样，就可以用vba搜寻这些自己独特的标记来根据excel内容填充word了。

第一个填好的如下图：

而excel中数据如下图：

然后代码如下：

 1  Sub 生成Word文件_Click()
 2   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
 3    Dim Word表格行号, Word表格列号, Excel数据表列号
 4    Dim Str1, Str2
 5    当前路径 = ThisWorkbook.Path
 6     B = InputBox("请输入数据开始行", "提示")
 7   c = InputBox("请输入数据结束行", "提示")
 8   
 9    判断 = 0
10    For i = B To c
11       导出文件名 = "通知书"
12       FileCopy 当前路径 & "通知书.doc", 当前路径 & "" & 导出文件名 & "(" & Sheets("统计表").Range("c" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
13       导出路径文件名 = 当前路径 & "" & 导出文件名 & "(" & Sheets("统计表").Range("c" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
14       With Word对象
15         .Documents.Open 导出路径文件名
16         .Visible = False
17          With .Selection.Find
18             For x = 7 To 1 Step -1 '从大到小，防止字符串序号低位与高位串扰，填写数据即excel表总列数
19                Str1 = "数据" & Format(x, "000")
20                'MsgBox "str1" & Str1
21                Str2 = Sheets("统计表").Cells(i, x)
22                .Text = Str1 '查找到指定字符串
23                .Replacement.Text = Str2 '替换字符串
24               .Execute Replace:=wdReplaceAll '全部替换
25             Next x
26           End With
27              
28           
29         
30         .Selection.WholeStory '全部选中
31         .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
32       End With
33       Word对象.Documents.Save
34       Word对象.Quit
35       Set Word对象 = Nothing
36 '      If i = c Then
37 '       MsgBox "已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示："
38 '      End If
39       
40    Next i
41    If 判断 = 0 Then
42       i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
43    End If
44    
45 End Sub

这个excelhome里给的一个代码。挺好的，就是中文变量挺多的。