●★将Excel数据写入Word模板★●

sblisb

不错，留个记号

supermanxuming

学习大神了

gaoyong0713

必须学习，非常感谢，用其他软件编程实现也能解决，但我现在就想用VBA

lovelycpp

大神 SOS，我word 没有单元格，没有页眉页脚，把页眉页脚、单元格的代码删了，提示错误
Private Sub CommandButton输出通知到Word文件_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   判断 = 0
   For i = 2 To 最后行号
      导出文件名 = "离职证明"
      FileCopy 当前路径 & "\离职证明（模板）.doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        For j = 1 To 8 '填写文字数据
           Str1 = "数据" & Format(j, "000")
           Str2 = Sheets("数据").Cells(i, j + 1)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = Str2 '替换字符串
           End If
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing
   Next i
   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub

lele26628

感谢大神：热浪2006

sunny_8848

感谢分享，下载学习

DDDDaisy

感谢分享，先下载好好学习

老乐哥

厉害，收下了，学习！！

谢谢！

shaoubaby

每个月都要把本月的统计数据写成报告，填列数字需要一两天，甚是麻烦，希望热浪大神的模板有用

X。P

还不会修改，先收下慢慢的研究。