在VC中向word中插入图片，提示“类型不匹配”

2009-05-22 02:26:47 455 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VC++ COM自动化操作Word：高性能文档批量生成实战指南在办公自动化和数据处理领域，通过编程接口批量操作Word文档是提升效率的关键技术。其核心原理是通过组件对象模型（COM）与Word应用程序进行交互，实现对文档对象模型的全面控制。这项技术的价值在于能够将重复性文档处理任务自动化，尤其适用于需要高性能、深度集成或处理复杂格式的场景。在VC++环境下，开发者可以利用原生代码的优势，通过COM接口直接驱动Word，实现诸如批量报告生成、合同填充、数据导出等应用。本文聚焦于VC++通过COM操作Word的实战方法，详细解析了对象模型、书签操作、性能优化等核心环节，并阅读详情

我在VC中用代码打开word2007,并能插入文字，但是插入图片总是出错，提示“类型不匹配“，代码如下，请高手帮忙分析一下



	if (::CoInitialize(NULL) != 0)

	{

		AfxMessageBox("初始化COM失败");

		return;

	}	

	_Application app;

	app.CreateDispatch(_T("Word.Application"));

	app.SetVisible(TRUE);



	Documents docs = app.GetDocuments();

	CComVariant Template(_T("")); //不使用模板

	CComVariant NewTemplate(false), DocumentType(0),Visible;



	docs.Add(&Template,&NewTemplate,&DocumentType,&Visible);



	Selection sel=app.GetSelection();

	//调用函数Selection::TypeText 向WORD发送字符

	sel.TypeText(_T("HELLO\r\n大家好呀"));



	Range selRange = sel.GetRange();

	

	InlineShapes inlineShapes = sel.GetInlineShapes();



	CComVariant linktoFile(false),SaveWithDocument(false),range;	

 

	inlineShapes.AddPicture(_T("F:\\13.jpg"),&linktoFile,&SaveWithDocument,&range);

...全文

VC++通过COM自动化操作Word模板生成报表：原理、实现与性能优化在桌面应用开发中，报表生成是常见的需求，其核心在于将业务数据与文档格式进行有效结合。COM（组件对象模型）自动化技术为进程间通信提供了标准机制，使得外部程序能够驱动Office应用程序完成复杂操作。通过理解Word对象模型，开发者可以精准控制文档内容、格式与布局，实现业务逻辑与表现层的分离，从而提升开发效率与输出质量。这一技术方案特别适用于对格式还原度要求高、需要复用现有Word模板的场景，例如合同、报告等规范性文档的批量生成。本文以VC++为例，详细解析了如何利用书签机制进行数据填充，并针对表格处理、分页阅读详情

晒月光的青蛙

ATL 3,248 成员 48,530 内容

+ 关注 + 加入社区

切换为时间正序

mc185023238 2009-09-14

打赏
举报

我也正找这个呢！

晒月光的青蛙 2009-05-22

打赏
举报

ok，搞定了，谢谢各位的建议，散分

zhuzhenlei 2009-05-22

打赏
举报

换成bmp格式,要伪彩的

cxxstudy 2009-05-22

打赏
举报

顶一下，这个很有用

warsour 2009-05-22

打赏
举报

使用VC向word中插入图片
C/C++ code
#pragma warning(disable:4786)

#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL"
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "D:\Program Files\Microsoft Office\OFFICE11\msword.olb" rename("ExitWindows","WordExitWindows")// no_namespace

using namespace Word;
void CcsdndialogDlg::OnBnClickedButton4()
{
::CoInitialize(NULL);
Word::_ApplicationPtr m_WordPtr;
Word::_DocumentPtr m_DocPtr;
Word::InlineShapesPtr pInShapes;
Word::InlineShapePtr pInShape;
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("F:\\test.doc")),&vtMissing,
&vtMissing,&CComVariant(VARIANT_FALSE));

pInShapes=m_DocPtr->GetInlineShapes();

pInShape=pInShapes->AddPicture("d:\\1.BMP");
}
catch(_com_error *e)
{
MessageBox("haha","no word",MB_OK);
return ;
}
}

TianChong 2009-05-22

打赏
举报

最后一个变量的类型不匹配吧？),_variant_t转换一下再用，
另外，使用的图片格式会不会有要求，我下面的例子使用的是bmp格式的。你要可以试一下。我本机上是正常的。
Selection sel=app.GetSelection();
InlineShapes inlineshapes = sel.GetInlineShapes();
inlineshapes.AddPicture("F:\\13.bmp",COleVariant((short)FALSE),COleVariant((short)TRUE),&_variant_t(sel.GetRange()));
inlineshapes.ReleaseDispatch();
sel.ReleaseDispatch();

jameshooo 2009-05-22

打赏
举报

AddPicture最后一个参数从&range改成&vtMissing试试

在VC中向word中插入图片，提示“类型不匹配”

相关推荐