教程中国
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脚本解释及翻译(3)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
  //如果用户确认选择
  if (mObject.Result &&(mObject.FileID.length>0)){
     //清除所有设置文本信息
     webform.WebOffice.WebMsgTextClear();
     //设置COMMAND为LOADVERSION
     webform.WebOffice.WebSetMsgByName("COMMAND","LOADVERSION");
     //设置用户选择的版本编号
     webform.WebOffice.WebSetMsgByName("FILEID",mObject.FileID);
     //发送命令给服务器
     webform.WebOffice.WebSendMessage();
     //如果没有错误
     if (webform.WebOffice.Error==""){
       //关闭当前文档
       webform.WebOffice.Close();
       //保存新版本为系统文件名
       webform.WebOffice.WebMsgFileSave(gFileName);
       //如果保存成功
       if (webform.WebOffice.Error==""){
   //打开该版本文档,
          webform.WebOffice.Open(gFileName,true);
       } 
    }else{
       alert(webform.WebOffice.Error);
    }
  }else{
    StatusMsg("取消打开版本");
  }
  StatusMsg(webform.WebOffice.Status);
}

//保存版本信息
function WebSaveVersion(){
  var mDialogUrl = "Version/VersionForm.asp";
  var mObject = new Object();
      mObject.Descript = "";
      mObject.Result=false;
      window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");
      //如果用户确认选择
      if (mObject.Result){
        //清除所有设置文本信息
        webform.WebOffice.WebMsgTextClear();
        //设置COMMAND为SAVEVERSION 
        webform.WebOffice.WebSetMsgByName("COMMAND","SAVEVERSION");
        //设置描述信息内容
        webform.WebOffice.WebSetMsgByName("DESCRIPT",mObject.Descript);
        //保存当前版本
        webform.WebOffice.Save(gFileName,true);
        //调入该文档
        webform.WebOffice.WebMsgFileLoad(gFileName);
        //发送到服务器上
        webform.WebOffice.WebSendMessage();
        if (webform.WebOffice.Error!=""){
           alert(webform.WebOffice.Error);
       }
     }
     StatusMsg(webform.WebOffice.Status);
}

||||||//用数据库中的内容填充标签里的内容
function LoadBookmarks(){
 var mCount,mIndex;
 var mBookObject,mBookName,mBookIdx;
    //清除所有设置变量信息
    webform.WebOffice.WebMsgTextClear();
    //设置COMMAND为LOADBOOKMARKS
    webform.WebOffice.WebSetMsgByName("COMMAND","LOADBOOKMARKS");
    //发送信息到服务器上
    webform.WebOffice.WebSendMessage();
    //如果没有错误信息
    if (webform.WebOffice.Error==""){
      //如果是Word文件  
      if (webform.WebOffice.FileType==".doc"){
         //替换所有的标签内容
         for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){
      //取出标签名
             mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name;
             //取出该标签对应的服务器上的数据
             mBookValue = webform.WebOffice.WebGetMsgByName(mBookName);
             //如果该数据有值 
             if ((mBookValue)&&(mBookValue.length>0)) {
   //取得标签对应的对象
                 mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range;
   //设置为服务器数据
   mBookObject.Text=mBookValue;

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