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

      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 = "";
      mobject.result=false;
      window.showmodaldialog(mdialogurl, mobject, "dialogheight:200px; dialogwidth:360px;center:yes;scroll:no;status:no;");
      //如果用户确认选择
      if (mobject.result){
        //清除所有设置文本信息
        webform.weboffice.webmsgtextclear();
        //设置command为saveversion 
        webform.weboffice.websetmsgbyname("command","saveversion");
        //设置描述信息内容
        webform.weboffice.websetmsgbyname("descript",mobject.descript);
        //保存当前版本
        webform.weboffice.save(gfilename,true);
        //调入该文档
        webform.weboffice.webmsgfileload(gfilename);
        //发送到服务器上
        webform.weboffice.websendmessage();
        if (webform.weboffice.error!=""){
           alert(webform.weboffice.error);
       }
     }
     statusmsg(webform.weboffice.status);
}

//用数据库中的内容填充标签里的内容
function loadbookmarks(){
 var mcount,mindex;
 var mbookobject,mbookname,mbookidx;
    //清除所有设置变量信息
    webform.weboffice.webmsgtextclear();
    //设置command为loadbookmarks
    webform.weboffice.websetmsgbyname("command","loadbookmarks");
    //发送信息到服务器上
    webform.weboffice.websendmessage();
    //如果没有错误信息
    if (webform.weboffice.error==""){
      //如果是word文件  
      if (webform.weboffice.filetype==".doc"){
         //替换所有的标签内容
         for (mbookidx = 1; mbookidx<=webform.weboffice.activedocument.bookmarks.count;mbookidx++){
      //取出标签名
             mbookname = webform.weboffice.activedocument.bookmarks.item(mbookidx).name;
             //取出该标签对应的服务器上的数据
             mbookvalue = webform.weboffice.webgetmsgbyname(mbookname);
             //如果该数据有值 
             if ((mbookvalue)&&(mbookvalue.length>0)) {
   //取得标签对应的对象