教程中国
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脚本解释及翻译(4)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
   //重新设置为标签
                 webform.WebOffice.ActiveDocument.Bookmarks.Add(mBookName, mBookObject);
             }
         }
      }
    }
    StatusMsg(webform.WebOffice.Status);
}

//设置标签的内容
function SetBookmarks(vbmName,vbmValue){
  //取得标签对象
  var mBookmarks=WebFindBookmarks(vbmName);
  if (mBookmarks){
     //设置该标签的内容为新值
     mBookmarks.Text=vbmValue;
     //重新设置为标签
     webform.WebOffice.ActiveDocument.Bookmarks.Add(vbmName, mBookmarks);
  }
}

//取得标签内容
function GetBookmarks(vbmName){
  var vbmValue="";
  //取得标签对象
  var mBookmarks=WebFindBookmarks(vbmName);
  if (mBookmarks){
     //取得内容
     vbmValue=mBookmarks.Text;
  }
  return vbmValue;
}

//调用打印
function WebOpenPrint(){
  try{
    //调用打印功能,true表示显示打印设置,false表示直接打印
    webform.WebOffice.PrintOut(true);
    StatusMsg(webform.WebOffice.Status);
  }catch(e){}
}

//调用打印页面设置对话匡
function WebOpenPageSetup(){
   try{
 if (webform.WebOffice.FileType==".doc"){
            //如果是word
     webform.WebOffice.ActiveDocument.Application.Dialogs(178).Show();
 }else{
            //如果是Excel
     webform.WebOffice.ActiveDocument.Application.Dialogs(7).Show();
 }
   }catch(e){

   }

}
//调用打开图片对话框
function WebOpenPicture(){
   try{
 if (webform.WebOffice.FileType==".doc"){
   //如果是Word
   webform.WebOffice.ActiveDocument.Application.Dialogs(163).Show();
 }else{
          //如果是Excel
   webform.WebOffice.ActiveDocument.Application.Dialogs(342).Show();
 }
   }catch(e){

   }
}

//电子印章功能
function WebOpenSignature(){
  var mDialogUrl = "Signature/SignatureForm.asp";
  var mMarkName,mPassWord,mMarkTime;
  var mObject = new Object();
      mObject.MarkName = "";
      mObject.PassWord = "";
      window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");
  //判断用户是否选择印章名称和密码
  if (mObject.MarkName==""||mObject.PassWord==null){
    StatusMsg("取消印章");
    return false;
  }else{
     //取得系统文件目录
     var mFilePath=webform.WebOffice.WebMsgFilepath;
     var mImgShape=null;
     var mLabName=null;
     var mZOrder=null;
     mMarkName=mObject.MarkName;
     mPassWord=mObject.PassWord;
     //清除所有设置的变量
     webform.WebOffice.WebMsgTextClear();
     //设置COMMAND 为 LOADMARKIMAGE
     webform.WebOffice.WebSetMsgByName("COMMAND","LOADMARKIMAGE");
     //设置印章名称
     webform.WebOffice.WebSetMsgByName("IMAGENAME",mMarkName);
     //设置印章密码
     webform.WebOffice.WebSetMsgByName("PASSWORD",mPassWord);
     //发送到服务器上
     webform.WebOffice.WebSendMessage();
     //如果没有错误
     if (webform.WebOffice.Error==""){
       //取得服务器返回时间
       mMarkTime=webform.WebOffice.WebGetMsgByName("DATETIME");
       //取得印章所盖的位置,POSITION所指的是标签的对象名
       mLabName=webform.WebOffice.WebGetMsgByName("POSITION");
       //设置印章的显示形式,4是在文字上方,5是在文字下方
       mZOrder=webform.WebOffice.WebGetMsgByName("ZORDER");
       //取得完整的印章图片名称
       var mFileName=webform.WebOffice.WebGetMsgByName("IMAGENAME");
       //保存该印章
       webform.WebOffice.WebMsgFileSave(mFilePath+mFileNam

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