用C++ Builder实现Word 97自动化
副标题#e#
要在应用措施中节制Word97的运行，首先必需在体例自动化客户措施时使其头文件中包括文件ComObj.hpp，写入＃include。编程东西C＋＋Builder的开拓者把挪用Word97自动化工具的成果大抵包装成了几个Oleobjectclass函数，应用措施设计人员可以很利便地操作它们。
＊设定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自动化节制Word97，必需把握Word97的自动化工具及MicrosoftWordVisualBasic辅佐文件中关于Word的工具要领和属性。Word工具代表一个Word的元素，如文档、段落、书签或单个的字符。荟萃是一个工具，该工具包括其他数个工具，凡是这些工具属于沟通的范例，譬喻，一个荟萃工具中可包括文档中的所有书签工具。通过利用属性和要领，可以修改单个的工具，也可修改整个的工具荟萃。属性是工具的一个特性可能该工具操纵的一个方面。譬喻，文档属性包括名称、内容、生存状态，以及是否启用修订。要变动一个工具的属性，可以修改属性的值。要领是工具可以举办的行动。
—-代表Word97应用措施的自动化工具有两个：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中实现Word97的自动化成果，其成果是打开或建设新文档，并向当前勾当中发送文字、插入位图和画条直线等。在C＋＋Builder集成开拓情况IDE下，成立一项目Project1，个中包括Form1（其Caption为OLEAutomation）的单位文件Unit1.cpp。表单Form1的OpenDialog1工具的Filter设为Word文档或位图。Unit1.cpp的头文件中必需包括"ComObj.hpp"。代码如下：
#p#副标题#e#
头文件Unit1.h代码为：
＃ifndefUnit1H
＃defineUnit1H
//－－－－－－－－－－－－－
＃include
＃include
＃include
＃include
＃include
＃include
＃include
//－－－－－－－－－－－－－
classTForm1:publicTForm
{
__published://IDE－managedComponents
TButton＊Button1;
TOpenDialog＊OpenDialog1;
TButton＊Button2;
TMemo＊Memo1;
TBevel＊Bevel1;
TButton＊Button3;
TLabel＊Label1;
TButton＊Button5;
TBevel＊Bevel2;
TLabel＊Label2;
TLabel＊Label3;
void__fastcallButton1Click(TObject＊Sender);
void__fastcallButton3Click(TObject＊Sender);
void__fastcallButton2Click(TObject＊Sender);
void__fastcallButton5Click(TObject＊Sender);
private://Userdeclarations
public://Userdeclarations
VariantV,Vdocuments,Vdocument1,Vdocument2,Vactive;
/＊界说Variant型全局//变量,
别离指代Application工具,V的Documents
工具,Vdocuments的Document工具
（Vdocument1,Vdocument2）以及
V的ActiveDocument工具＊/
inttag;//用于记录Button3被点击的次数
__fastcallTForm1(TComponent＊Owner);
Variant__fastcallGetWordObject();
//得到Word97自动化工具函数
void__fastcallAdd(inti);
//编辑当前勾当文档指定的
段落文字的函数
};
//－－－－－－－－－－－－－
externPACKAGETForm1＊Form1;
//－－－－－－－－－－－－－
＃endif
Unit1.cpp文件代码为：
＃include
＃pragmahdrstop
＃include"Unit1.h"
＃include
//－－－－－－－－－－－－－
＃pragmapackage(smart_init)
＃pragmaresource"＊.dfm"
TForm1＊Form1;
//－－－－－－－－－－－－－
__fastcallTForm1::TForm1(TComponent＊Owner)
:TForm(Owner)
{
tag=1;//令tag的初值为1，
其将随Button3的点击次数而递增
}
//－－－－－－－－－－－－－
Variant__fastcallTForm1::GetWordObject()
{
VariantObj1;
AnsiStringAppName="Word.Application";
HWNDhPrevApp=::FindWindow(NULL,
"MicrosoftWord");
if(!hPrevApp)
{
Obj1=CreateOleObject(AppName);
//Word没启动就启动它返回一自动化工具
}
else
Obj1=GetActiveOleObject(AppName);
//不然返回正在运行的实例自动化工具
Obj1.OlePropertySet("Visible",true);
returnObj1;
}
void__fastcallTForm1::Button1Click(TObject＊Sender)
{
intj;
V=GetWordObject();
//得到Word97自动化工具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__fastcallTForm1::Button3Click(TObject＊Sender)
{
inti,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__fastcallTForm1::Button2Click(TObject＊Sender)
{
V=GetWordObject();
Vdocuments=V.OleFunction("");
Vdocument2=Vdocuments.OleFunction("Add");
//利用Documents工具的Add要领新建文档
Vdocument2.OlePropertySet("Password","12345");
//配置新建文档的口令
}
//－－－－－－－－－－－－－－
void__fastcallTForm1::Add(inti)
{
VariantV1;
//配置被编辑段的内容、字体巨细、
颜色及是否斜体
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__fastcallTForm1::Button5Click(TObject＊Sender)
{
VariantVshape,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＋＋Builder3中编译通过，运行该应用措施首先必需得到文档，然后才可以编辑文档。
