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

    if (webform.weboffice.error==""){
      alert("导出文本成功");
    }
    statusmsg(webform.weboffice.status);
}

//根据标签名称查找标签
function webfindbookmarks(mposition)
{
  var mbookobject,mbookname,mbookidx;
  if (webform.weboffice.filetype==".doc"){
         for (mbookidx = 1; mbookidx<=webform.weboffice.activedocument.bookmarks.count;mbookidx++){
             mbookname = webform.weboffice.activedocument.bookmarks.item(mbookidx).name;
             if (mbookname==mposition) {
                 mbookobject = webform.weboffice.activedocument.bookmarks.item(mbookidx).range;
                 break;
             }
         }
  }
  return (mbookobject);
}

//插入服务器图片
function webinsertimage(vlabname,vimgname,vtrans,vzorder)
{
    //取得文件目录
    var mfilepath=webform.weboffice.webmsgfilepath;
    var mimgshape=null;
    var mpassword=null;
    //清除所有设置变量
    webform.weboffice.webmsgtextclear();
    //设置command 为 insertimage 命令
    webform.weboffice.websetmsgbyname("command","insertimage");
    //设置要插入的图片名称
    webform.weboffice.websetmsgbyname("imagename",vimgname);
    //发送到服务器上
    webform.weboffice.websendmessage();
    //如果没有错误
    if (webform.weboffice.error==""){
       //将服务器返回的图片保存
       webform.weboffice.webmsgfilesave(mfilepath+vimgname);
       //如果没有错误
       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(vlabname);
           if (mbookmark){
              minlineshares=mbookmark.inlineshapes.addpicture(mfilepath+vimgname);
           }else{
              minlineshares=webform.weboffice.activedocument.application.selection.inlineshapes.addpicture(mfilepath+vimgname);
           } 
           //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=minlineshares.converttoshape();
          mimgshape.select();
          mimgshape.pictureformat.transparentbackground = vtrans;
          mimgshape.pictureformat.transparencycolor = 16777215;
          mimgshape.fill.visible = false;
          mimgshape.wrapformat.type = 3;
          mimgshape.zorder(vzorder);
        }
        //如果是excel文档