邮件合并文档保存及打印问题？

wangwei

请教大家一个问题，我有一个使用邮件合并的请柬，想在作为数据源的EXCEL表中做一个按钮，其功能为将选中的一条客户自动合并到请柬并保存为普通WORD文档！不知能否实现？[em06]

wangwei

还望大虾能指点迷径！[em06]

守柔

这种情况，使用邮件合并已经失去意义了。

直接使用AUTOMATION功能即可。

当然，需要使用编程。

请附上你的EXCEL数据源和WORD文档（无需邮件合并的主文档），请注意，你的要求是一条记录。

相关链接可见：

http://club.excelhome.net/viewthread.php?tid=106980

wangwei

对守柔版主深表感谢！

wangwei

请守柔版主看看如何实现下述功能？多谢！

在台帐上获取编号后，要求“打印文书”按钮能够实现自动调取当前记录填充“文书”，并另存为普通WORD文档。

RC6XRbjL.rar (24.28 KB, 下载次数: 32)

2005-9-5 11:24 上传

点击文件名下载附件
邮件合并文档保存及打印问题？

[em06]

[此贴子已经被作者于2005-9-5 11:32:46编辑过]

守柔

这是一个EXCEL中的代码，请参考

注意：VBE/工具/引用：MICROSOFT WORD 10.0 OBJECT LIBRARY(版本不同而异)

Option Explicit Private Sub CommandButton2_Click() '请引用MICROSOFT WORD 10.0 OBJECT LIBRARY Dim appWD As Word.Application, MyDoc As Word.Document, myRange As Word.Range Dim TF As Boolean, I As Byte, myString As String On Error Resume Next Set appWD = GetObject(, "Word.Application") If Err.Number <> 0 Then Err.Clear Set appWD = CreateObject("Word.Application") TF = True End If Set MyDoc = appWD.Documents.Open(FileName:=ThisWorkbook.Path & "\文书\文书.doc", Visible:=False) With MyDoc For I = 1 To 3 Select Case I Case 1 myString = Cells(2, 3) '名称 Case 2 myString = Cells(2, 1) '编号 Case 3 myString = Cells(2, 5) '地址,请补入台账中 End Select If I = 3 Then I = 4 Set myRange = .Range(.Paragraphs(I).Range.Start, .Paragraphs(I).Range.End - 1) myRange.InsertAfter myString '插入指定文本 Next .Content.InsertAfter Cells(2, 4) '时间 .SaveAs ThisWorkbook.Path & "\文书\" & Cells(2, 3) '以名称为名保存在文书文件夹中 .Close '关闭该文档 '如果是创建了WORD程序,则退出程序并释放对象变量 If TF = True Then appWD.Quit: Set appWD = Nothing End With End Sub '----------------------

wangwei

多谢守柔兄！我试一下！[em02]

wangwei

还要麻烦守柔兄，按照您所写的代码我试了试，可是出来的文书内容有重复内容如图，另外应如何让他自动打印当前活动记录或最后一条记录！[em06]

守柔

注意,你的"模板"(文书.DOC)中,不要写入地址和编号等项目.

另外,如果是当前活动记录或者最后一条记录,可以在EXCEL中设置几个选项,如打印首记录,尾记录和活动记录.最简单地是使用MSGBOX对话框,或者使用命令,或者在某一个单元格中设置一下有效性,或者以窗体形式做成一个组合框,看具体情况吧,请楼主自行处理一下,如果有问题,请及时交流.

wangwei

谢过了！