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

                 mbookobject = webform.weboffice.activedocument.bookmarks.item(mbookidx).range;
   //设置为服务器数据
   mbookobject.text=mbookvalue;
   //重新设置为标签
                 webform.weboffice.activedocument.bookmarks.add(mbookname, mbookobject);
             }
         }
      }
    }
    statusmsg(webform.weboffice.status);
}

//设置标签的内容
function setbookmarks(vbmname,vbmvalue){
  //取得标签对象
  var mbookmarks=webfindbookmarks(vbmname);
  if (mbookmarks){
     //设置该标签的内容为新值
     mbookmarks.text=vbmvalue;
     //重新设置为标签
     webform.weboffice.activedocument.bookmarks.add(vbmname, mbookmarks);
  }
}

//取得标签内容
function getbookmarks(vbmname){
  var vbmvalue="";
  //取得标签对象
  var mbookmarks=webfindbookmarks(vbmname);
  if (mbookmarks){
     //取得内容
     vbmvalue=mbookmarks.text;
  }
  return vbmvalue;
}

//调用打印
function webopenprint(){
  try{
    //调用打印功能，true表示显示打印设置，false表示直接打印
    webform.weboffice.printout(true);
    statusmsg(webform.weboffice.status);
  }catch(e){}
}

//调用打印页面设置对话匡
function webopenpagesetup(){
   try{
 if (webform.weboffice.filetype==".doc"){
            //如果是word
     webform.weboffice.activedocument.application.dialogs(178).show();
 }else{
            //如果是excel
     webform.weboffice.activedocument.application.dialogs(7).show();
 }
   }catch(e){

   }

}
//调用打开图片对话框
function webopenpicture(){
   try{
 if (webform.weboffice.filetype==".doc"){
   //如果是word
   webform.weboffice.activedocument.application.dialogs(163).show();
 }else{
          //如果是excel
   webform.weboffice.activedocument.application.dialogs(342).show();
 }
   }catch(e){

   }
}

//电子印章功能
function webopensignature(){
  var mdialogurl = "signature/signatureform.asp";
  var mmarkname,mpassword,mmarktime;
  var mobject = new object();
      mobject.markname = "";
      mobject.password = "";
      window.showmodaldialog(mdialogurl, mobject, "dialogheight:200px; dialogwidth:360px;center:yes;scroll:no;status:no;");
  //判断用户是否选择印章名称和密码
  if (mobject.markname==""||mobject.password==null){
    statusmsg("取消印章");
    return false;
  }else{
     //取得系统文件目录
     var mfilepath=webform.weboffice.webmsgfilepath;
     var mimgshape=null;
     var mlabname=null;
     var mzorder=null;
     mmarkname=mobject.markname;
     mpassword=mobject.password;
     //清除所有设置的变量
     webform.weboffice.webmsgtextclear();
     //设置command 为 loadmarkimage
     webform.weboffice.websetmsgbyname("command","loadmarkimage");
     //设置印章名称
     webform.weboffice.websetmsgbyname("imagename",mmarkname);
     //设置印章密码
     webform.weboffice.websetmsgbyname("password",mpassword);
     //发送到服务器上
     webform.weboffice.websendmessage();
     //如果没有错误
     if (webform.weboffice.error==""){
       //取得服务器返回时间
       mmarktime=webform.weboffice.webgetmsgbyname("datetime");
       //取得印章所盖的位置，position所指的是标签的对象名
       mlabname=webform.weboffice.webgetmsgbyname("position");
       //设置印章的显示形式，4是在文字上方，5是在文字下方
       mzorder=webform.weboffice.webgetmsgbyname("zorder");
       //取得完整的印章图片名称