iWebOffice2004调用VBA脚本解释及翻译[2]

          //设置系统当前用户
          gobject.application.username=webform.weboffice.username;
 }
  }

  if (webform.weboffice.filetype==".xls"){
 if (mshow){
          if (mtrack){
              gobject.application.displaycommentindicator = 1;
   }
 }else{
          gobject.application.displaycommentindicator = 0;
 }

   gobject.commandbars('reviewing').enabled =mtools;
   gobject.commandbars('reviewing').visible =mtools;

  if (mprotect){
            for (var mindex=1;mindex<=gobject.application.activeworkbook.sheets.count;mindex++){
                var msheet=gobject.application.activeworkbook.sheets(mindex);
                msheet.protect("", true, true, true);
            }
 }

 if (gusername == "") {
          //保存原来的用户
          gusername=gobject.application.username;
          //设置系统当前用户
          gobject.application.username=webform.weboffice.username;
 }
  }
  //打开成功
  gopened = true;  
}

function ondocumentclosed()
{
  //关闭成功
  gopened = false;
}

//显示系统状态信息
function statusmsg(mstring){
  statusbar.innertext=mstring;
}

//页面装入事件
function load(){
  //给控件属性付值
  try{
  webform.weboffice.weburl="<%=mserverurl%>";
  webform.weboffice.recordid="<%=mrecordid%>";
  webform.weboffice.template="<%=mtemplate%>";
  webform.weboffice.filename="<%=mfilename%>";
  webform.weboffice.filetype="<%=mfiletype%>";
  webform.weboffice.edittype="<%=medittype%>";
  webform.weboffice.username="<%=musername%>";
  //打开文档，执行发送loadfile操作
  webform.weboffice.webopen();
  if (webform.weboffice.error!=""){
 //如果不成功,执行发送loadtemplate操作
 webform.weboffice.webloadtemplate();
 if (webform.weboffice.error!=""){
  //如果还没有成功，则根据扩展名创建新文档
  if (webform.weboffice.filetype==".doc"){
   webform.weboffice.createnew("word.document");
  }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;
  var mobject = new object();
      mobject.fileid = "";
      mobject.result = false;