mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Word_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  try
  {
     //连接Word
     WordApplication1->Connect();
     //建立一个新文档
     WordApplication1->Documents->Add();
     //将WordDocument对象与WordApplication对象进行连接
     WordDocument1->ConnectTo(WordApplication1->Documents->Item(Variant(1)));
     //在Word中添加一个4*8表格
     WordDocument1->Tables->Add(WordDocument1->Range(EmptyParam,EmptyParam),4,8);
     //在Word文档末尾添加一个4*8表格
     //WordDocument1->Tables->Add(WordDocument1->Range(Variant(WordDocument1->Range(EmptyParam,EmptyParam)->End-1),EmptyParam),4,8);
     //第３行、第５列的这个单元格我们需要插入一段文本
     WordDocument1->Tables->Item(Variant(1))->Cell(Variant(3),Variant(5))->Range->set_Text(WideString("单元格内容"));
     //将表格中(1,1)与(1,2)单元格合并
     WordDocument1->Tables->Item(Variant(1))->Cell(Variant(1),Variant(1))->Merge(WordDocument1->Tables->Item(Variant(1))->Cell(Variant(1),Variant(2)));
    //将表格中(3,5)单元格拆分为2行3列的单元格
     WordDocument1->Tables->Item(Variant(1))->Cell(Variant(3),Variant(5))->Split(Variant(2),Variant(3));
     WordApplication1->set_Visible(true);
   }
   catch(...)
   {
     MessageBox(Handle,"系统可能没有安装Word!","信息提示",MB_OK);
     WordApplication1->Disconnect();
   }
}
//---------------------------------------------------------------------------