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)));
     //添加一个文字段
     WordDocument1->Paragraphs->Add();
     //设置该段文本字体
     WordDocument1->Paragraphs->Item(Variant(1))->Range->Font->set_Name(WideString("黑体"));
     //设置字号
     WordDocument1->Paragraphs->Item(Variant(1))->Range->Font->Size=50;
     //设置文字颜色
     WordDocument1->Paragraphs->Item(Variant(1))->Range->Font->Color=RGB(0,0,200);
     //设置该段文字内容
     WordDocument1->Paragraphs->Item(Variant(1))->Range->set_Text(WideString("中华人民共和国!"));
     //设置该段文字居中
     WordDocument1->Paragraphs->Item(Variant(1))->Alignment=1;
     //添加一个文字段
     WordDocument1->Paragraphs->Add();
     //设置该文字段字体
     WordDocument1->Paragraphs->Item(Variant(2))->Range->Font->set_Name(WideString("宋体"));
     //设置字号
     WordDocument1->Paragraphs->Item(Variant(2))->Range->Font->Size=30;
     //设置该文字段内容
     WordDocument1->Paragraphs->Item(Variant(2))->Range->set_Text(WideString("地大物博，人口众多!"));
     //设置该段文字居左
     WordDocument1->Paragraphs->Item(Variant(2))->Alignment=0;
     //添加一个文字段
     WordDocument1->Paragraphs->Add();
     //设置该段文本字体
     WordDocument1->Paragraphs->Item(Variant(3))->Range->Font->set_Name(WideString("宋体"));
     //设置字号
     WordDocument1->Paragraphs->Item(Variant(3))->Range->Font->Size=20;
      //设置当前段文字内容
     WordDocument1->Paragraphs->Item(Variant(3))->Range->set_Text(WideString("首都是北京!"));
     //设置该段文字居右
     WordDocument1->Paragraphs->Item(Variant(3))->Alignment=2;
     WordApplication1->set_Visible(true);
   }
   catch(...)
   {
     MessageBox(Handle,"系统可能没有安装Word!","信息提示",MB_OK);
     WordApplication1->Disconnect();
   }
}
//---------------------------------------------------------------------------