WEB开发网
开发学院WEB开发综合 在Word中嵌入应用程序 阅读

在Word中嵌入应用程序

 2006-02-27 11:43:02 来源:WEB开发网   
核心提示:MicrosoftWord以其强大的文字处理能力、灵活多变的排版方法、所见即所得以及友好的用户界面等特点,博得了广大用户的肯定,但是,若能将其他一些功能,如机器翻译、中文校对、全文检索、实时语音合成等嵌入其中,则可以扩展Word的功能,使开发者能够更加充分地利用Word资源,加快开发速度,在Word中嵌入应用程序,开发
MicrosoftWord以其强大的文字处理能力、灵活多变的排版方法、所见即所得以及友好的用户界面等特点,博得了广大用户的肯定。但是,若能将其他一些功能,如机器翻译、中文校对、全文检索、实时语音合成等嵌入其中,则可以扩展Word的功能,使开发者能够更加充分地利用Word资源,加快开发速度。
  开发Word应用程序常用的有以下几种编程语言:WordBasic、VBA(VisualBasicforapplications)和WordAPI。 尽管WordBasic和VBA功能强大,但作为简单修改Word的工具,多少有些大材小用。笔者认为,WordAPI是开发Word应用程序的首选工具,尤其是可以利用C语言代码的快速、高效和灵活的特点,而且可以使用WordBasic接口函数和Windows动态连接库编程环境,实现对Word功能的添加。
  WordAPI的使用方法
  WordAPI生成的是一个可在Word中直接运行的Word加载项,它是一个以WLL为扩展文件名的单机动态连接库。这种WLL是标准的Windows动态连接库的特殊形式。可以用任何一个创建WindowsDLL的环境来编译、链接和建立WLL。
  MicrosoftWordDeveloper'sKit(MSWord开发工具箱)中,提供了WordAPI的接口函数,下面分别加以介绍。
  1.Word加载项的启动和卸载函数
  (1)voidFARPASCALwdAutoOpen(shortDocID)
  在Word中加载WLL的同时,Word会自动执行这个函数。在执行过程中,函数wdAutoOpen完成以下几个任务:
  ·向Word登记WLL中定义的所有函数;
  ·将WLL中的操作命令添加到Word的主菜单、快捷菜单和工具条中;
  ·给WLL的操作命令指定快捷键;
  ·完成WLL功能的初始化(如:机器翻译、中文校对的词库读入等)。
  (2)voidFARPASCALwdAutoRemove(void)
  当WLL被卸载时,如果WLL程序中定义了wdAutoRemove(void)函数,Word将在卸载时执行这个函数。在该函数中,可以保存退出时我们定义功能函数生成的必要数据。
  2.Word加载项中的登记函数
  要想让Word中的某个主菜单项、快捷菜单项、工具条按钮或快捷键完成我们定义的某个函数,就必须在加载WLL时,先向Word登记我们的应用函数。WordAPI的接口函数CAPIRigister可以完成登记任务。该函数定义形式如下:
  shortCAPIRegister(shortDocID,LPUCHARlpszFunctionName,LPUCHARlpszDescription);
@@0541700.JPG;表1@@
  3.在Word中将加载函数添加到主菜单项、快捷菜单项、工具条按钮和快捷键中  在WLL中应用函数登记完成之后,就可以在主菜单、快捷菜单和工具条中添加自己的菜单项和快捷键。这些工作由下面的函数完AddButton、NewToolbar、ToolsCustomi
zeMenu、ToolsCustomizeMenuBar和ToolsCustomizeKeyboard。
  ·在Word工具条中添加一个按钮:
  shortCAPIAddButton(shortDocID,LPSTRlpszToolbar,shortcPosition,LP
STRlpszMacro,LPSTRlpszFace);
   *S在Word中添加新的工具条:
  shortCAPIAddToolbar(shortDocID,LPSTRlpszToolbar);
  ·在主菜单中添加新的菜单项:
  shortCAPIAddMenu(shortDocID,LPSTRlpszMenuName,shortPosition,shortMe
nuType);
  ·在菜单项中添加新的菜单命令:
  shortCAPIAddMenuItem(shortDocID,LPSTRlpszMenu,LPSTRlpszName,LPSTR
lpszMenuText,shortPosition,shortMenuType);
  ·定义一个新的快捷键:
  shortCAPIAddkey(shortDocID,shortkeyCode,LPSTRlpszName)。
  要想定义组合键的快捷键方式,就需把几个键在WordBasic中的代码数字的二进制进行按位‘或'运算,将结果传递给第二个参数KeyCode。例如:快捷键CTRL S的KeyCode是(256OR83)=339。
  4.WordAPI调用WordBasic函数前,函数参数和返回值的数据缓冲区的建立Word中的所有字处理功能都可由对应的WordBasic函数来实现。正是利用这一点,在
WLL中可以通过调用WordBasic函数来实现对Word的定制。因此,必须利用WordAPI函数InitWCB设立调用WordBasic函数时传递参数与返回值的数据缓冲区。
  VoidInitWCB(WCBfar*lpwcb,shortretType,LPSTRlpBuffer,shortcBufferSize);
  InitWCB的参数说明如下:
@@0541701.JPG;表2@@
  例如,下面这段程序是获取所选区域的字符串字体情况:
  WCBwcb;//Word的参数和返回值传递的数据区
  short isbold;
  InitWCB(&wcb,TypeShort,NULL,0);
  //设立传递WordBasic函数参数和返回值的数据区wcb
  WORDFUNCTION(wdBold);
  //调用WordBasic函数Bold()
  isbold=wcb.wdoPRReturn.Short;
  //从数据区wcb中取出WordBasic函数Bold()的返回值
  5.WordBasic函数调用方法
  Word中的命令是与WordBasic函数一一对应的。因此,WordAPI可以通过接口函数用C语言直接调用WordBasic函数来实现Word命令。
  注意:在WordAPI中调用WordBasic命令函数名时均须在WordBasic函数名前加上2个英文字母‘wd',如:WordBasic函数Bold在WordAPI中的函数名应为wdBold。
  根据这些函数有无返回值与是否为响应对话框的情况,在WordAPI头文件basedef.h定义了三种调用方法:WORDCALL、WORDFUCTION和WORDDIALOG。
  ·若被调用的WordBasic函数无返回值,用WordAPI接口函数WORDCALL来调用,形式是:WORDCALL(函数名);
  ·若被调用的WordBasic函数有返回值,用WordAPI接口函数WORDFUNCTION来调用,形式是:WORDFUNCTION(函数名);
  ·若被调用的WordBasic函数是有关对话框操作,用WordAPI函数WORDDIALOG来调用,形式是:WORDDIALOG(函数名)。
  例如:WordBasic中,给所选区域字符标粗体的函数Bold与判断所选区域字符是否为粗体的函数Bold()的调用方法就不同:
  ·函数Bold是一个操作,无须返回值,所以调用形式是WORDCALL(wdBld)。
  ·函数Bold()是一个判断,必须有返回值,所以调用形式是WORDFUNCTION(wdBold);
  6.WordBasic函数参数的传递方法
  在调用WordBasic带参函数时,需要通过WordAPI特定接口函数来传递参数。同时,对不同类型的函数,参数的传递方法也不同。
  (1)逐个传递参数
  这种传递参数的方法适用于参数位置固定的函数,例如:WordBasic函数:
  MenuText$(Type,MenuNumber[,Context])
  其中的三个参数是按次序排列的。由于WordAPI调用WordBasic函数方式是函数名作为WORDCALL、WORDFUCTION和WORDDIALOG的参数,无法一次添加WordBasic函数参数,所以传递WordBasic函数参数时需要在InitWCB函数设置数据缓冲区后,依次通过数据缓冲区传递参数,第一个赋给Type,第二个赋给MenuNumber,如果有第三个参数则赋给Context。
  在向这类函数传递参数时,根据待传递参数数据类型的不同,有以下4个函数可以选用
  ·传递short型参数的函数:
  voidAddShortParam(WCBfar*lpwcb,shortShortVal);
  ·传递long型参数的函数:
  voidAddLongParam(WCBfar*lpwcb,longLongVal);
  *S传递double型参数的函数:
  voidAddDoubleParam(WCBfar*lpwcb,doubleDoubleVal);
  ·传递字符串参数的函数:
  voidAddStringParam(WCBfar*lpwcb,LPSTRlpStr);
  下表是上面4个函数参数的说明:
@@0541702.JPG;表3@@
  例如,下面部分程序的作用是给所选区域字符串着绿色:
  InitWCB(&wcb,TypeShort,NULL,0);
  AddShortParam(&wcb,4);
  //4是绿色在Word中的标识,将一个short参数放//入参数缓冲区
  WORDCALL(wdCharColor);
  //调用WordBasic函数CharColor
  (2)传递指定参数
  这种传递参数的方法适用于参数有标识名指明的函数。这种函数的参数有定义了的标识,传递时没有次序问题。例如:WordBasic中插入空表的函数TableInsertTable:Ta
bleInserTable[.ConvertForm][,.NumberColumns][,.NumRows][,.InitialColWidth][
,.Wizard][,.Format][,.Apply] 因此,向TableInserTable函数传递参数时,只需指明哪一个标识即可。这种情况一般用于具有较多参数的函数。
  在向这类函数传递参数时,与上面的类似,也是根据参数数据类型的不同,有以下4个函数可以选用:
  ·voidAddShortDlgField(WCBfar*lpwcb,shortShortVal,shortFieldId,shor
tfMode);
  ·voidAddLongDlgField(WCBfar*lpwcb,longLongVal,shortFieldId,shortf
Mode);
  ·voidAddDoubleDlgField(WCBfar*lpwcb,doubleDoubleVal,shortFieldId,s
hortfMode);
  ·voidAddStringDlgField(WCBfar*lpwcb,LPSTRlpStr,shortFieldId,shortf
Mode,shortcBufferSize);
  下表是上面4个函数参数的说明:
@@0541703.JPG;表4@@
  其中,传给FieldId的所有标识名都已在WORDAPI文件wdfid.h中被定义了。
  下面的例子是要在光标所在位置插入一个4*12的空表:
  InitWCB(&wcb,TypeShort,NULL,0);
  AddStringDlgField(&wcb,"4",fidNumColumns,fMode,0);
  AddStringDlgField(&wcb,"12",fidNumRows,fMode,0);
  WORDCALL(wdTableInsertTable);
  上面的fidNumColumns和fidNumRows是在WordAPI文件wdfid.h中定义的参数标识名。调用函数AddStringDlgField,将表的行数"4"和列数"12"直接传给WordBasic的函数TableInsertTable的两个参数NumColumns和NumRows。
  注意:在WordAPI文件wdfid.h中被定义了的函数参数的标识名是与WordBasic函数的参数标识名一一对应的,但不同的是,WordAPI的参数标识名是在WordBasic的参数标识名前加了‘fid'构成的。如:WordBasic的函数TableInsertTable有两个参数是NumColumns和NumRows,那么,在WordAPI中的参数标识名就应是fidNumColumns和fidNumRows。
  创建WLL的程序框架
  本文给出一个用WordAPI完成的完整WLL框架,来实现如下图所示Word中的修改。@@0541704.JPG;图1加载WLL模板后的Word界面图@@
  编者注:源程序发表在本报WWW站点上,地址:http://www.computerworld.com.cn/
98/skill/default.htm。欢迎访问!
  在Word中加载或卸载WLL
  经过编译、链接生成DLL文件(动态连接库文件)后,必须将文件的扩展文件名.dll改为.wll,以便在加载WLL时能被Word正确识别为Word加载项。
  将自己编写的WLL加载到Word中有以下几种方法:
  ·模板方式加载:在Word中主菜单‘文件'中找到‘模板',进去后按下‘添加'按钮,选中自己编写的WLL模板文件(文件扩展名为wll)后‘确定',加载WLL即可完成,如下图所示。
  ·打开文件方式加载:像打开一般的Word文档一样,打开WLL模板文件,即可完成加载

  ·Word自动完成加载:将WLL模板文件复制..\windord\startup\目录下,像Word中的常用模板一样,在启动Word时,Word会自动将WLL模板文件加载到Word中。
  卸载WLL的方法只有一种:在Word中主菜单‘文件'中找到‘模板',将‘共用模板及加载项'框中‘translate.wll'前的复选钮钩掉后‘确定',卸载WLL的工作即可完成。->

Tags:Word 嵌入 应用程序

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接