iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(5)   }else if(webform.WebOffice.FileType==".xls"){
   webform.WebOffice.CreateNew("Excel.Sheet");
  }else if(webform.WebOffice.FileType==".ppt"){
   webform.WebOffice.CreateNew("Powerpoint.Show");
  }else{
   webform.WebOffice.CreateNew("");
  }
 }
  }
  }catch(e){
  }
  //显示状态信息
  StatusMsg(webform.WebOffice.Status);
}

//页面退出事件
function UnLoad(){
  try{
     //关闭OCX控件
     webform.WebOffice.WebClose();
  }catch(e){}
}

//设置是否显示痕迹
function ShowRevision(vValue){
  var object=webform.WebOffice.ActiveDocument;
   object.ShowRevisions=vValue;
  if (vValue){
     StatusMsg("显示痕迹...");
  }else{
     StatusMsg("隐藏痕迹...");
  }
}

//调入文档
function LoadDocument(){
  StatusMsg("正在打开文档...");
  webform.WebOffice.WebOpen();
  StatusMsg(webform.WebOffice.Status);
}

//保存文档
function SaveDocument(){
  //判断状态
  if (webform.EditType.value=="0"){
     alert("你在查看状态，不能保存!");
     return false;
  }
  //保存文档
  webform.WebOffice.WebSave();
  //如果没有错误
  if (webform.WebOffice.Error!=""){
     StatusMsg(webform.WebOffice.Status);
     return false;
  }else{
     StatusMsg(webform.WebOffice.Status);
     return true;
  }
}

//打开版本信息
function WebOpenVersion(){
  var mDialogUrl = "Version/VersionList.ASP?RecordID="+webform.WebOffice.RecordID;