ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3442|回复: 9

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-9-4 10:05 | 显示全部楼层 |阅读模式
请教大家一个问题,我有一个使用邮件合并的请柬,想在作为数据源的EXCEL表中做一个按钮,其功能为将选中的一条客户自动合并到请柬并保存为普通WORD文档!不知能否实现?[em06]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-4 11:26 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-9-4 19:16 | 显示全部楼层

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

直接使用AUTOMATION功能即可。

当然,需要使用编程。

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

相关链接可见:

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-5 10:25 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-5 11:24 | 显示全部楼层

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

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

RC6XRbjL.rar (24.28 KB, 下载次数: 32) [em06]
[此贴子已经被作者于2005-9-5 11:32:46编辑过]

TA的精华主题

TA的得分主题

发表于 2005-9-6 05:16 | 显示全部楼层

这是一个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 '----------------------

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-6 08:21 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-8 17:19 | 显示全部楼层
还要麻烦守柔兄,按照您所写的代码我试了试,可是出来的文书内容有重复内容如图,另外应如何让他自动打印当前活动记录或最后一条记录![em06]

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

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

TA的精华主题

TA的得分主题

发表于 2005-9-8 17:44 | 显示全部楼层

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-8 17:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢过了!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 16:53 , Processed in 0.044922 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表