在编程时，由于Microsoft Word的编辑功能非常强大，所以我们经常希望将一些数据保存为WORD文档，以便我们专业编辑。
　　　在保存为Word文档时，我们可以通过OLE，但经常遇到把真正的Word编辑界面调入到了程序中，以使得程序界面混乱。还有，普通的调用Word的方法都必须指定Word可执行文件的绝对地址，由于很多用户安装Word的路径都不一致，故，我们经常遇到调用错误的问题，能不能有一种方法调用Word不将它显示出来，与版本、安装路径无关呢？答案是肯定的。
　　　下面，我就来做一个小程序给大家演示一下，只起到一个抛砖引玉的作用。仅供朋友们参考。
　　首先，我们建立一个Access2000数据库data.mdb，在库中我们建立一个表userdata，里面有“工号”、“姓名”、“性别”、“部门”四个字段，都是字符型的，再输入一些数据，我们再建立一个窗体Form1，在Form1中，放置以下控件：
控件名称属性值说明Tlabel1Caption请输入文件名TEdit1Name用来输入文件名，带扩展名的TButton1Caption保存TButton2Caption退出ADOTable1Active

ConnectionString

TableNameTrue
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False
userdata

下面是相关代码:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include Unit1.h
---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource *.dfm
TForm1 *Form1;
---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant OLEObject;
AnsiString dataword;
if(Trim(Edit1->Text)==)
{
ShowMessage(请输入文件名);
return;
}
String currentPath=GetCurrentDir()+//+Trim(Edit1->Text);
OLEObject=CreateOleObject(Word.Basic);
OLEObject.Exec(Procedure(FileNew));
OLEObject.Exec(Procedure(EndOfDocument));
ADOTable1->First();
while(ADOTable1->Eof!=True)
{
  dataword=ADOTable1->FieldValues[工号]+ADOTable1->FieldValues[姓名]+ADOTable1->FieldValues[性别]+ADOTable1->FieldValues[部门];
  OLEObject.Exec(Procedure(Insert)<<dataword);
  ADOTable1->Next();
}
OLEObject.Exec(Procedure(StartOfDocument));
OLEObject.Exec(Procedure(FileSaveAs)<<currentPath);
OLEObject.Exec(Procedure(FileClose)<<1);
ShowMessage(文件已经写入！谢谢使用！);
}
---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
this->Close();
}
---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
Edit1->Text=;       
}
---------------------------------------------------------------------------
大家如果有什么更好的建议和意见请与我联系。（621150@0451.com）