在编程时，由于Microsoft Word的编辑功能非常强大，所以我们经常希望将一些数据保存为WORD文档，以便我们专业编辑。

　　　在保存为Word文档时，我们可以通过OLE，但经常遇到把真正的Word编辑界面调入到了程序中，以使得程序界面混乱。还有，普通的调用Word的方法都必须指定Word可执行文件的绝对地址，由于很多用户安装Word的路径都不一致，故，我们经常遇到调用错误的问题，能不能有一种方法调用Word不将它显示出来，与版本、安装路径无关呢？答案是肯定的。

　　　下面，我就来做一个小程序给大家演示一下，只起到一个抛砖引玉的作用。仅供朋友们参考。

　　首先，我们建立一个Access2000数据库data.mdb，在库中我们建立一个表userdata，里面有“工号”、“姓名”、“性别”、“部门”四个字段，都是字符型的，再输入一些数据，我们再建立一个窗体Form1，在Form1中，放置以下控件：

控件名称 属性 值 说明 

Tlabel1 Caption "请输入文件名"  

TEdit1 Name "" 用来输入文件名，带扩展名的 

TButton1 Caption "保存"  

TButton2 Caption "退出"  

ADOTable1 Active



ConnectionString



TableName True

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

userdata  





下面是相关代码:

file://---------------------------------------------------------------------------



#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="";        

}