iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(6)   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 &&(mObject.FileID.length>0)){
     //清除所有设置文本信息
     webform.WebOffice.WebMsgTextClear();
     //设置COMMAND为LOADVERSION
     webform.WebOffice.WebSetMsgByName("COMMAND","LOADVERSION");
     //设置用户选择的版本编号
     webform.WebOffice.WebSetMsgByName("FILEID",mObject.FileID);
     //发送命令给服务器
     webform.WebOffice.WebSendMessage();
     //如果没有错误
     if (webform.WebOffice.Error==""){
       //关闭当前文档
       webform.WebOffice.Close();
       //保存新版本为系统文件名
       webform.WebOffice.WebMsgFileSave(gFileName);
       //如果保存成功
       if (webform.WebOffice.Error==""){
   //打开该版本文档，
          webform.WebOffice.Open(gFileName,true);
       } 
    }else{
       alert(webform.WebOffice.Error);
    }
  }else{
    StatusMsg("取消打开版本");
  }
  StatusMsg(webform.WebOffice.Status);
}

//保存版本信息
function WebSaveVersion(){
  var mDialogUrl = "Version/VersionForm.ASP";
  var mObject = new Object();
      mObject.Descript = "";