关于自动打印邮件合并的问题

来生缘

如附件，我想实现，打开“打印信封”的word文档后，自动合并邮件，并打印，然后自动退出。可不可以实现？谢谢

AUIFK2up.rar (3.72 KB, 下载次数: 53)

2005-7-1 16:56 上传

点击文件名下载附件
关于自动打印邮件合并的问题

守柔

欢迎“来生缘”光临WORD版！

当然可以（要编程），可是，你为什么必须这么做？我有些晕！

来生缘

以下是引用守柔在2005-7-1 17:05:33的发言：

欢迎“来生缘”光临WORD版！

当然可以（要编程），可是，你为什么必须这么做？我有些晕！

我才要晕，我在这已经混得皮厚肉糙了，不要这么见外嘛

因为这样，我需要每天需要打印一些签收表，其中有一些内容在EXCEL表里，还有另外很多一部分的文字内容，原来我都是用EXCEL打的，但，EXCEL的排版功能实在太差，所以想用邮件合并的方式实现，又想在EXCEL里一键实现，所以想这样啦。守版版，给个方便吧。

最多等你晕了，我找个靓女帮你人工呼吸好了

[em02][em02][em02]

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-2 10:05:10 '仅测试于System: Windows NT Excel: 10.0 Language: 2052 '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit '此程序代码运行于EXCEL工作薄（数据源）中 Sub MailMergeToWordPrinter() '运行此程序前请检查VBE/工具/引用中,确认对于Microsoft Word 10.0 Object Library '请不要打开WORD程序 Dim MyWordApp As New Word.Application, MyMailMergeDoc As Word.Document With MyWordApp '打开指定的WORD邮件合并主文档,注意确保在同一文件夹中,如果不是,请写明全路径 Set MyMailMergeDoc = .Documents.Open(ThisWorkbook.Path & "\来生缘.Doc") '主文档的邮件合并对象 With MyMailMergeDoc.MailMerge '邮件合并操作的结果传送到打印 .Destination = wdSendToPrinter '邮件合并域为空时，就删除该空行 .SuppressBlankLines = True '合并全部数据源数据 With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With '合并域 .Execute Pause:=False End With '关闭主文档 MyMailMergeDoc.Close False '退出WORD程序 .Quit '释放对象变量 Set MyWordApp = Nothing End With End Sub '----------------------

b4gbItel.rar (13.71 KB, 下载次数: 62)

2005-7-2 10:12 上传

点击文件名下载附件

[此贴子已经被作者于2005-7-2 10:12:24编辑过]

来生缘

谢谢守柔版主，守版好人。我周一上班测试一下，住的地方没有打印机

lumben

做个宏应该可以吧？

来生缘

以下是引用lumben在2005-7-2 23:39:41的发言： 做个宏应该可以吧？

t守版版,不行呀

我用的是2000+2000,丢失了Microsoft Word 10.0 Object Library，只能引用Microsoft Word 9.0 Object Library，引用后还是有问题，先出现第一个图，调试后出现第二个图的样子

守柔

我晕,版本问题! 引用你的修改是正确的,2000应为9.0,但ActiveDocument.MailMerge.Destination = wdSendToNewDocument WORD2000中应该也有啊,我查了一下XP新增属性中,并无此属性!

请楼主再测试一下?

另,到XP机器上试一下/

来生缘

winxp+2000还是这里的错误

.Destination = wdSendToPrinter

守柔

升级吧，我没辙，因为我无法调试，到处都是OFFICEXP了。

或者，请哪位是2000（OFFICE）的替我测试一下。