在PB中实现Word内容的替换

一、创建Word模版文档

　　Word模板文档的创建根据用户的要求进行，在固定的内容输入完成后，将需要变换内容(例如姓名、年度、系别和证书编号等)的位置输入“student_name”、“student_year”、“department”以及“student_id”等编码。注意: 尽量使用英文来表示这些变量，目的是避免某些汉字相同而造成的误替换。

　　在需要动态改变内容的位置，不需要输入文字，可以通过插入书签的方法实现，具体操作如下。首先，选择在Word中，选择“插入”*“书签”，弹出“书签”对话框(如图1所示)。在“书签名”文本框中输入书签名称后，点击“添加”按钮，即在当前光标位置上增加了一个书签。假设我们增加了4个书签，分别是 name、year、department以及id，分别代表姓名、年度、系别以及证书编号。

二、PB实现方法

　　在窗体中新建一OLE控件，在弹出的“insert object”属性窗口的“create new tab”选项卡中选择“Microsoft Word 文档”选项，点击“OK”按钮后将该控件放在窗体中适当位置，PB系统会自动出现Microsoft Word应用程序。将控件命名为“OLE_Word”，并创建“打开文件”、“替换数据”和“存盘”按钮，编写如下代码。

1．打开文件

string docname， named
integer value
value = getfileopenname("Select File"，docname， named，
"DOC"，"Doc Files (*.DOC)，*.DOC")
if value = 1 THEN
// 将模版文件另存为实际操作文件(程序略)
if ole_Word.open(docname)=0 then
ole_Word.activate(inplace!)
end if
end if

　　这里使用“GetFileOpenName”函数让用户自行选择文件，实际应用时可以进行条件的限定。注意: 需要将模版文件另存为实际操作文件后再打开，不能直接操作模版文件。打开文件参数有2种，其中“inplace”表示在PB程序内部窗口调用Word，部分提供Word的功能菜单; 另一种参数是“offsite”，表示PB程序外启动Word应用程序，提供Word的所有功能菜单。简单的演示文档如图2所示。