使用VC向word中插入图片

2.  发表于：2008-11-23 14:13:2913楼 得分:0 
3. C/C++ code
4. #pragma   warning(disable:4786)   
5.     
6.   #import   "C:/Program Files/Common Files/Microsoft Shared/OFFICE11/MSO.DLL"   
7.   #import   "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB"   
8.   #import   "D:/Program Files/Microsoft Office/OFFICE11/msword.olb"   rename("ExitWindows","WordExitWindows")//   no_namespace   
9.     
10.   using   namespace   Word;   
11. void CcsdndialogDlg::OnBnClickedButton4()
12. {
13.     ::CoInitialize(NULL);
14.      Word::_ApplicationPtr   m_WordPtr;   
15.    Word::_DocumentPtr   m_DocPtr;   
16.   Word::InlineShapesPtr   pInShapes;
17.    Word::InlineShapePtr   pInShape;   
18.   HRESULT   hr;   
19.   try{   
20.   hr=m_WordPtr.CreateInstance(L"Word.Application");   
21.   m_WordPtr->Visible=VARIANT_TRUE;   
22.   m_DocPtr=m_WordPtr->Documents->Open(&CComVariant((char*)_bstr_t("F://test.doc")),&vtMissing,   
23.   &vtMissing,&CComVariant(VARIANT_FALSE));   
25.    pInShapes=m_DocPtr->GetInlineShapes();   
27.     
28.   pInShape=pInShapes->AddPicture("d://1.BMP");
29.   }   
30.   catch(_com_error   *e)   
31.   {   
32.   MessageBox("haha","no   word",MB_OK);   
33.   return   ;   
34.   }   
35. }