MFC VC 操作Excel,word的OLE对象

声明：上次写这篇文章的时候用的是截图，导致看不见东西，不是故意的。

本文的内容有两部分：

第一部分是手动打开一个excel表格以后，Ctrl+C复制表格中的内容，点击程序中的一个按钮，跳到OnTreePop_CopyForExcelOle（）函数中。走的是

ExcelCopyObject()接口。该函数是把刚才复制的excel表格以Microsoft Excel 工作表 对象插入到一个临时建立的word文件中，在该函数中，需要把对象粘贴到richEdit控件中，但是直接粘贴只能显示一部分。只有在word中把对象转换成嵌入型以后才能全部粘贴到richEdit控件中。所以进行了环绕方式的转换。

第二部分是手动打开一个word文件，里面有组织结构图等不能直接复制到richEdit控件中的图形。为了把这些图形复制到richEdit控件中，需要先把其转换成OLE对象。同样复制以后，点击按钮跳到OnTreePop_CopyForWordOle()函数中。走WordCopyObject()和PasteOleToWord(flag)接口。第一个接口是把图片复制到word临时文件中。第二个接口是把临时文件以OLE对象插入到另一个临时word文件。最后把这个OLE对象粘贴到richEdit控件中

//word  1
void CMainFrame::OnTreePop_CopyForWordOle()
{
TreePop_CopyForOle( 1 );
}


//excel  0
void CMainFrame::OnTreePop_CopyForExcelOle()
{
TreePop_CopyForOle( 0 );
}


//visio  2
void CMainFrame::OnTreePop_CopyForVisioOle()
{
TreePop_CopyForOle( 2 );
}


void CMainFrame::TreePop_CopyForOle( int flag )
{
int res;
if (flag == 0)
res = ExcelCopyObject();
else if (flag == 1)
{
res = WordCopyObject();
if (res != -1)
PasteOleToWord(flag);
}
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//


//  从word文件中按下Ctrl + C后，复制到a.docx中，并且保存。每次复制时，a.docx都会清空，保证a.docx中保存的是最新复制的内容
//
//  2015年1月6日10:43:05   hjz








int CMainFrame::ExcelCopyObject()
{
char pFileName[MAX_PATH]; 
int nPos = GetCurrentDirectory( MAX_PATH, pFileName); 
CString csFullPath(pFileName);  
CString csFullPathA = csFullPath + "\\System\\Module\\CopyForWord.docx";
//查找是否有CopyForWord.docx，如果有删除它
HANDLE h;
LPWIN32_FIND_DATA pFD=new WIN32_FIND_DATA;
BOOL bFound = FALSE;
if(pFD)
{
h=FindFirstFile(csFullPathA, pFD);
bFound=(h!=INVALID_HANDLE_VALUE);
if(bFound)
{
FindClose(h);
DeleteFile(csFullPathA);
}
delete pFD;
}


CWordApplication wordapp;
CWordDocuments docs;
CWordDocument doc;
if (!wordapp.CreateDispatch(_T("Word.application")))
{
AfxMessageBox(_T("Word初始化时出错!"));
return -1;
}


wordapp.SetVisible(FALSE);
docs = wordapp.GetDocuments();


CComVariant Template(_T(""));
CComVariant NewTemplate(false),DocumentType(0),Visible;
doc = docs.Add(&Template, &NewTemplate);
if(!doc.m_lpDispatch)
{
AfxMessageBox(_T("创建新文档失败!"));
return -1;
}




//设置粘贴图片/插入为：嵌入型
CWordOptions options = wordapp.GetOptions();
options.SetPictureWrapType((long)0);


COleVariant vTrue((short)TRUE), vFalse(short(FALSE)), vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CWordSelection sel = wordapp.GetSelection();
try
{
sel.WholeStory();
sel.TypeBackspace();
sel.TypeParagraph();


COleVariant vOptUint((long)7), vOptCount((long)1), vOptExtend((long)0);
sel.MoveUp(vOptUint, vOptCount, vOptExtend);


COleVariant vOptPlecement(long(0)),  IconFileName(_T("")), IconLabel(_T("") );


COleVariant vOptIconIndex = vtFalse, vOptLink = vtFalse, vOptPlacement((short)1), vOptDisplayAsIcon = vtFalse, vOptDataType((short)0), vOptIconFileName = vtNull, vOptIconLabel = vtNull;
CWordRange wordRange = sel.GetRange();
sel.PasteSpecial(&vOptIconIndex, &vOptLink, &vOptPlacement, &vOptDisplayAsIcon, &vOptDataType, vOptIconFileName, vOptIconLabel );


CWordShapeRange shapeRange = sel.GetShapeRange();
COleVariant vOptReplace = vtTrue;
shapeRange.Select(&vOptReplace);
shapeRange.ConvertToInlineShape();
sel.WholeStory();
sel.Copy();


CWnd* pWnd = m_wndSplitter.GetPane(0, 1);
CResZtbInfoView* pZtbView = DYNAMIC_DOWNCAST(CResZtbInfoView, pWnd);
CRes_Dialog* pEditInfo = (CRes_Dialog*)pZtbView->GetCurViewDlg();
CRichEditControl50W& editInfoCtrl = ((CD_EditInfo*)pEditInfo)->m_EditInfoCtrl;
//粘贴OLE对象
editInfoCtrl.Paste();
editInfoCtrl.PasteSpecial(CF_TEXT);
doc.SaveAs(COleVariant(csFullPathA), vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss);


wordapp.Quit(vFalse, vTrue, vFalse);
options.DetachDispatch();
doc.DetachDispatch();
docs.DetachDispatch();
wordapp.DetachDispatch();


options.ReleaseDispatch();
sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();
wordapp.ReleaseDispatch();




}
catch (CException* e)
{
e->ReportError();
wordapp.Quit(vFalse, vTrue, vFalse);
doc.DetachDispatch();
docs.DetachDispatch();
wordapp.DetachDispatch();
sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();
wordapp.ReleaseDispatch();
return -1;
}
return 0;  //excel返回0
}




int CMainFrame::WordCopyObject()






{
char pFileName[MAX_PATH]; 
int nPos = GetCurrentDirectory( MAX_PATH, pFileName); 
CString csFullPath(pFileName);  
CString csFullPathA = csFullPath + "\\System\\Module\\CopyForWord.docx";


//查找是否有CopyForWord.docx，如果有删除它
HANDLE h;
LPWIN32_FIND_DATA pFD=new WIN32_FIND_DATA;
BOOL bFound = FALSE;
if(pFD)
{
h=FindFirstFile(csFullPathA, pFD);
bFound=(h!=INVALID_HANDLE_VALUE);
if(bFound)
{
FindClose(h);
DeleteFile(csFullPathA);
}
delete pFD;
}


CWordApplication wordapp;
CWordDocuments docs;
CWordDocument doc;


if (!wordapp.CreateDispatch(_T("Word.application")))
{
AfxMessageBox(_T("Word初始化时出错!"));
return -1;
}
wordapp.SetVisible(FALSE);
docs = wordapp.GetDocuments();


CComVariant Template(_T(""));
CComVariant NewTemplate(false),DocumentType(0),Visible;
doc = docs.Add(&Template, &NewTemplate);
if(!doc.m_lpDispatch)
{
AfxMessageBox(_T("创建新文档失败!"));
return -1;
}


COleVariant vTrue((short)TRUE), vFalse((short)FALSE), vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CWordSelection sel = wordapp.GetSelection();
try
{
sel.WholeStory();
sel.TypeBackspace();
sel.TypeParagraph();
COleVariant vOptUint((long)7), vOptCount((long)1), vOptExtend((long)0);
sel.MoveUp(vOptUint, vOptCount, vOptExtend);


sel.Paste();
doc.SaveAs(COleVariant(csFullPathA), vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss);
wordapp.Quit(vFalse, vTrue, vFalse);
doc.DetachDispatch();
docs.DetachDispatch();
wordapp.DetachDispatch();


sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();
wordapp.ReleaseDispatch();


}
catch (CException* e)
{
e->ReportError();
wordapp.Quit(vFalse, vTrue, vFalse);
doc.DetachDispatch();
docs.DetachDispatch();
wordapp.DetachDispatch();


sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();
wordapp.ReleaseDispatch();
return -1;
}


return 1;  //word 返回1
}




bool CMainFrame::PasteOleToWord( int flag )








{
////创建b.docx用于把a.docx以OLE对象插入, 能够复制
char pFileName[MAX_PATH]; 
int nPos = GetCurrentDirectory( MAX_PATH, pFileName); 
CString csFullPath(pFileName);  
CString csFullPathA;
CWordApplication wordapp1;
CWordDocuments docs1;
CWordDocument doc1;
CWordInlineShapes inlineShapes;
CWordInlineShape inlineSpape;
COleVariant vTrue((short)TRUE), vFalse((short)FALSE), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR), vZ((short)0), vOptFormat((long)0);
if (!wordapp1.CreateDispatch(_T("Word.application")))
{
AfxMessageBox(_T("Word初始化时出错!"));
return FALSE;
}
wordapp1.SetVisible(FALSE);
docs1 = wordapp1.GetDocuments();


CComVariant Template(_T(""));
CComVariant NewTemplate(false),DocumentType(0),Visible;
doc1 = docs1.Add(&Template,&NewTemplate); 




if (!doc1.m_lpDispatch) 
{
AfxMessageBox(_T("Document获取失败!"));
return FALSE;
}


////把文件a.docx当做ole对象插入到b.docx
//docs1.Open(COleVariant(csFullPathB), vFalse, vFalse, vFalse, vOpt, vOpt, vOpt, vOpt, vOpt, vOptFormat);
////docs1.Open(COleVariant(csFullPathB), vFalse, vFalse, vFalse, vOpt, vOpt, vOpt, vOpt, vOpt, vOptFormat, vOpt, vOpt, vOpt, vZ, vOpt, vOpt);
//清空word内容
CWordSelection sel1 = wordapp1.GetSelection();
sel1.WholeStory();
sel1.TypeBackspace();
sel1.TypeParagraph();
COleVariant vOptUint((long)7), vOptCount((long)1), vOptExtend((long)0);
sel1.MoveUp(vOptUint, vOptCount, vOptExtend);
inlineShapes = sel1.GetInlineShapes();
CComVariant range = sel1.GetRange();


//加载OLE对象
//if ( flag == 0 )
//{
// csFullPathA = csFullPath + "\\System\\Module\\CopyForExcel.xlsx";
// CWordShapes wordShapes = doc1.GetShapes();
// wordShapes.AddOLEObject(COleVariant(_T("Excel.Application")), COleVariant( csFullPathA ), &vFalse, &vFalse, &vOpt, &vFalse, &vOpt, &vOpt, &vOpt, &vOpt, &vOpt, &range);
//}
//else if ( flag == 1 )
//{
csFullPathA = csFullPath + "\\System\\Module\\CopyForWord.docx";
inlineSpape = (CWordInlineShape)inlineShapes.AddOLEObject(COleVariant(_T("word.application")), COleVariant( csFullPathA ), &vOpt, &vFalse, &vOpt, &vOpt, &vOpt, &range);
//}
CString csFullPathB = csFullPath + "\\System\\Module\\PasteToWord.docx";








//sel1.InsertFile( csFullPathA, &range, vFalse, vFalse, vFalse);
try
{
//复制OLE对象


sel1.WholeStory();
sel1.Copy();
CWnd* pWnd = m_wndSplitter.GetPane(0, 1);
CResZtbInfoView* pZtbView = DYNAMIC_DOWNCAST(CResZtbInfoView, pWnd);
CRes_Dialog* pEditInfo = (CRes_Dialog*)pZtbView->GetCurViewDlg();
CRichEditControl50W& editInfoCtrl = ((CD_EditInfo*)pEditInfo)->m_EditInfoCtrl;
//粘贴OLE对象
editInfoCtrl.Paste();
editInfoCtrl.PasteSpecial(CF_TEXT);


doc1.SaveAs(COleVariant(csFullPathB), vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss);
doc1.Close(vOpt,vOpt,vOpt);
wordapp1.Quit(vFalse, vTrue, vFalse);
inlineSpape.DetachDispatch();
inlineShapes.DetachDispatch();
sel1.DetachDispatch();
doc1.DetachDispatch();
docs1.DetachDispatch();
wordapp1.DetachDispatch();


inlineSpape.ReleaseDispatch();
inlineShapes.ReleaseDispatch();
sel1.ReleaseDispatch();
doc1.ReleaseDispatch();
docs1.ReleaseDispatch();
wordapp1.ReleaseDispatch();
}
catch (CException* e)
{
e->ReportError();
doc1.SaveAs(COleVariant(csFullPathB), vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss, vtMiss);
doc1.Close(vOpt,vOpt,vOpt);
wordapp1.Quit(vFalse, vTrue, vFalse);
inlineSpape.DetachDispatch();
inlineShapes.DetachDispatch();
sel1.DetachDispatch();
doc1.DetachDispatch();
docs1.DetachDispatch();
wordapp1.DetachDispatch();


inlineSpape.ReleaseDispatch();
inlineShapes.ReleaseDispatch();
sel1.ReleaseDispatch();
doc1.ReleaseDispatch();
docs1.ReleaseDispatch();
wordapp1.ReleaseDispatch();
}


//删除临时word、excel文件
HANDLE h;
HANDLE h1;
LPWIN32_FIND_DATA pFD = new WIN32_FIND_DATA;
LPWIN32_FIND_DATA pFD1 = new WIN32_FIND_DATA;
BOOL bFound = FALSE, bFound1 = FALSE;
if(pFD)
{
h=FindFirstFile(csFullPathB, pFD);
bFound = (h!=INVALID_HANDLE_VALUE);
if(bFound)
{
FindClose(h);
DeleteFile(csFullPathB);
}
delete pFD;
}
if(pFD1)
{
h1 = FindFirstFile(csFullPathA, pFD1);
bFound1 = (h1!=INVALID_HANDLE_VALUE);
if(bFound1)
{
FindClose(h1);
DeleteFile(csFullPathA);
}
delete pFD1;
}
return TRUE;
}