请问如何在Word中插入图片? 有没有人做过?我现在只能新建,然后写入一些文字。我想在程序里 往word 里面加入图片,怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有没有人做过?我现在只能新建,然后写入一些文字。我想在程序里 往word 里面加入图片,怎么做? 回复人:laiyiling(●CSDN●) ( 两星(中级)) 信誉:464 2005-10-10 08:34:00 得分:0? http://www.codeproject.com/com/ComExcelImages.asp 谢谢 MuseIn不过看那个代码好累,不会转转不成word插入图片的代码有谁能帮帮我?我现在有代码: //创建一个新的word文档 Documents oDocs; _Document oDoc; oDocs = oWordApp.GetDocuments(); oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt); //如果是word 98,则应该带两个参数,如oDocs.Add(vOpt, vOpt) //把文本添加到word文档 Selection oSel; oSel = oWordApp.GetSelection(); oSel.TypeText("one"); oSel.TypeParagraph(); oSel.TypeText("two"); oSel.TypeParagraph(); oSel.TypeText("three"); Range wdRange; wdRange = oDoc.Range(COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ), COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ) ); COleVariant VLeft, VTop, VWidth, VHeight, anchor; VLeft = wdRange.GetStart(); VTop = wdRange.GetStart(); VWidth = wdRange.GetEnd(); VHeight = wdRange.GetEnd(); LPDISPATCH linlineshapes = oSel.GetInlineShapes(); InlineShapes inlineshapes; inlineshapes.AttachDispatch(linlineshapes); VARIANT r; inlineshapes.AddPictureBullet("G:\\My Documents\\My Pictures\\无标题.bmp", &wdRange); //有错误!! //保存word文档 _Document oActiveDoc; oActiveDoc = oWordApp.GetActiveDocument(); oActiveDoc.SaveAs(COleVariant("c:\\doc1.doc"), COleVariant((short)0), vFalse, COleVariant(""), vTrue, COleVariant(""), vFalse, vFalse, vFalse, vFalse, vFalse); //退出word应用程序 oWordApp.Quit(vOpt, vOpt, vOpt); 请教:如何画一个坐标系呀! 请问DLL回调函数有时不能立即响应?怎解决呀!见代码? 如何截获所有异常 easy question,more you will Get!(来者有份)在线等候 vc下如何实现远程访问数据库 如何逐个指定多个控件的ID? 那位朋友介绍一下232的端口信号 如何编程得到当前登录用户的密码? 请大神们介绍一本关于visual c++和ado方面的书 急问:如何在VC下实现换肤(Skin)技术 一些库文件(如MFC71.dll)是否只需要直接拷贝到 system32目录下,而不需要注册? 基于UDP的socket通信问题
我现在只能新建,然后写入一些文字。
我想在程序里 往word 里面加入图片,怎么做?
回复人:laiyiling(●CSDN●) ( 两星(中级)) 信誉:464 2005-10-10 08:34:00 得分:0
?
http://www.codeproject.com/com/ComExcelImages.asp
不过看那个代码好累,不会转
转不成word插入图片的代码
有谁能帮帮我?
我现在有代码: //创建一个新的word文档
Documents oDocs;
_Document oDoc;
oDocs = oWordApp.GetDocuments();
oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt); //如果是word 98,则应该带两个参数,如oDocs.Add(vOpt, vOpt) //把文本添加到word文档
Selection oSel;
oSel = oWordApp.GetSelection();
oSel.TypeText("one");
oSel.TypeParagraph();
oSel.TypeText("two");
oSel.TypeParagraph();
oSel.TypeText("three"); Range wdRange;
wdRange = oDoc.Range(COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ),
COleVariant( (long)DISP_E_PARAMNOTFOUND, VT_ERROR ) ); COleVariant VLeft, VTop, VWidth, VHeight, anchor;
VLeft = wdRange.GetStart();
VTop = wdRange.GetStart();
VWidth = wdRange.GetEnd();
VHeight = wdRange.GetEnd(); LPDISPATCH linlineshapes = oSel.GetInlineShapes();
InlineShapes inlineshapes;
inlineshapes.AttachDispatch(linlineshapes); VARIANT r; inlineshapes.AddPictureBullet("G:\\My Documents\\My Pictures\\无标题.bmp", &wdRange); //有错误!!
//保存word文档
_Document oActiveDoc;
oActiveDoc = oWordApp.GetActiveDocument();
oActiveDoc.SaveAs(COleVariant("c:\\doc1.doc"),
COleVariant((short)0),
vFalse, COleVariant(""), vTrue, COleVariant(""),
vFalse, vFalse, vFalse, vFalse, vFalse);
//退出word应用程序
oWordApp.Quit(vOpt, vOpt, vOpt);