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

[入库:2005年8月18日] [更新:2007年3月25日]

本文简介:选择自 csdnhome 的 blog

       var mfilename=webform.weboffice.webgetmsgbyname("imagename");
       //保存该印章
       webform.weboffice.webmsgfilesave(mfilepath+mfilename);
       //如果一切正常
       if (webform.weboffice.error==""){
         //如果是word文件
         if (webform.weboffice.filetype==".doc"){
           var minlineshapes=null; //=webform.weboffice.activedocument.inlineshapes.count;
           //var mshapes=webform.weboffice.activedocument.shapes.count;
           var mbookmark=webfindbookmarks(mlabname);
           if (mbookmark){
              minlineshapes=mbookmark.inlineshapes.addpicture(mfilepath+mfilename);
           }else{
              minlineshapes=webform.weboffice.activedocument.application.selection.inlineshapes.addpicture(mfilepath+mfilename);
           } 

           //if (minlineshapes!=webform.weboffice.activedocument.inlineshapes.count){
           //   mimgshape = webform.weboffice.activedocument.inlineshapes.item(webform.weboffice.activedocument.inlineshapes.count).converttoshape();
           //}
           //if (mshapes!=webform.weboffice.activedocument.shapes.count){
           //   mimgshape = webform.weboffice.activedocument.shapes.item(webform.weboffice.activedocument.shapes.count);
           //}
          
          mimgshape = minlineshapes.converttoshape();
          mimgshape.select();
          mimgshape.alternativetext="dbstep_2004=印章名称:["+mmarkname+"] 用户名称:["+webform.weboffice.username+"] 盖章时间[:"+mmarktime+"] 印章编号:["+webform.weboffice.recordid+"]";
          mimgshape.pictureformat.transparentbackground = true;
          mimgshape.pictureformat.transparencycolor = 16777215;
          mimgshape.fill.visible = false;
          mimgshape.wrapformat.type = 3;
          mimgshape.zorder(mzorder);
        }
        //如果是excel文件
        if (webform.weboffice.filetype==".xls"){
     webform.weboffice.activedocument.activesheet.pictures.insert(mfilepath+mfilename).select();
   mimgshape =webform.weboffice.activedocument.application.selection.shaperange;
          mimgshape.alternativetext="dbstep_2004=印章名称:["+mmarkname+"] 用户名称:["+webform.weboffice.username+"] 盖章时间[:"+mmarktime+"] 印章编号:["+webform.weboffice.recordid+"]";
          mimgshape.pictureformat.transparentbackground = true;
          mimgshape.pictureformat.transparencycolor = 16777215;
          mimgshape.fill.visible = false;
          mimgshape.zorder(mzorder);
        }
       } 
       //清除印章文件
       webform.weboffice.webmsgfileclear(mfilepath+mfilename);
    }
    statusmsg(webform.weboffice.error);
  }
}

//显示印章信息
function webshowsignature(){
  var signaturestring="";
  try{
    //如果是word文件
    if (webform.weboffice.filetype==".doc"){
      for (var mindex=1;mindex<=webform.weboffice.activedocument.shapes.count;mindex++){

本文关键:Office VBA 痕迹保留 手写签名 电子印章
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top