try
{
WordApplication1->Connect();//与Word进行连接
WordApplication1->Documents->Add();//建立一个新文档
WordDocument1->ConnectTo(WordApplication1->Documents->Item(Variant(1)));
//将WordDocument对象与WordApplication对象进行连接 WordApplication1->Documents->Item(Variant(1))->Range()->InsertAfter(StringToOleStr("这是一段测试文字"));
//在文档中添加一段新文本
WordApplication1->Application->Visible=true;//显示Word }
catch(...)
{
ShowMessage("您可能没有安装Word!");
WordApplication1->Disconnect();
}
我用这种方法操作word,然后让打开的word在form里,也就是form作为word的容器
{
WordApplication1->Connect();//与Word进行连接
WordApplication1->Documents->Add();//建立一个新文档
WordDocument1->ConnectTo(WordApplication1->Documents->Item(Variant(1)));
//将WordDocument对象与WordApplication对象进行连接 WordApplication1->Documents->Item(Variant(1))->Range()->InsertAfter(StringToOleStr("这是一段测试文字"));
//在文档中添加一段新文本
WordApplication1->Application->Visible=true;//显示Word }
catch(...)
{
ShowMessage("您可能没有安装Word!");
WordApplication1->Disconnect();
}
我用这种方法操作word,然后让打开的word在form里,也就是form作为word的容器
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货