如何把数据库的内容写入到Word文档中？

编程时，由于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 |

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

#include

 1<vcl.h>   
 2#pragma hdrstop 
 3
 4#include "Unit1.h"   
 5\---------------------------------------------------------------------------   
 6#pragma package(smart_init)   
 7#pragma resource "*.dfm"   
 8TForm1 *Form1;   
 9\---------------------------------------------------------------------------   
10__fastcall TForm1::TForm1(TComponent* Owner)   
11: TForm(Owner)   
12{   
13}   
14\--------------------------------------------------------------------------- 
15
16  
17void __fastcall TForm1::Button1Click(TObject *Sender)   
18{   
19Variant OLEObject;   
20AnsiString dataword;   
21if(Trim(Edit1-&gt;Text)=="")   
22{   
23ShowMessage("请输入文件名");   
24return;   
25}   
26String currentPath=GetCurrentDir()+"//"+Trim(Edit1-&gt;Text);   
27OLEObject=CreateOleObject("Word.Basic");   
28OLEObject.Exec(Procedure("FileNew"));   
29OLEObject.Exec(Procedure("EndOfDocument"));   
30ADOTable1-&gt;First();   
31while(ADOTable1-&gt;Eof!=True)   
32{   
33dataword=ADOTable1-&gt;FieldValues["工号"]+ADOTable1-&gt;FieldValues["姓名"]+ADOTable1-&gt;FieldValues["性别"]+ADOTable1-&gt;FieldValues["部门"];   
34OLEObject.Exec(Procedure("Insert")&lt;<dataword); adotable1-="">Next();   
35}   
36OLEObject.Exec(Procedure("StartOfDocument"));   
37OLEObject.Exec(Procedure("FileSaveAs")&lt;<currentpath); *sender)="" \---------------------------------------------------------------------------="" __fastcall="" oleobject.exec(procedure("fileclose")<<1);="" showmessage("文件已经写入！谢谢使用！");="" tform1::button2click(tobject="" this-="" void="" {="" }="">Close();   
38}   
39\---------------------------------------------------------------------------   
40void __fastcall TForm1::Edit1Click(TObject *Sender)   
41{   
42Edit1-&gt;Text="";   
43}</currentpath);></dataword);></vcl.h>