[已解决]求助此段代码是生成EXECL数据到WORD文档，是否做到不用打开WORD文档即可打印。

qinhuan66 · 发表于 2015-7-16 08:01

本帖最后由 qinhuan66 于 2015-7-17 09:19 编辑

求助下面这段代码是把EXECL数据根据WORD模板生成新的WORD文档，能否在生成的同时并打印本次新生成的WORD的文档。谢谢

介绍信生成系统.rar (56.57 KB, 下载次数: 3)

2015-7-16 08:01 上传

点击文件名下载附件

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("a" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
导出路径文件名 = 当前路径 & "" & 导出文件名 & "(" & Sheets("数据库").Range("a" & i) & ").doc" '可以将Sheets("1").Range("B" & i)换成其他数据
With Word对象
.Documents.Open 导出路径文件名
.Visible = False
With .Selection.Find
For x = 15 To 1 Step -1 '从大到小，防止字符串序号低位与高位串扰，填写数据即excel表总列数
Str1 = "数据" & Format(x, "000")
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 文件，请查收。如需要帮助请QQ联系695360052", 0 + 48 + 256 + 0, "提示：")
End If
End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

zpy2

2015-7-17 05:57

Word对象.Documents.Save
word对象.activedocument.printout

跳转到最佳答案楼层

qinhuan66 · 发表于 2015-7-16 10:16

自己顶一下

zpy2 · 发表于 2015-7-17 05:57

Word对象.Documents.Save
word对象.activedocument.printout

		自动登录	找回密码
密码			注册

[已解决]求助此段代码是生成EXECL数据到WORD文档，是否做到不用打开WORD文档即可打印。

评分