江西南昌华东交大控制信息工程研究所(330013)刘遵雄



  ----要在应用程序中控制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中编译通过，运行该应用

程序首先必须获得文档，然后才可以编辑文档。