标题:如何用VFP传递数据给WORD邮件文件中。
取消只看楼主
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
结帖率:100%
已结贴  问题点数:20 回复次数:2 
如何用VFP传递数据给WORD邮件文件中。
新建文件夹.rar (135.92 KB)

问题描述:
word环境下已经做好邮件模板文件
VFP环境下做好了相应的表单文件,表单设有三个命令按钮,其中“打印”按钮的代码如下:
SET SAFETY off
wjm=SYS(5)+SYS(2003)+"\普通全日制学位证明.doc"  
WordApp=CREATEOBJECT("word.application")
COPY TO abc FOR ALLTRIM(xm)==ALLTRIM(thisform.text1.Value) AND UPPER(ALLTRIM(zjhm))==UPPER(ALLTRIM(thisform.text2.Value)) xl5
WordTable=WordApp.Application.Documents.Open(wjm)
WordApp.Visible =.t.
基本意思是按输入的姓名和身份证号码查找记录,然后将数据拷贝为EXCEL文件,并且打开已经写好的WORD邮件模板。现在的问题是WORD邮件模板可以打开,但是需要重新设置一次数据源。
不知道有没有办法可能在打开邮件的时候直接按原邮件模板设置的好数据源直接激活?
搜索更多相关主题的帖子: VFP WORD 邮件 文件 模板 
2019-05-14 15:49
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
得分:0 
    感谢大家的回复。但大部分是使用wdrs.ActiveDocument.Content.Find.Execute('lx',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,_lx,2)的方法来修改模板里的文字,这种方法确实可以解决问题,但我的问题最核心的内容是利用VFP激活WORD邮件文件时,有没有办法可以直接调用邮件文件的数据源,而不需要每次还重新设置一次数据源。
    VFP的报表文件确实也可以解决问题,但是报表第一不能解决水印,第二不能按照实际的相关数据(比如说专业名称)的长度来调整固定内容的位置,所以我放弃了报表,而使用WORD文档的邮件。

[此贴子已经被作者于2019-5-15 08:43编辑过]

2019-05-15 08:40
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
得分:0 
如果单纯为了解决根据查找的学生开具证明,我用VFP的命令直接写文字到WORD,并且可以修改字体字形字号等相关格式。现在我主要是想解决每次调用邮件模板如何自动根据内容更新邮件的数据源问题。再次谢谢大家。
2019-05-16 14:58



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-494725-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.516070 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved