请教VC调用Word

Question

老大,你问VC的问题应该到VC那边去.

Answer 1

我也想知道这个，据说技术内幕里有一个excel的例子，第24章还是25章，研究好了告诉一下。

Answer 2

这个简单，看我的
#pragma warning (disable:4146)
#import "d:\PROGRAM FILES\Microsoft Office\OFFICE\MSO9.DLL" no_namespace rename("DocumentProperties", "OfficeDocumentProperties")
#pragma warning (disable:4146)
#import "c:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6EXT.OLB"   no_namespace
#import "d:\PROGRAM FILES\Microsoft Office\OFFICE\msword9.Olb" rename("ExitWindows", "ExcelExitWindows")接下来开始了
Word::_ApplicationPtr m_WordPtr;
Word::DocumentsPtr m_DocsPtr;
Word::_DocumentPtr m_DocPtr;
HRESULT hr;
try{
hr=m_WordPtr.CreateInstance(L"Word.Application");
m_WordPtr->Visible=VARIANT_TRUE;
m_DocPtr=m_WordPtr->Documents->Open(&CComVariant((char*)_bstr_t(m_sLocalFileName)),&vtMissing,
&vtMissing,&CComVariant(VARIANT_FALSE));
}
catch(_com_error *e)
{
MessageBox(NULL,"haha","no word",MB_OK);
return -1;
}
return 0;
这样就打开了
注意office97和office2000的库是不一样的，特别是vbe的库，名字都变了，原来97得叫什么vbeext1.tlb既不太清楚了，不过你用o97库写的o2000下可以跑，倒过来我就不知道了

Answer 3

谢谢谢谢
这是可以了
但是有个问题啊
如果这台机器没有安装office，那程序就不能用了。
我想实现像loadlibary这样的东西，就算没有安装也能运行程序，并且提示没有安装office，
但是程序的其他功能还是能用。
还有picture的问题怎么办呢？

Answer 4

给分给分，可以了怎么不给分阿，偶辛辛苦苦回答，给点分捧场嘛
没有word就会创建失败，就会出现no word的messagebox嘛，程序里面已经写了阿，
你的loadlibary是什么意思，没搞东

Answer 5

我要将用LoadIcon取得的（资源）图片放入word文档中，该怎么做啊？
Word提供的AddPicture 只能加入一个图片文件。ps.
to：fantong
你的程序要要改一下才行：
hr=m_WordPtr.CreateInstance(L"Word.Application");
if(FAILED(hr))
{
MessageBox("no word","haha",MB_OK);
return -1;
}
m_WordPtr->Visible=VARIANT_TRUE;
m_DocPtr=m_WordPtr->Documents->Open(&CComVariant((char*)_bstr_t(m_sLocalFileName)),&vtMissing,
&vtMissing,&CComVariant(VARIANT_FALSE));