iWebOffice2004调用VBA脚本解释及翻译.doc

lt;script language=javascriptgt;　　//系统变量　　var vFileName=; //打开的文件名　　var vObject=null; //打开的对象　　var gFileName=; //文件名　　var gObject=null; //对象　　var gOpened=false; //是否被打开　　var gUserName=; //系统用户　　lt;/scriptgt;　　lt;script language=JScript for=Weboffice event=OnDocumentOpened(vFileName,vObject)gt;　　OnDocumentOpened(vFileName,vObject); //打开文件事件　　lt;/scriptgt;　　lt;script language=JScript for=WebOffice event=OnDocumentClosed()gt;　　OnDocumentClosed(); //关闭文件事件　　lt;/scriptgt;　　lt;script language=javascriptgt;　　//打开文档，根据用户权限（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 (mIdxgt;0){　　mType=mEdit.substring(0,mIdx);　　}　　mEdit=mEdit.substring(mIdx+1,mEdit.length);　　mIdx=mEdit.indexOf(,);　　if (mIdxgt;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 (mIdxgt;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 (mIdxgt;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 (mIdxgt;0){　　mType=mEdit.substring(0,mIdx);　　if (mType==1) mPrint=true;　　if (mType=