在pb中实现word内容的替换

《在pb中实现word内容的替换》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、在PB中实现Word内容的替换 《微电脑世界》作者：张佐东汤咏梅2003-1-1115:32:49 本文介绍一种在PowerBuilder(以下简称为PB)中利用OLE把数据库中的数据传送到Word文档的方法。通过这种方法，用户可以根据需求而改变内容，以Word方式打印结果文档。例如，在处理学生成绩时，如果要将每个学生的成绩报告生成Word文档，不同的学生只改变姓名、学号和年度等数据，其他的格式不改变。只要从学生成绩数据库中调出特定数据，插入或替换到已经制作好的Word模版中，即可解决问题。一、创建Word模版文档Word模板文档的创建根据用户的要求进行，在固定的内容输入完成后

2、，将需要变换内容(例如姓名、年度、系别和证书编号等)的位置输入“student_name”、“student_year”、“department”以及“student_id”等编码。注意:尽量使用英文来表示这些变量，目的是避免某些汉字相同而造成的误替换。在需要动态改变内容的位置，不需要输入文字，可以通过插入书签的方法实现，具体操作如下。首先，选择在Word中，选择“插入”*“书签”，弹出“书签”对话框(如图1所示)。在“书签名”文本框中输入书签名称后，点击“添加”按钮，即在当前光标位置上增加了一个书签。假设我们增加了4个书签，分别是name、year、department以及i

3、d，分别代表姓名、年度、系别以及证书编号。二、PB实现方法在窗体中新建一OLE控件，在弹出的“insertobject”属性窗口的“createnewtab”选项卡中选择“MicrosoftWord文档”选项，点击“OK”按钮后将该控件放在窗体中适当位置，PB系统会自动出现MicrosoftWord应用程序。将控件命名为“OLE_Word”，并创建“打开文件”、“替换数据”和“存盘”按钮，编写如下代码。1．打开文件stringdocname，namedintegervaluevalue=getfileopenname("SelectFile"，docname，named，"DO

4、C"，"DocFiles(*.DOC)，*.DOC")ifvalue=1THEN//将模版文件另存为实际操作文件(程序略)ifole_Word.open(docname)=0thenole_Word.activate(inplace!)endifendif这里使用“GetFileOpenName”函数让用户自行选择文件，实际应用时可以进行条件的限定。注意:需要将模版文件另存为实际操作文件后再打开，不能直接操作模版文件。打开文件参数有2种，其中“inplace”表示在PB程序内部窗口调用Word，部分提供Word的功能菜单;另一种参数是“offsite”，表示PB程序外启动Wor

5、d应用程序，提供Word的所有功能菜单。简单的演示文档如图2所示。2．插入或替换操作(1)替换数据法stringls_find_string，ls_replace_string//取数据库中数据赋值变量ls_replace_string(程序略)ls_find_string="student_name"ls_replace_string=“张某”ole_Word.object.application.Selection.find.Execute(ls_find_string，false,true，false，false，false，true，1，true，ls_replace_

6、string，2)//替换student_year，department，student_id的程序与替换student_name相同，略其运行结果如图3所示。(2)插入数据法除了使用查找替换方式，您还可以使用书签方式来实现上述操作。stringls_name，ls_year，department，ls_id//取数据库中数据赋值变量ls_name，ls_year，department，ls_id(程序略)IFole_Word.object.application.ActiveDocument.Bookmarks.Exists(“name”)THENole_Word.objec

7、t.application.activedocument.bookmarks.item(“name”).select//定位书签nameole_Word.object.application.selection.typetext(ls_name)//插入值fori=1to10//消除非法字符ole_Word.object.application.Selection.TypeBackspace()nextELSE//错误提示ENDIF//定位书签year，department，id一样，略注意