在32位WIN7 VS环境下测试通过，在64位WIN7 VS环境下GlobalLock和GlobalSize函数返回NULL，具体参见注释
// 读取给定文件名的Doc文档中的数据BOOL CWordOperator::ReadInDataFromDoc(CString strFileName){// 读取Config文件，获得需要读取的单元格坐标LoadConfig();// COM相关变量COleVariant vTrue((short)TRUE);COleVariant vFalse((short)FALSE);COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);// Word相关变量CApplication wordApp; // 在对象继承结构中是最顶层的对象，可以通过它的方法访问别的工作类型的对象（本例主要是word）CDocuments docs; // 代表所有打开的文档对象CDocument0 doc; // 单一文件CSelection selection; // 选择区域CRange rangeWord; // 文档区域CTables0 tables; // 所有表格CTable0 table;// 单一表格CCell cell; // 单元格CnlineShapes shapes; // 图片集合CnlineShape shape;// 图片// 启动Word程序if (!wordApp.CreateDispatch(_T("word.application"))) // 启动Word{AfxMessageBox(_T("无法启动Word"));return FALSE;}// 设置Word不可见wordApp.put_Visible(FALSE);// 打开指定Docdocs = wordApp.get_Documents();doc = docs.Open(COleVariant(strFileName), vFalse, vTrue, vFalse, vOpt, vOpt,vOpt, vOpt, vOpt, vOpt, vOpt, vOpt, vOpt, vOpt, vOpt, vOpt);if (!doc) // 打开失败{AfxMessageBox(_T("无法打开文件"));return FALSE;}// 获得选择焦点selection = wordApp.get_Selection();// 获得表格tables = doc.get_Tables();table = tables.Item(1); // 索引从1开始// 根据XML中定义的节点中的行列进行读取// for each (DocCellData data in m_lstDocDatas)for (std::list<DocCellData>::iterator it = m_lstDocDatas.begin();it != m_lstDocDatas.end(); it++){DocCellData& data = *it;// 根据节点中设定的行列获得单元格cell = table.Cell(data.nRowIndex, data.nColIndex);if (!cell) // 错误提示{CString strErr;strErr.Format(_T("%s指定的%d行%d列的单元格不存在"), data.strXMLName,&data.nRowIndex, &data.nColIndex);AfxMessageBox(strErr);break;}// 取得单元格内容rangeWord = cell.get_Range();// 判断类型switch (data.type){case TextType: // 文本类型data.strValue = rangeWord.get_Text();//OpenClipboard(NULL);//// 清除剪切板内容//EmptyClipboard();//// 不关闭则复制操作不起作用，无法复制到剪切板里//CloseClipboard();//rangeWord.Copy();//OpenClipboard(NULL);//if (true)//{// HGLOBAL hClipBoard = ::GetClipboardData(CF_TEXT);// void* pMem = ::GlobalLock(hClipBoard);// n = GlobalSize(hClipBoard);// CString str((char*)pMem);//}break;case PicType: // 图片类型// 取得所有图片集合shapes = rangeWord.get_InlineShapes();if (shapes.get_Count()) // 存在图片{// 利用剪切板获得图片// 取得第一张图shape = shapes.Item(1);shape.Select();// 复制到剪切板selection = wordApp.get_Selection();// 打开剪切板(占用状态，此时进行复制粘贴等操作将无效果)::OpenClipboard(NULL);// 清除剪切板内容::EmptyClipboard();// 不关闭则复制操作不起作用，无法复制到剪切板里::CloseClipboard();selection.CopyAsPicture();// 32位WIN7下VS可以运行// 打开剪切板，并且剪切板里存在图片// if (::IsClipboardFormatAvailable(CF_DIB) &&// ::OpenClipboard(NULL))// {// // 取得剪切板中的图片数据// HGLOBAL hClipBoard = ::GetClipboardData(CF_DIB);// // 锁定内存位置吗，以防系统将内存页移位// LPVOID pMem = ::GlobalLock(hClipBoard);// // // 如果存在图片，则进行复制// if (pMem)// {// // 取得位图大小// data.nPicSize = ::GlobalSize(hClipBoard);// // 复制到结构中// data.pBmp = new BYTE[data.nPicSize];// memcpy(data.pBmp, pMem, data.nPicSize);// // 解锁内存// ::GlobalUnlock(hClipBoard);// }// else// {// data.nPicSize = 0;// }// //关闭剪贴板，释放剪贴板资源的占用权// ::CloseClipboard();// }// 64位WIN7下VS可以运行if (::IsClipboardFormatAvailable(CF_ENHMETAFILE) &&::OpenClipboard(NULL)){// 首先生成EMF图片文件并存储CString strTempBmp(GetAppPath());strTempBmp += EMFFILENAME; // 指定存储路径HANDLE hClipBoard = ::GetClipboardData(CF_ENHMETAFILE); // 从剪切板读取EMF格式内容(其它格式读不出来)HENHMETAFILE hTempBmp =::CopyEnhMetaFile((HENHMETAFILE)hClipBoard, strTempBmp); // 存成文件// 关闭剪切板，释放剪贴板资源的占用权::CloseClipboard();if (hTempBmp) // 图片存在{// 释放内存DeleteEnhMetaFile(hTempBmp);// 读入内存CFile emfFile(strTempBmp, CFile::modeRead); // 取得emf文件data.nPicSize = emfFile.GetLength(); // 取得文件大小(再加一)data.pBmp = new BYTE[data.nPicSize + 1]; // 分配内存emfFile.Read(data.pBmp, data.nPicSize); // 读入data.pBmp[data.nPicSize] = 0; // 将最后一位置为结束位emfFile.Close(); // 关闭emf文件emfFile.Remove(strTempBmp); // 删除emf文件// 打开剪切板(占用状态，此时进行复制粘贴等操作将无效果)::OpenClipboard(NULL);// 清除剪切板内容::EmptyClipboard();// 不关闭则复制操作不起作用，无法复制到剪切板里::CloseClipboard();}}}break;default:break;}}// 关闭文档doc.Close(vFalse, vOpt, vOpt);// 退出WordwordApp.Quit(vFalse, vOpt, vOpt);return TRUE;}
// 根据数据生成Doc文档BOOL CWordOperator::WriteOutDocByData(CString strFileName){// COM相关变量COleVariant vTrue((short)TRUE);COleVariant vFalse((short)FALSE);COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);// Word相关变量CApplication wordApp; // 在对象继承结构中是最顶层的对象，可以通过它的方法访问别的工作类型的对象（本例主要是word）CDocuments docs; // 代表所有打开的文档对象CDocument0 doc; // 单一文件CSelection selection; // 选择区域CRange rangeWord; // 文档区域CTables0 tables; // 所有表格CTable0 table;// 单一表格CCell cell; // 单元格CnlineShapes shapes; // 图片集合CnlineShape shape;// 图片// 启动Word程序if (!wordApp.CreateDispatch(_T("word.application"))) // 启动Word{AfxMessageBox(_T("无法启动Word"));return FALSE;}// 设置Word不可见wordApp.put_Visible(TRUE);// 打开指定Docdocs = wordApp.get_Documents();CComVariant Template("");CComVariant NewTemplate(false), DocumentType(0), Visible;docs.Add(&Template, &NewTemplate, &DocumentType, &Visible);doc = docs.Item(&CComVariant(1));if (!doc) // 打开失败{AfxMessageBox(_T("无法创建文件"));return FALSE;}// 获得选择焦点selection = wordApp.get_Selection();rangeWord = selection.get_Range();// 获得表格tables = doc.get_Tables();tables.Add(rangeWord, 10, 10, vOpt, vOpt);table = tables.Item(1); // 索引从1开始// 根据节点中设定的行列获得单元格cell = table.Cell(1, 1);// 根据XML中定义的节点中的行列进行读取for each (DocCellData data in m_lstDocDatas){// 取得单元格内容rangeWord = cell.get_Range();cell.Select();// 判断类型switch (data.type){case TextType: // 文本类型rangeWord.put_Text(data.strValue);break;case PicType: // 图片类型// 64位WIN7下VS调试通过if (TRUE) // 跳过switch的语法检查{// 先存成文件CString strTempBmpFileName(GetAppPath());strTempBmpFileName += EMFFILENAME; // 生成路径// 创建emf文件CFile emfFile(strTempBmpFileName,CFile::modeCreate | CFile::modeReadWrite);emfFile.Write(data.pBmp, data.nPicSize); // 写入位图emfFile.Close(); // 关闭文件// 将图片插入到文档rangeWord.Select();shapes = selection.get_InlineShapes(); // 得到图片集合// 插入emf图片shapes.AddPicture(strTempBmpFileName, vFalse, vTrue,&_variant_t(rangeWord));// 删除emf文件emfFile.Remove(strTempBmpFileName);}// 32位WIN7下VS调试通过//// 打开剪切板(占用状态，此时进行复制粘贴等操作将无效果)//::OpenClipboard(NULL);//// 清除剪切板内容//::EmptyClipboard();//// 不关闭则复制操作不起作用，无法复制到剪切板里//::CloseClipboard();// //if (::OpenClipboard(NULL))//{// // 申请全局内存来存放BMP，以便交给剪切板// HGLOBAL hClipBoard = ::GlobalAlloc(GMEM_MOVEABLE, data.nPicSize);// // 锁定内存地址// LPVOID pMem = ::GlobalLock(hClipBoard);// // 复制位图// memcpy(pMem, data.pBmp, data.nPicSize);// // 解锁内存// ::GlobalUnlock(hClipBoard);// // 将位图设置到剪切板中// ::SetClipboardData(CF_DIB, hClipBoard);// // 关闭剪切板// ::CloseClipboard();// rangeWord.Paste();// rangeWord.Paste();//}////关闭剪贴板，释放剪贴板资源的占用权//::CloseClipboard();break;default:break;}cell = cell.get_Next();}// 保存文档doc.Save();// 关闭文档doc.Close(vTrue, vOpt, vOpt);// 退出WordwordApp.Quit(vTrue, vOpt, vOpt);return TRUE;}
