网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 大学论文导航 设计下载 最新论文 下载排行 原创论文
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 论文模板 > Word模板 > 正文

PB操作WORD代码示例一

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 发布时间: 09/08/22

 本文介绍一种在Power Builder(以下简称为PB)中利用OLE数据库中的数据传送到Word文档的方法。通过这种方法,用户可以根据需求而改变内容,以Word方式打印结果文档。例如,在处理学生成绩时,如果要将每个学生的成绩报告生成Word文档,不同的学生只改变姓名、学号和年度等数据,其他的格式不改变。只要从学生成绩数据库中调出特定数据,插入或替换到已经制作好的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所示。

2.插入或替换操作
(1)替换数据法
string ls_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_string,2)
//替换student_year,department,student_id的程序与替换student_name相同,略
其运行结果如图3所示。
(2)插入数据法
除了使用查找替换方式,您还可以使用书签方式来实现上述操作。
string ls_name,ls_year,department,ls_id//取数据库中数据赋值变量ls_name,ls_year,department,ls_id(程序略)
IF ole_Word.object.application.ActiveDocument.Bookmarks.Exists(“name”) THEN
ole_Word.object.application.activedocument.bookmarks.item(“name”).select//定位书签name
ole_Word.object.application.selection.typetext(ls_name)//插入值
for i = 1 to 10
//消除非法字符
   ole_Word.object.application.Selection.TypeBackspace()
next
ELSE//错误提示
END IF
//定位书签year,department,id一样,略
注意事项:
1.一定要判断书签是否存在,如果书签不存在,进行以上操作将导致系统错误。
2.因为汉字双字节问题,PB 6.5中每插入一个汉字后会在后面产生一非法字符,需要判断汉字个数来决定调用“TypeBackspace()”的次数。上面涉及的10次循环次数是举例说明,实际编程要使用变量替代。
  上面的2种方法各有利弊,插入数据方式设计思想简单,操作容易,控制也比较方便,但不适合多处插入同一内容,并且需要删除产生的非法字符; 而替换方式只调用一个函数,可以搜索整个文档替换同一内容,并不产生非法字符,但有可能替换掉不该替换的内容,但是涉及的参数太多,不易记住。

3.存盘
ole_Word.save()
ole_Word.clear()

1.jpg (12.1 KB)

 

图一

1.jpg

2.jpg (13.67 KB)

 

图二

2.jpg

3.jpg (13.28 KB)

 

图三

3.jpg

  • 上一篇资讯: 员工福利对账单
  • 下一篇资讯: 端午节放假通知
  • 网学推荐

    免费论文

    原创论文

    设为首页 | 加入收藏 | 论文首页 |原创论文 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师