iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(25)           mImgShape.PictureFormat.TransparentBackground = vTrans;
          mImgShape.PictureFormat.TransparencyColor = 16777215;
          mImgShape.Fill.Visible = false;
          mImgShape.ZOrder(vZOrder);
        }
      } 
      //清除文件
      webform.WebOffice.WebMsgFileClear(mFilePath+vImgName);
    }
    StatusMsg(webform.WebOffice.Status+webform.WebOffice.Error);
}

//套用模版定稿
function WebInsertFile()
{
  //var mDialogUrl = "Version/VersionList.ASP?RecordID="+webform.WebOffice.RecordID;
  //var mObject = new Object();
  //    mObject.FileID = "";
  //    mObject.Result = false;
  //    window.showModalDialog(mDialogUrl, mObject, "dialogHeight:280px; dialogWidth:420px;center:yes;scroll:no;status:no;");
  //if (mObject.Result){
     //取得目录名称
     var mFilePath=webform.WebOffice.WebMsgFilepath;
     //取得文件类型
     var mFileName=webform.WebOffice.RecordID+webform.WebOffice.FileType;
     var mBookRange;
     //保存当前文件
     webform.WebOffice.Save(mFilePath+mFileName,true);
     //如果没有问题
     if (webform.WebOffice.Error==""){
       //清除所有设置变量
       webform.WebOffice.WebMsgTextClear();
       //设置COMMAND为INSERTFILE
       webform.WebOffice.WebSetMsgByName("COMMAND","INSERTFILE");