iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(22)       alert("导入文本成功");
    }
    StatusMsg(webform.WebOffice.Status);
}

//导出所有文档文本给服务器
function WebEXPortText(){
    var mText=webform.WebOffice.ActiveDocument.Content.Text;
    webform.WebOffice.WebSetMsgByName("COMMAND","EXPORTTEXT");
    webform.WebOffice.WebSetMsgByName("CONTENT",mText);
    webform.WebOffice.WebSendMessage();
    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;