使用从模板新建功能，如何在word中插入并显示图片；

lnzyquan

使用从模板新建功能，如何在word中插入并显示图片；图片为条码，可以由系统预先生成作为附件存储。

jishuang

参考http://bbs.justep.com/forum.php?mod=viewthread&tid=40883用宏插入图片
案例中的插入的是文本

lnzyquan

jishuang 发表于 2013-10-11 17:41
参考http://bbs.justep.com/forum.php?mod=viewthread&tid=40883用宏插入图片
案例中的插入的是文本 ...

我在word中写了如下一段宏代码，可以加载图片，请问，这段代码加到x5中可以吗？
Sub 宏1()

Dim shpCanvas As Shape

    'Add a drawing canvas to the active document
    Set shpCanvas = ActiveDocument.Shapes _
        .AddCanvas(Left:=100, Top:=75, _
        Width:=200, Height:=300)

    'Add a graphic to the drawing canvas
    shpCanvas.CanvasItems.AddPicture _
        FileName:="E:\Pic\IMG_5086.JPG", _
        LinkToFile:=False, SaveWithDocument:=True

End Sub

jishuang

网上查一下看标准的js中怎么操作X5中就怎么写

lnzyquan

jishuang 发表于 2013-10-12 14:49
网上查一下看标准的js中怎么操作X5中就怎么写

谢谢

lnzyquan

function officeAutomation() {
    var p = {
        "picUrl" :"http://www.baidu.com"
    };
    var func = function(param){
        var url = param.picUrl;
        var app = $OV('ov').Application;

        app.Selection.InlineShapes.AddPicture ("E:\Pic\IMG_5086.JPG");
    };
    var wordOcx = document.getElementById('attSendDoc_docExtObj');
    wordOcx.excuteJSmethod(new String(func), OV.JSON.stringify(p));
}