用C++Builder实现Word 97自动化

原创 2001年04月13日 09:40:00

用C++Builder实现Word 97自动化
江西南昌华东交大控制信息
工程研究所(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中编译通过,运行该应用
 程序首先必须获得文档,然后才可以编辑文档。

[C++] 用 C++ Builder 实现 Word 97 自动化

用C++Builder实现Word 97自动化  ----要在应用程序中控制Word 97的运行,首先必须在编制自动化客户程序时使其头文件中包含文件ComObj.hpp,写入#include。编程工具...
  • azuresn
  • azuresn
  • 2005年03月13日 21:37
  • 1109

利用C++Builder 中OLE自动化功能实现调用Word进行报表制作

利用C++Builder 中OLE自动化功能实现调用Word进行报表制作一、概述  在我们利用C++Builder进行报表设计和打印处理时,我们往往是用C++Builder自己所提供的QReport组...
  • ktcserver
  • ktcserver
  • 2003年07月07日 08:51
  • 4771

Microsoft Office 2003:word转pdf

Office 2003需要PDF虚拟打印机的支持,安装虚拟打印机后,选择文件->打印, 在打印机列表中选择PDF虚拟打印机,即可输出为PDF。 推荐的虚拟打印机:dopdf、PDFCreator或...
  • yuzifen
  • yuzifen
  • 2011年11月07日 10:01
  • 2666

利用C++Builder 6 中OLE自动化功能实现调用Word进行报表制作

利用C++Builder 6 中OLE自动化功能实现调用Word进行报表制作本文为原有篇幅在CB6下编写代码的补充,CB5下开发可以参考原有文章一、概述  在我们利用C++Builder进行报表设计和...
  • ktcserver
  • ktcserver
  • 2004年10月28日 15:06
  • 3369

word2010排版:分栏的正文中插入正确的脚注(Word加入脚注后,分栏的正文就跑到下一页上去了的解决方案

解决方法:兼容性->采用word 6.x/95/97的方式排放脚注 word 2010中的设置如下: 文件->选项->高级->(最下面,兼容性选项->版式选项)->采用word 6.x/95/97的方...
  • marstonyjiang
  • marstonyjiang
  • 2014年12月31日 18:31
  • 2248

c++builder 6.0 将DBGrid中的数据导出到Word和Excel

因为需求,所以自学了c++,没有人带着还是有点慢!遇到很多问题网上很难找到资料,幸好在这网站遇到好多热心人!! 我我也在网上找到了几个不错的资料,需要的朋友可以 去我的资源下载! 今天这代码是从网...
  • u014114857
  • u014114857
  • 2015年07月17日 10:58
  • 1230

如何嵌入并自动化 Word 文档的 MFC-微软官方文档

概要 使用 OLE 嵌入,其他应用程序文档中嵌入的文档可以修改自动化通过双击嵌入的文档以将其激活"编辑"或"打开"中模式。 本文演示如何嵌入并自动化 Microsoft Office Word 文...
  • zuoyefeng1990
  • zuoyefeng1990
  • 2016年08月23日 14:05
  • 478

Windows Server® 2008 Enterprise 组件服务 找不到 ”Microsoft Word 97 - 2003 文档“组件

Windows Server® 2008 Enterprise 组件服务 找不到 ”Microsoft Word 97 - 2003 文档“
  • chang_chao_123
  • chang_chao_123
  • 2016年05月04日 10:43
  • 2535

用C++实现二叉树

#include using namespace std; template class BinarySearchTree { public: BinarySearchTree():root(...
  • yaoxiaokui
  • yaoxiaokui
  • 2015年10月18日 17:48
  • 161

Delphi与c++builder操作Ole的区别

使用TOleContainer加载个word文档,隐藏缺省的会显示菜单栏和工具栏 1、c++builder方法 void __fastcall TForm1::Button2Click(TObjec...
  • lcfeng1982
  • lcfeng1982
  • 2013年11月06日 10:46
  • 1910
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用C++Builder实现Word 97自动化
举报原因:
原因补充:

(最多只允许输入30个字)