本文介绍一种在Power Builder(以下简称为PB)中利用OLE把数据库中的数据传送到Word文档的方法通过这种方法用户可以根据需求而改变内容以Word方式打印结果文档例如在处理学生成绩时如果要将每个学生的成绩报告生成Word文档不同的学生只改变姓名学号和年度等数据其他的格式不改变只要从学生成绩数据库中调出特定数据插入或替换到已经制作好的Word模版中即可解决问题
一创建Word模版文档
Word模板文档的创建根据用户的要求进行在固定的内容输入完成后将需要变换内容(例如姓名年度系别和证书编号等)的位置输入student_namestudent_yeardepartment以及student_id等编码注意: 尽量使用英文来表示这些变量目的是避免某些汉字相同而造成的误替换
在需要动态改变内容的位置不需要输入文字可以通过插入书签的方法实现具体操作如下首先选择在Word中选择插入*书签弹出书签对话框(如图所示)在书签名文本框中输入书签名称后点击添加按钮即在当前光标位置上增加了一个书签假设我们增加了个书签分别是 nameyeardepartment以及id分别代表姓名年度系别以及证书编号
二PB实现方法
在窗体中新建一OLE控件在弹出的insert object属性窗口的create new tab选项卡中选择Microsoft Word 文档选项点击OK按钮后将该控件放在窗体中适当位置PB系统会自动出现Microsoft Word应用程序将控件命名为OLE_Word并创建打开文件替换数据和存盘按钮编写如下代码
．打开文件
string docname named
integer value
value = getfileopenname(Select Filedocname named
DOCDoc Files (*DOC)*DOC)
if value = THEN
// 将模版文件另存为实际操作文件(程序略)
if ole_Wordopen(docname)= then
ole_Wordactivate(inplace!)
end if
end if
这里使用GetFileOpenName函数让用户自行选择文件实际应用时可以进行条件的限定注意: 需要将模版文件另存为实际操作文件后再打开不能直接操作模版文件打开文件参数有种其中inplace表示在PB程序内部窗口调用Word部分提供Word的功能菜单; 另一种参数是offsite表示PB程序外启动Word应用程序提供Word的所有功能菜单简单的演示文档如图所示
．插入或替换操作
()替换数据法
string ls_find_stringls_replace_string
//取数据库中数据赋值变量ls_replace_string(程序略)
ls_find_string = student_name
ls_replace_string = 张某 ole_WordobjectapplicationSelectionfindExecute(ls_find_stringfalsetrue
falsefalsefalsetruetruels_replace_string)
//替换student_yeardepartmentstudent_id的程序与替换student_name相同略
其运行结果如图所示
()插入数据法
除了使用查找替换方式您还可以使用书签方式来实现上述操作
string ls_namels_yeardepartmentls_id
//取数据库中数据赋值变量ls_namels_yeardepartmentls_id(程序略)
IF ole_WordobjectapplicationActiveDocumentBookmarksExists(name) THEN
ole_Wordobjectapplicationactivedocumentbookmarksitem(name)select
//定位书签name
ole_Wordobjectapplicationselectiontypetext(ls_name)
//插入值
for i = to
//消除非法字符
ole_WordobjectapplicationSelectionTypeBackspace()
next
ELSE//错误提示
END IF
//定位书签yeardepartmentid一样略
注意事项:
．一定要判断书签是否存在如果书签不存在进行以上操作将导致系统错误
．因为汉字双字节问题PB 中每插入一个汉字后会在后面产生一非法字符需要判断汉字个数来决定调用TypeBackspace()的次数上面涉及的次循环次数是举例说明实际编程要使用变量替代
上面的种方法各有利弊插入数据方式设计思想简单操作容易控制也比较方便但不适合多处插入同一内容并且需要删除产生的非法字符; 而替换方式只调用一个函数可以搜索整个文档替换同一内容并不产生非法字符但有可能替换掉不该替换的内容但是涉及的参数太多不易记住
．存盘
ole_Wordsave()
ole_Wordclear()
注: 上述代码在Windows + Power builder 中测试通过
