急需bcb6操作word文档的例子

[xabcxyz]

我照着老妖的方法试了，现在有一个新的需求无法实现

用自定义模板打开新文档，然后添加表格

自定义模板存在数据库中，现假设在可执行程序的当前目录有 mb.dot 文件。

[lghndyz]

Variant WordObject;
String StrCurrentPath = GetCurrentDir()+"\\"+"mb.Doc";
WordObject = CreateOleObject("Word.Basic");
WordObject.Exec(Procedure("FileNew"));
WordObject.Exec(Procedure("EndOfDocument"));
WordObject.Exec(Procedure("FileSaveAs")<<StrCurrentPath); //保存Word
WordObject.Exec(Procedure("FileOpen")<<StrCurrentPath); //打开Word
WordObject.Exec(Procedure("FileClose")<<1); //关闭Word
MessageBox(Handle,"Word文件保存成功!","信息提示",MB_OK);

[xabcxyz]

因为我使用了bcb6的server系列控件,所以如下:
h中定义:
TWordApplication *wdap1;
TWordDocument *wddc1;
cpp中代码:
String strDotFile = ExtractFileDir(Application->ExeName) = "\\dot\\mb.dot";
OleVariant Template = strDotFile;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;
unsigned int DataHandle;
HPALETTE APalette;
unsigned short MyFormat;
Word_2k::RangePtr range;
Word_2k::Table *table;
Word_2k::WdDefaultTableBehavior rb = wdWord9TableBehavior;
Word_2k::WdAutoFitBehavior fb = wdAutoFitFixed;

try{ wdap1->Connect(); }
catch (Exception &exception){
MessageDlg("Word may not be installed", mtError, TMsgDlgButtons() << mbYes, 0);
Abort;
}
wdap1->GetDefaultInterface()->Visible = True;
wdap1->set_Caption(StringToOleStr("Borland automation"));

wdap1->Documents->Add(Template, NewTemplate);
wddc1->ConnectTo(wdap1->Documents->Item(ItemIndex));

出错了.

[ccrun.com]

创建文档时，先从数据库中将模板读出，存为一个本地临时文件，如C:\\123.dotx，然后：

String strDotFile = "C:\\123.dotx";
vWordApp.OlePropertyGet("Documents").
            OleFunction("Add", strDotFile.c_str());