下面笔者介绍如何在PB中调用Word以实现对Word文档的全文搜索。

　　从VBA到PowerScript

　　PB与Word结合的基础是微软的自动化技术（OLE Automation），通过OLE将数据从PB传至Word，再借助Word本身具有的VBA功能可完成许多复杂的任务。通过OLE技术实现PB对Word的控制，必须先将VBA语句转换为PB所能识别的Powerscript语句。此处有个简单的办法可以获得正确的VBA语句：

　　打开Word工具菜单中宏子菜单的录制宏命令，命名后保存，然后返回至Word主窗口，此时可以在主窗口的左上角看到宏的悬浮菜单，接着进行所需要的操作（如键入字符串、改变字体颜色、插入书签、查找特定字符串等操作），关闭宏。接下来再到工具菜单中的宏子菜单中选择 Visual Basic编辑器，进入宏编辑器，此时可以看到刚才所有操作的VBA代码。

　　注: 如果想详细地了解VBA语法，可以参考Word本身提供的帮助文件（Office 目录下2052文件中的VBAWRD9.HLP文件）。

　　接下来需要将VBA语句转换为PB支持的Powerscript语句，VBA中既有语句又有函数，而且，语句和函数使用的语法格式是不同的，但在PowerBuilder 中却有相同的语法格式。例如：我们可以在宏编辑器中看到如下代码：

　　Sub Macro1()

　　Selection.Information(wdWithInTable)

　　Selection.Moveright Unit:=wdCharacter, Count:=5

　　selection.TypeBackspace

　　End Sub

　　我们可以在VBAWRD9.HLP中找到MoveRight()的定义：

　　Selection.Moveright(Unit, Count, Extend)

　　Unit optional Variant: wdCell, wdCharacter, wdWord or wdSentence. Default = wdCharacter.

　　Count optional: . Number of Units to move. Default = 1.

　　Extend optional: wdMove or wdExtend

　　下面给出了PB对应的语法格式：

　　// PB语法格式

　　ole_object.selection.Information[12]

　　ole_object.selection.Moveright(1,5,1)

　　ole_object.selection.TypeBackspace()

　　由于技术方面的原因，像wdCell、wdCharacter、wdWord、 wdSentence这些枚举类型的常量值，PB并不知，所以必须将其转换为PB可知的常量，这可以通过以下简单的方式来实现：
　　在宏编辑器中输入如下代码：

　　Sub Macro1()

　　’用同样的方法我们可以获得所有常量的真实值

　　Msgbox(wdCell)

　　End Sub

[1] [2] 下一页

上一篇:利用PB5实现中英文信息滚动显示

下一篇:PowerBuilder数据录入同步显示

在PB中实现全文检索相关文章：

·如何实现局域网打印机共享

·TCP/IP编程实现远程文件传输

·Visual C++ 实现数字化图像的分割

·ASP.NET购物车的实现及结算处理

·一个Struts实现分页,增删改查,Tiles,国际化的DEMO

·javascript+xml实现二级下拉菜单，不会被任何标签或元素遮住

·用C语言实现Ping程序功能

·windows 2003服务器配置VPN实现各种网络环境VSS协同开发

·让Windows XP操作系统实现全速启动

·如何实现一个表格表头不动tbody区域用滚动条可以滚动

在PB中实现全文检索相关软件：

·兽血沸腾(全文字版)

·TCP-IP详解卷2：实现

·浙大－医学信息检索资料视频/ppt 详见查看

·ASP.NET的网站新闻管理系统设计与实现

·NoteExpress文献管理与检索 V1.9.1.182 多国语言版

·内置对象实现超酷日历

·ASP.NET下MVC设计模式的实现

·《空速星痕》（全文字版）

·二十五史全文检索阅读系统V3.0 完整版

·萨班斯法案中文版全文下载

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.net

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot