程序代码：

Sub 生成Word文件_Click()
  Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   Dim Word表格行号, Word表格列号, Excel数据表列号
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
    B = InputBox("请输入数据开始行", "提示")
  c = InputBox("请输入数据结束行", "提示")

 
   判断 = 0
   For i = B To c
      导出文件名 = "信息"
      FileCopy 当前路径 & "\信息.doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("信息表").Range("c" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
      导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("信息表").Range("c" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
         With .Selection.Find
        For x = 33 To 1 Step -1 '从大到小，防止字符串序号低位与高位串扰，填写数据即excel表总列数
               Str1 = "数" & Format(x, "00")
               Str2 = Sheets("信息表").Cells(i, x)
               .Text = Str1 '查找到指定字符串
               .Replacement.Text = Str2 '替换字符串
              .Execute Replace:=wdReplaceAll '全部替换
            Next x
          End With
            
         
       
        .Selection.WholeStory '全部选中
        .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
      End With
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing
   Next i
   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub