教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

 

iWebOffice2004 是一个实现痕迹保留、手写签名、电子印章的插件，已经被100多个

单位使用，将其调用部分Office VBA代码整理如下：

来自 http://www.goldgrid.com

<script language=javascript>
//系统变量
var vFileName=""; //打开的文件名
var vObject=null; //打开的对象
var gFileName=""; //文件名
var gObject=null; //对象
var gOpened=false; //是否被打开
var gUserName=""; //系统用户
</script>

<script language="JScript" for=WebOffice event="OnDocumentOpened(vFileName,vObject)">
 OnDocumentOpened(vFileName,vObject); //打开文件事件
</script>

<script language="JScript" for=WebOffice event="OnDocumentClosed()">
 OnDocumentClosed();   //关闭文件事件
</script>

<script language=javascript>
//打开文档，根据用户权限（EditType），进行初始化设置
function OnDocumentOpened(vFileName,vObject) 
{
  var mProtect,mTools,mTrack,mPrint,mShow;
  gFileName=vFileName;    //取得全局文件名
  gObject=vObject;    //取得全局对象
  //设置痕迹和保护状态
  if (webform.WebOffice.EditType=="0"){
 mProtect=true;
 mTools=false;
 mTrack=false;
 mPrint=false;
 mShow=true;
  }else if(webform.WebOffice.EditType=="1"){
 mProtect=false;
 mTools=false;
 mTrack=false;
 mPrint=false;
 mShow=false;  
  }else if(webform.WebOffice.EditType=="2"){
 mProtect=false;
 mTools=false;
 mTrack=true;
 mPrint=true;
 mShow=true;
  }else if(webform.WebOffice.EditType=="3"){
 mProtect=false;
 mTools=true;
 mTrack=true;
 mPrint=true;
 mShow=true;
  }else{
 var mType="";
 var mEdit=webform.WebOffice.EditType;
 var mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
 }
 mEdit=mEdit.substring(mIdx+1,mEdit.length);

 mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
     if (mType=="1") mProtect=true;
     if (mType=="0") mProtect=false;
 }
 mEdit=mEdit.substring(mIdx+1,mEdit.length);

 var mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
     if (mType=="1") mShow=true;
     if (mType=="0") mShow=false;
 }
 mEdit=mEdit.substring(mIdx+1,mEdit.length);

 var mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
     if (mType=="1") mTrack=true;
     if (mType=="0") mTrack=false;
 }
 mEdit=mEdit.substring(mIdx+1,mEdit.length);  

    var mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
     if (mType=="1") mPrint=true;
     if (mType=="0") mPrint=false;
 }
 mEdit=mEdit.substring(mIdx+1,mEdit.length);  
 
    var mIdx=mEdit.indexOf(",");
 if (mIdx>0){
     mType=mEdit.substring(0,mIdx);
     if (mType=="1") mTools=true;
     if (mType=="0") mTools=false;
 }
 
  }

  if (webform.WebOffice.FileType==".doc"){
   gObject.TrackRevisions=mTrack;
  gObject.PrintRevisions=mPrint;
   gObject.ShowRevisions=mShow;

   gObject.CommandBars('Reviewing').Enabled =mTools;
   gObject.CommandBars('Reviewing').Visible =mTools;

   var mCount=gObject.CommandBars('Track Changes').Controls.Count;
         for (var mIndex = 1; mIndex<= mCount; mIndex++){
           var mCurID=gObject.CommandBars('Track Changes').Controls(mIndex).ID;
           if ((mCurID==1715) || (mCurID==1716) || (mCurID==2041) || (mCurID==305)) {
              gObject.CommandBars('Track Changes').Controls(mIndex).Enabled = mTools;
           }
         }
 if (mProtect){
    gObject.Protect(2);
 }
 if (gUserName == "") {
          //保存原来的用户
          gUserName=gObject.Application.UserName;
          //设置系统当前用户

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

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

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

2008-11-21 20:32:19

本文的相类似文章

MSN新蠕虫学会自动翻译 从Oracle到SQL Server-SQL智能翻译器 河北一初三学生受聘杂志社特约英语翻译 同济称生科院院长履历涉假纯属翻译错误 北京翻译等高级职称评审提前 港报：文学教育水平下降 中国翻译艺术走向衰落 电子翻译随身带传统字典难得翻——专家提醒快餐式学习方法不足取 西安翻译学院　虚假宣传惹怒教育部 英语八级的大学生为何当不了合格翻译 中国加入七国语言电话语音同声翻译计划