iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(23)     var mImgShape=null;
    var mPassWord=null;
    //清除所有设置变量
    webform.WebOffice.WebMsgTextClear();
    //设置COMMAND 为 INSERTIMAGE 命令
    webform.WebOffice.WebSetMsgByName("COMMAND","INSERTIMAGE");
    //设置要插入的图片名称
    webform.WebOffice.WebSetMsgByName("IMAGENAME",vImgName);
    //发送到服务器上
    webform.WebOffice.WebSendMessage();
    //如果没有错误
    if (webform.WebOffice.Error==""){
       //将服务器返回的图片保存
       webform.WebOffice.WebMsgFileSave(mFilePath+vImgName);
       //如果没有错误
       if (webform.WebOffice.Error==""){
         //如果是Word文档
         if (webform.WebOffice.FileType==".doc"){
           var mInlineShapes=null;  //=webform.WebOffice.ActiveDocument.InlineShapes.Count;
           //var mShapes=webform.WebOffice.ActiveDocument.Shapes.Count;
           var mBookMark=WebFindBookmarks(vLabName);
           if (mBookMark){
              mInlineShares=mBookMark.InlineShapes.AddPicture(mFilePath+vImgName);
           }else{
              mInlineShares=webform.WebOffice.ActiveDocument.Application.Selection.InlineShapes.AddPicture(mFilePath+vImgName);