教程中国
PHOTOSHOP CS9.0中文版 MAYA 8.5 FOR WINDOWS Corel Painter v9.0 Flash MX2004 中文版 Illustrator cs2 中文版
VC++6.0含sp6 中英文版 VB6.0 +sp6 简体中文版 Borland Delphi 7汉化版 MSDN for vb6.0中文版 Visual Studio 2005简体
教程中国下属 文件存储共享专家BIBIDU.COM 提供大型软件,教材,源码,电影,音乐,图书等下载 更多精品请点此进入
  您目前所在位置: 教程中国 >> 编程基地 >> ASP >> iWebOffice2004调用VBA脚本解释及翻译 RSS订阅
iWebOffice2004调用VBA脚本解释及翻译
iWebOffice2004调用VBA脚本解释及翻译(5)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
         //如果是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++){
        var mValidString=webform.WebOffice.ActiveDocument.Shapes.Item(mIndex).AlternativeText;
        if ((mValidString!=null)&&(mValidString.length!=0)){
            if ((mValidString.indexOf("DBSTEP_2004")!=-1) && (mValidString.indexOf(webform.WebOffice.RecordID)!=-1)){
  SignatureString=SignatureString+"\r\n"+mValidString.substring(12,mValidString.length);

来源:upschool.cn
作者:
关键字:翻译
发表日期:2006-7-26

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇:Asp:base64编码、解码函数   下一篇:突破IIS的客户端连接限制


共13页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [138 :>

2009-1-8 23:02:18
本文的相类似文章
  • MSN新蠕虫学会自动翻译
  • 从Oracle到SQL Server-SQL智能翻译器
  • 河北一初三学生受聘杂志社特约英语翻译
  • 同济称生科院院长履历涉假纯属翻译错误
  • 北京翻译等高级职称评审提前
  • 港报:文学教育水平下降 中国翻译艺术走向衰落
  • 电子翻译随身带传统字典难得翻——专家提醒快餐式学习方法不足取
  • 西安翻译学院 虚假宣传惹怒教育部
  • 英语八级的大学生为何当不了合格翻译
  • 中国加入七国语言电话语音同声翻译计划
  • 在学习中进步 在进步中成长 教程中国相随您的成长之路
    华腾联合科技股份有限公司版权所有
    广告联系:Rosibo@163.com