用C++Builder实现Word 97自动化
----要在应用程序中控制Word 97的运行,首先必须在编制自动化客户程序时使其头文件中包含文件ComObj.hpp,写入#include。编程工具C++Builder的开发者把调用Word 97自动化对象的功能大致包装成了几个Ole object class函数,应用程序设计人员可以很方便地利用它们。
*设定Ole对象的属性:
OlePropertyGet(propname)
OlePropertySet(propname,value)
其中value是任何可以转换为Variant型的值
*调用Ole对象的方法:
OleProcedure(OleProcName,[val,...])
OleFunction(OleFuncName,[val,...])
其中val是任何可以转换为Variant型的值
----可以通过OleFunction(OleFuncName,[val,...])父对象返回其子对象,句法是:子对象名=父对象名. OleFunction(OleFuncName,val)。而且可以对此方法组合从父对象返回其下层对象的对象。
---- C++Builder中使用OLE自动化控制Word 97,必须掌握Word 97的自动化对象及Microsoft Word Visual Basic帮助文件中关于Word的对象方法和属性。Word对象代表一个Word的元素,如文档、段落、书签或单个的字符。集合是一个对象,该对象包含其他数个对象,通常这些对象属于相同的类型,例如,一个集合对象中可包含文档中的所有书签对象。通过使用属性和方法,可以修改单个的对象,也可修改整个的对象集合。属性是对象的一个特性或者该对象操作的一个方面。例如,文档属性包含名称、内容、保存状态,以及是否启用修订。要更改一个对象的属性,可以修改属性的值。方法是对象可以进行的动作。
----代表Word 97应用程序的自动化对象有两个:Word.Application和Word.Basic,通过Application对象的WordBasic属性可以允许它们之间进行变换赋值。在C++Builder中通过CreateOleObject("…")就可启动Word并获得句柄,将其赋给Variant变量。如有两个Variant型变量V1和V2,WordBasic是Application对象的属性:
V1=CreateOleObject("Word.Application");
V2=V1.OleFunction("WordBasic")。
----以下通过一个简单的例子,具体说明如何在C++Builder中实现Word 97的自动化功能,其功能是打开或创建新文档,并向当前活动中发送文字、插入位图和画条直线等。在C++Builder集成开发环境IDE下,建立一项目Project1,其中包含Form1(其Caption为OLE Automation)的单元文件Unit1.cpp。表单Form1的OpenDialog1对象的Filter设为Word文档或位图。Unit1.cpp的头文件中必须包含"ComObj.hpp"。代码如下:
头文件Unit1.h代码为:
#ifndef Unit1H
#define Unit1H
//-------------
#include
#include
#include
#include
#include
#include
#include
//-------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton*Button1;
TOpenDialog*OpenDialog1;
TButton*Button2;
TMemo*Memo1;
TBevel*Bevel1;
TButton*Button3;
TLabel*Label1;
TButton*Button5;
TBevel*Bevel2;
TLabel*Label2;
TLabel*Label3;
void __fastcall Button1Click(TObject*Sender);
void __fastcall Button3Click(TObject*Sender);
void __fastcall Button2Click(TObject*Sender);
void __fastcall Button5Click(TObject*Sender);
private:// User declarations
public:// User declarations
Variant V,Vdocuments,Vdocument1,Vdocument2,Vactive;
/*定义Variant型全局//变量,
分别指代Application对象, V的Documents
对象, Vdocuments的Document对象
(Vdocument1,Vdocument2)以及
V的ActiveDocument对象*/
int tag; //用于记录Button3被点击的次数
__fastcall TForm1(TComponent*Owner);
Variant __fastcall GetWordObject();
//获得Word 97自动化对象函数
void __fastcall Add(int i);
//编辑当前活动文档指定的
段落文字的函数
};
//-------------
extern PACKAGE TForm1*Form1;
//-------------
#endif
Unit1.cpp文件代码为:
#include
#pragma hdrstop
#include "Unit1.h"
#include
//-------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1*Form1;
//-------------
__fastcall TForm1::TForm1(TComponent*Owner)
: TForm(Owner)
{
tag=1;//令tag的初值为1,
其将随Button3的点击次数而递增
}
//-------------
Variant __fastcall TForm1::GetWordObject()
{
Variant Obj1;
AnsiString AppName="Word.Application" ;
HWND hPrevApp = ::FindWindow(NULL,
"Microsoft Word");
if(!hPrevApp)
{
Obj1=CreateOleObject(AppName) ;
//Word没启动就启动它返回一自动化对象
}
else
Obj1=GetActiveOleObject(AppName);
//否则返回正在运行的实例自动化对象
Obj1.OlePropertySet("Visible",true);
return Obj1;
}
void __fastcall TForm1::Button1Click(TObject*Sender)
{
int j;
V=GetWordObject();
//获得Word 97自动化对象Application
Vdocuments=V.OleFunction("Documents");
//通过Application获取Documents对象
if (OpenDialog1->Execute())
//使用Documents对象的Open方法
打开文件,并返回Document对象
Vdocument1=Vdocuments.OleFunction
("Open",OpenDialog1->FileName);
j=Vdocument1.OleFunction("ComputeStatistics",2);
//计算打开文档的页数
Label1->Caption="文件"+
Vdocument1.OlePropertyGet("Name")
+"页数是:"+IntToStr(j);
}
//-------------
void __fastcall TForm1::Button3Click(TObject*Sender)
{
int i,j;
i=tag;
Vactive=V.OleFunction("ActiveDocument");
//获取Application的ActiveDocument对象
j=Vactive.OleFunction("ComputeStatistics",4);
//计算当前文档的段落数
//的的Paragraphs集合对象增加一段
Vactive.OleFunction("Paragraphs").OleFunction("Add");
i=j+i;//当前文档被编辑的段落序号
Add(i);//调用编辑当前活动文档
指定的段落文字的函数
Memo1->Clear();//清除Memo1的内容
tag=tag+1;
}
//--------------
void __fastcall TForm1::Button2Click(TObject*Sender)
{
V=GetWordObject();
Vdocuments=V.OleFunction("");
Vdocument2=Vdocuments.OleFunction("Add");
//使用Documents对象的Add方法新建文档
Vdocument2.OlePropertySet("Password","12345");
//设置新建文档的口令
}
//--------------
void __fastcall TForm1::Add(int i)
{
Variant V1;
//设置被编辑段的内容、字体大小、
颜色及是否斜体
V1=((Vactive.OleFunction("Paragraphs")).
OleFunction("Item",i)).OleFunction("Range");
(V1.OleFunction("Font")).OlePropertySet("Italic",true);
(V1.OleFunction("Font")).OlePropertySet("Size",18);
(V1.OleFunction("Font")).OlePropertySet("ColorIndex",6);
(V1.OleFunction("Font")).OlePropertySet("Size",18);
V1.OlePropertySet("Text",Memo1->Text);
}
//-------------
void __fastcall TForm1::Button5Click(TObject*Sender)
{
Variant Vshape,Vactive1,Vline;
Vactive1=V.OleFunction("ActiveDocument");
Vshape=Vactive1.OleFunction("Shapes");
//获取当前活动文档的Shapes对象
//使用Shapes对象的AddLine方法化直线
Vline=Vshape.OleFunction("AddLine",90,80,400,80);
if (OpenDialog1->Execute())
//使用Shapes对象的AddPicture
方法插入指定位图
Vshape.OleFunction("AddPicture",OpenDialog1
->FileName,50,50,80,100);
}
----此程序在C++Builder 3中编译通过,运行该应用
程序首先必须获得文档,然后才可以编辑文档。
分享到:
相关推荐
用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现Word97自动化用bcb实现...
C++Builder精彩编程实例集锦的源代码(1,2,3部分): 第一部分 界面设计 实例001 如何实现程序闪屏效果 实例002 如何实现程序窗口闪烁 实例003 如何制作吸附窗口程序 实例004 如何制作透明程序窗口 实例005 如何...
实例222 如何使用SQL Builder工具创建SQL语句 实例223 如何在程序运行时指定SQL语句 实例224 如何在程序中创建并使用数据库 实例225 如何在程序中控制与数据库的连接 实例226 如何在程序中创建Access数据库ODBC...
实例222 如何使用SQL Builder工具创建SQL语句 实例223 如何在程序运行时指定SQL语句 实例224 如何在程序中创建并使用数据库 实例225 如何在程序中控制与数据库的连接 实例226 如何在程序中创建Access数据库ODBC...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! 如题。详细见源码。 GMem 内存管理单元源码。GMem.cpp...
功能定义打印作业使用的字体,对每个打印作业PowerBuilder支持八种字体。 语法PrintDefineFont(printjobnumber,fontnumber,facename,height,weight,fontpitch,fontfamily, italic,underline) 参数printjobnumber:用...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
SOAOFFICE同时支持C/S方式的编程和其他支持ActiveX的容器,您可以在VB,Delphi以及C++ Builder中使用本中间件,快速创建C/S结构的应用。 SOAOFFICE中间件是一个国际化产品,支持多种界面语言:简体中文、繁体中文、...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
Borland(R) C++Builder[TM] 5"; 支持平台 Win 98/NT/2000/ME/XP 许可证方式 标准报价 3,440 元人民币 * 以上报价仅供参考,具体以厂商正式报价为准。 电话 021-58549800 Email: tools@sh.grapecity....
在VB,Delphi,C++Builder中均可以很方便的使用控件 V2,3,2,0版本之后,NTKO OFFICE文档控件不仅可以继续与浏览器和各种后台Web服务器无缝集成创建B/S结构的应用,更全面支持C/S方式的编程和其他容器。您可以在VB,...
HttpModule 实现 ASP.Net (*.aspx) 中文简繁体的自动转换,不用修改原有的任何代码,直接部署即可! 服务器自定义开发二之客户端脚本回发 Web开发: 使用URL重写WEB主题切换 如何在Asp.Net1.1中实现页面模板(所谓的...
【A】.IE7.0 【B】.NetScapeNavigator 【C】.Mosaic 【D】.C++Builder 【正确答案】:D 3.巨型机指的是____。 【A】.体积大 【B】.重量大 【C】.功能强 【D】.耗电量大 【正确答案】:C 4.在多媒体计算机系统中,不...