教程中国
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脚本解释及翻译(9)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
                 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文档
        if (webform.WebOffice.FileType==".xls"){
     webform.WebOffice.ActiveDocument.ActiveSheet.Pictures.Insert(mFilePath+vImgName).Select();
   mImgShape =webform.WebOffice.ActiveDocument.Application.Selection.ShapeRange;
          mImgShape.PictureFormat.TransparentBackground = vTrans;
          mImgShape.PictureFormat.TransparencyColor = 16777215;
          mImgShape.Fill.Visible = false;
          mImgShape.ZOrder(vZOrder);
        }
      } 
      //清除文件
      webform.WebOffice.WebMsgFileClear(mFilePath+vImgName);
    }
    StatusMsg(webform.WebOffice.Status+webform.WebOffice.Error);

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