请问如何在Word中插入图片？

Question

有没有人做过？
我现在只能新建，然后写入一些文字。
我想在程序里 往word 里面加入图片，怎么做？

Answer 1

有没有人做过？
我现在只能新建，然后写入一些文字。
我想在程序里 往word 里面加入图片，怎么做？
回复人：laiyiling(●CSDN●) ( 两星(中级)) 信誉：464  2005-10-10 08:34:00  得分:0
? 
http://www.codeproject.com/com/ComExcelImages.asp

Answer 2

谢谢 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);