jishiping等大虾请帮忙看看OLE的奇怪问题

[csw]

我用下面的代码：
::CoInitialize(NULL);

Variant WordApp,Wdocuments,Wdoc;

AnsiString WAppName="Word.Application" ;

// Using OLE to Link WORD and Excel
WordApp=Variant::CreateObject(WAppName) ;

Wdocuments=WordApp.OlePropertyGet("Documents");
Wdoc=Wdocuments.OleFunction("Open","TestWord.doc");
跑到OleFunction这里就出错了，提示是olesyserror.我记得我以前这么用过似乎没什么问题啊，请帮忙看看怎么回事。。
断点是断在：
Variant Variant::OleFunction(const String& name, P1 p1)
{
TAutoArgs<1> args;
args[1] = p1;
return OleFunction(name, static_cast<TAutoArgsBase*>(&args));
}
return 这一句。
我的运行环境是2k ad server,+bcb6.0没打补丁。。
谢谢

[ccrun.com]

String strDocFileName="C:\\123.doc";

Procedure Open("Open");
Wdocuments=WordApp.OlePropertyGet("Documents");
Wdocuments.Exec(Open<<strDocFileName);

[ccrun.com]

String strDocFileName="C:\\123.doc";

Procedure Open("Open");
Wdocuments=WordApp.OlePropertyGet("Documents");
Wdocuments.Exec(Open<<strDocFileName);

[csw]

谢谢，前面的代码通过了，我的目的是实现一个后台打印的功能（不能弹出word等）
我该如何写呢？
另外前面的代码怎么不行呢。。谢谢。当然这是后话。。

[jishiping]

OLE、COM编程，我也不熟悉。

[jishiping]

OLE、COM编程，我也不熟悉。

[csw]

谢谢季大虾。

[7rainbow]

try
{
word_pub=CreateOleObject("Word.Application");
}
catch(...)
{
ShowMessage("无法启动Word");
return ;
}

word_pub.OlePropertySet("Visible", true);
try{
word_pub.OlePropertyGet("Documents").OleFunction("Open",Edit1->Text.c_str());
}
catch(...)
{
return ;
}

[csw]

哎呀。真的可以，跟上边的代码有区别吗？。。

[kingcaiyao]

1.注意包含utilcls.h这个头文件，#include "utilcls.h"
2.在后台打印的话应该将Visible属性设置为TRUE