小弟我想用c++builder 6对word进行控制（编一个小程序），自动建立表格，并填入相关数字及汉字，表格里的并进行计算．哪位高人给些提示，并给

我想用c++builder 6对word进行控制（编一个小程序），自动建立表格，并填入相关数字及汉字，表格里的并进行计算．哪位高人给些提示，并给
我想用c++builder   6对word进行控制（编一个小程序），自动建立表格，并填入相关数字及汉字，表格里的并进行计算．哪位高人给些提示，并给些资料．

------解决方案--------------------
建表格和填数字等可以到老妖的网站上找DBGrid转word的代码,里面有这2个
www.ccrun.com
------解决方案--------------------
没找到
------解决方案--------------------
http://www.ccrun.com/article.asp?i=635&d=g75jbn
------解决方案--------------------
查查VBA然后用OlePropertySet和OleFunction来写。具体给老妖原来写的一个例子：

//---------------------------------------
// 将DBGrid中的数据导出到Word文档
// v0.1 by ccrun(老妖) 2005.10.13 1:40
//---------------------------------------
void __fastcall DBGrid2Word(TDBGrid *dbg, String strDocFile)
{
if(!dbg-> DataSource-> DataSet-> Active) // 数据集没有打开就返回
return;
Variant vWordApp, vTable, vCell;
try
{
vWordApp = Variant::CreateObject( "Word.Application ");
}
catch(...)
{
MessageBox(0, "启动 Word 出错, 可能是没有安装Word. ",
"DBGrid2Word ", MB_OK | MB_ICONERROR);
vWordApp = Unassigned;
return;
}
// 隐藏Word界面
vWordApp.OlePropertySet( "Visible ", false);
// 新建一个文档
vWordApp.OlePropertyGet( "Documents ").OleFunction( "Add ");
//
Variant vSelect = vWordApp.OlePropertyGet( "Selection ");
// 设置一下字体，大小
vSelect.OlePropertyGet( "Font ").OlePropertySet( "Size ", dbg-> Font-> Size);
vSelect.OlePropertyGet( "Font ").OlePropertySet( "Name ", dbg-> Font-> Name.c_str());
// 要插入表格的行数
int nRowCount(dbg-> DataSource-> DataSet-> RecordCount + 1);
nRowCount = nRowCount < 2? 2: nRowCount;
// 要插入表格的列数
int nColCount(dbg-> Columns-> Count);
nColCount = nColCount < 1? 1: nColCount;
// 在Word文档中插入与DBGrid行数列数基本相同的一个表格
vWordApp.OlePropertyGet( "ActiveDocument ").OlePropertyGet( "Tables ")
.OleProcedure( "Add ",
vSelect.OlePropertyGet( "Range "),
nRowCount, // 行数
nColCount, // 列数
1, // DefaultTableBehavior:=wdWord9TableBehavior
0); // AutoFitBehavior:=wdAutoFitFixed
// 操作这个表格
vTable = vWordApp.OlePropertyGet( "ActiveDocument ").
OleFunction( "Range ").OlePropertyGet( "Tables ").OleFunction( "Item ", 1);
// 设置单元格的宽度
for(int i=0; i <nColCount; i++)
{
int nColWidth = dbg-> Columns-> Items[i]-> Width;
vTable.OlePropertyGet( "Columns ").OleFunction( "Item ", i + 1)
.OlePropertySet( "PreferredWidthType ", 3); // wdPreferredWidthPoints
vTable.OlePropertyGet( "Columns ").OleFunction( "Item ", i + 1)
.OlePropertySet( "PreferredWidth ", nColWidth);
}
//----------------------------------------
// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
// 作者：ccrun(老妖) info@ccrun.com
// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=635&d=g75jbn
//----------------------------------------
// 先将列名写入Word表格
for(int j=0; j <dbg-> Columns-> Count; j++)