将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("请输入数