操作 WebOffice.ocx 代码集合

标签：lis   模版文件   dal   文件名   adf   tty   ==   try   返回   

1. Java代码  

   1. 将其调用部分Office VBA代码整理如下：  
   2. 来自 http://www.goldgrid.com  
   3. <script language=javascript>  
   4. //系统变量  
   5. var vFileName=""; //打开的文件名  
   6. var vObject=null; //打开的对象  
   7. var gFileName=""; //文件名  
   8. var gObject=null; //对象  
   9. var gOpened=false; //是否被打开  
   10. var gUserName=""; //系统用户  
   11. </script>  
   12.   
   13. <script language="JScript" for=WebOffice event="OnDocumentOpened(vFileName,vObject)">  
   14.  OnDocumentOpened(vFileName,vObject); //打开文件事件  
   15. </script>  
   16. <script language="JScript" for=WebOffice event="OnDocumentClosed()">  
   17.  OnDocumentClosed();   //关闭文件事件  
   18. </script>  
   19. <script language=javascript>  
   20. //打开文档，根据用户权限（EditType），进行初始化设置  
   21. function OnDocumentOpened(vFileName,vObject)   
   22. {  
   23.   var mProtect,mTools,mTrack,mPrint,mShow;  
   24.   gFileName=vFileName;    //取得全局文件名  
   25.   gObject=vObject;    //取得全局对象  
   26.   //设置痕迹和保护状态  
   27.   if (webform.WebOffice.EditType=="0"){  
   28.  mProtect=true;  
   29.  mTools=false;  
   30.  mTrack=false;  
   31.  mPrint=false;  
   32.  mShow=true;  
   33.   }else if(webform.WebOffice.EditType=="1"){  
   34.  mProtect=false;  
   35.  mTools=false;  
   36.  mTrack=false;  
   37.  mPrint=false;  
   38.  mShow=false;     
   39.   }else if(webform.WebOffice.EditType=="2"){  
   40.  mProtect=false;  
   41.  mTools=false;  
   42.  mTrack=true;  
   43.  mPrint=true;  
   44.  mShow=true;  
   45.   }else if(webform.WebOffice.EditType=="3"){  
   46.  mProtect=false;  
   47.  mTools=true;  
   48.  mTrack=true;  
   49.  mPrint=true;  
   50.  mShow=true;  
   51.   }else{  
   52.  var mType="";  
   53.  var mEdit=webform.WebOffice.EditType;  
   54.  var mIdx=mEdit.indexOf(",");  
   55.  if (mIdx>0){  
   56.      mType=mEdit.substring(0,mIdx);  
   57.  }  
   58.  mEdit=mEdit.substring(mIdx+1,mEdit.length);  
   59.  mIdx=mEdit.indexOf(",");  
   60.  if (mIdx>0){  
   61.      mType=mEdit.substring(0,mIdx);  
   62.      if (mType=="1") mProtect=true;  
   63.      if (mType=="0") mProtect=false;  
   64.  }  
   65.  mEdit=mEdit.substring(mIdx+1,mEdit.length);  
   66.  var mIdx=mEdit.indexOf(",");  
   67.  if (mIdx>0){  
   68.      mType=mEdit.substring(0,mIdx);  
   69.      if (mType=="1") mShow=true;  
   70.      if (mType=="0") mShow=false;  
   71.  }  
   72.  mEdit=mEdit.substring(mIdx+1,mEdit.length);  
   73.  var mIdx=mEdit.indexOf(",");  
   74.  if (mIdx>0){  
   75.      mType=mEdit.substring(0,mIdx);  
   76.      if (mType=="1") mTrack=true;  
   77.      if (mType=="0") mTrack=false;  
   78.  }  
   79.  mEdit=mEdit.substring(mIdx+1,mEdit.length);    
   80.     var mIdx=mEdit.indexOf(",");  
   81.  if (mIdx>0){  
   82.      mType=mEdit.substring(0,mIdx);  
   83.      if (mType=="1") mPrint=true;  
   84.      if (mType=="0") mPrint=false;  
   85.  }  
   86.  mEdit=mEdit.substring(mIdx+1,mEdit.length);     
   87.    
   88.     var mIdx=mEdit.indexOf(",");  
   89.  if (mIdx>0){  
   90.      mType=mEdit.substring(0,mIdx);  
   91.      if (mType=="1") mTools=true;  
   92.      if (mType=="0") mTools=false;  
   93.  }  
   94.    
   95.   }  
   96.   if (webform.WebOffice.FileType==".doc"){  
   97.    gObject.TrackRevisions=mTrack;  
   98.   gObject.PrintRevisions=mPrint;  
   99.    gObject.ShowRevisions=mShow;  
   100.    gObject.CommandBars(‘Reviewing‘).Enabled =mTools;  
   101.    gObject.CommandBars(‘Reviewing‘).Visible =mTools;  
   102.    var mCount=gObject.CommandBars(‘Track Changes‘).Controls.Count;  
   103.          for (var mIndex = 1; mIndex<= mCount; mIndex++){  
   104.            var mCurID=gObject.CommandBars(‘Track Changes‘).Controls(mIndex).ID;  
   105.            if ((mCurID==1715) || (mCurID==1716) || (mCurID==2041) || (mCurID==305)) {  
   106.               gObject.CommandBars(‘Track Changes‘).Controls(mIndex).Enabled = mTools;  
   107.            }  
   108.          }  
   109.  if (mProtect){  
   110.     gObject.Protect(2);  
   111.  }  
   112.  if (gUserName == "") {  
   113.           //保存原来的用户  
   114.           gUserName=gObject.Application.UserName;  
   115.           //设置系统当前用户  
   116.           gObject.Application.UserName=webform.WebOffice.UserName;  
   117.  }  
   118.   }  
   119.   
   120.   if (webform.WebOffice.FileType==".xls"){  
   121.  if (mShow){  
   122.           if (mTrack){  
   123.               gObject.Application.DisplayCommentIndicator = 1;  
   124.    }  
   125.  }else{  
   126.           gObject.Application.DisplayCommentIndicator = 0;  
   127.  }  
   128.    gObject.CommandBars(‘Reviewing‘).Enabled =mTools;  
   129.    gObject.CommandBars(‘Reviewing‘).Visible =mTools;  
   130.   if (mProtect){  
   131.             for (var mIndex=1;mIndex<=gObject.Application.ActiveWorkbook.Sheets.Count;mIndex++){  
   132.                 var mSheet=gObject.Application.ActiveWorkbook.Sheets(mIndex);  
   133.                 mSheet.Protect("", true, true, true);  
   134.             }  
   135.  }  
   136.  if (gUserName == "") {  
   137.           //保存原来的用户  
   138.           gUserName=gObject.Application.UserName;  
   139.           //设置系统当前用户  
   140.           gObject.Application.UserName=webform.WebOffice.UserName;  
   141.  }  
   142.   }  
   143.   //打开成功  
   144.   gOpened = true;    
   145. }  
   146. function OnDocumentClosed()  
   147. {  
   148.   //关闭成功  
   149.   gOpened = false;  
   150. }  
   151. //显示系统状态信息  
   152. function StatusMsg(mString){  
   153.   StatusBar.innerText=mString;  
   154. }  
   155. //页面装入事件  
   156. function Load(){  
   157.   //给控件属性付值  
   158.   try{  
   159.   webform.WebOffice.WebUrl="<%=mServerUrl%>";  
   160.   webform.WebOffice.RecordID="<%=mRecordID%>";  
   161.   webform.WebOffice.Template="<%=mTemplate%>";  
   162.   webform.WebOffice.FileName="<%=mFileName%>";  
   163.   webform.WebOffice.FileType="<%=mFileType%>";  
   164.   webform.WebOffice.EditType="<%=mEditType%>";  
   165.   webform.WebOffice.UserName="<%=mUserName%>";  
   166.   //打开文档，执行发送LOADFILE操作  
   167.   webform.WebOffice.WebOpen();  
   168.   if (webform.WebOffice.Error!=""){  
   169.  //如果不成功,执行发送LOADTEMPLATE操作  
   170.  webform.WebOffice.WebLoadTemplate();  
   171.  if (webform.WebOffice.Error!=""){  
   172.   //如果还没有成功，则根据扩展名创建新文档  
   173.   if (webform.WebOffice.FileType==".doc"){  
   174.    webform.WebOffice.CreateNew("Word.Document");  
   175.   }else if(webform.WebOffice.FileType==".xls"){  
   176.    webform.WebOffice.CreateNew("Excel.Sheet");  
   177.   }else if(webform.WebOffice.FileType==".ppt"){  
   178.    webform.WebOffice.CreateNew("PowerPoint.Show");  
   179.   }else{  
   180.    webform.WebOffice.CreateNew("");  
   181.   }  
   182.  }  
   183.   }  
   184.   }catch(e){  
   185.   }  
   186.   //显示状态信息  
   187.   StatusMsg(webform.WebOffice.Status);  
   188. }  
   189. //页面退出事件  
   190. function UnLoad(){  
   191.   try{  
   192.      //关闭OCX控件  
   193.      webform.WebOffice.WebClose();  
   194.   }catch(e){}  
   195. }  
   196. //设置是否显示痕迹  
   197. function ShowRevision(vValue){  
   198.   var object=webform.WebOffice.ActiveDocument;  
   199.    object.ShowRevisions=vValue;  
   200.   if (vValue){  
   201.      StatusMsg("显示痕迹...");  
   202.   }else{  
   203.      StatusMsg("隐藏痕迹...");  
   204.   }  
   205. }  
   206. //调入文档  
   207. function LoadDocument(){  
   208.   StatusMsg("正在打开文档...");  
   209.   webform.WebOffice.WebOpen();  
   210.   StatusMsg(webform.WebOffice.Status);  
   211. }  
   212. //保存文档  
   213. function SaveDocument(){  
   214.   //判断状态  
   215.   if (webform.EditType.value=="0"){  
   216.      alert("你在查看状态，不能保存!");  
   217.      return false;  
   218.   }  
   219.   //保存文档   
   220.   webform.WebOffice.WebSave();  
   221.   //如果没有错误  
   222.   if (webform.WebOffice.Error!=""){  
   223.      StatusMsg(webform.WebOffice.Status);  
   224.      return false;  
   225.   }else{  
   226.      StatusMsg(webform.WebOffice.Status);  
   227.      return true;  
   228.   }  
   229. }  
   230. //打开版本信息  
   231. function WebOpenVersion(){  
   232.   var mDialogUrl = "Version/VersionList.asp?RecordID="+webform.WebOffice.RecordID;  
   233.   var mObject = new Object();  
   234.       mObject.FileID = "";  
   235.       mObject.Result = false;   
   236.       window.showModalDialog(mDialogUrl, mObject, "dialogHeight:280px; dialogWidth:420px;center:yes;scroll:no;status:no;");   
   237.   //如果用户确认选择  
   238.   if (mObject.Result &&(mObject.FileID.length>0)){  
   239.      //清除所有设置文本信息  
   240.      webform.WebOffice.WebMsgTextClear();  
   241.      //设置COMMAND为LOADVERSION  
   242.      webform.WebOffice.WebSetMsgByName("COMMAND","LOADVERSION");  
   243.      //设置用户选择的版本编号  
   244.      webform.WebOffice.WebSetMsgByName("FILEID",mObject.FileID);  
   245.      //发送命令给服务器  
   246.      webform.WebOffice.WebSendMessage();  
   247.      //如果没有错误  
   248.      if (webform.WebOffice.Error==""){  
   249.        //关闭当前文档  
   250.        webform.WebOffice.Close();  
   251.        //保存新版本为系统文件名  
   252.        webform.WebOffice.WebMsgFileSave(gFileName);  
   253.        //如果保存成功  
   254.        if (webform.WebOffice.Error==""){  
   255.    //打开该版本文档，  
   256.           webform.WebOffice.Open(gFileName,true);  
   257.        }    
   258.     }else{  
   259.        alert(webform.WebOffice.Error);  
   260.     }  
   261.   }else{  
   262.     StatusMsg("取消打开版本");  
   263.   }  
   264.   StatusMsg(webform.WebOffice.Status);  
   265. }  
   266. //保存版本信息  
   267. function WebSaveVersion(){  
   268.   var mDialogUrl = "Version/VersionForm.asp";  
   269.   var mObject = new Object();  
   270.       mObject.Descript = "";  
   271.       mObject.Result=false;  
   272.       window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");   
   273.       //如果用户确认选择  
   274.       if (mObject.Result){  
   275.         //清除所有设置文本信息  
   276.         webform.WebOffice.WebMsgTextClear();  
   277.         //设置COMMAND为SAVEVERSION    
   278.         webform.WebOffice.WebSetMsgByName("COMMAND","SAVEVERSION");  
   279.         //设置描述信息内容  
   280.         webform.WebOffice.WebSetMsgByName("DESCRIPT",mObject.Descript);  
   281.         //保存当前版本  
   282.         webform.WebOffice.Save(gFileName,true);  
   283.         //调入该文档  
   284.         webform.WebOffice.WebMsgFileLoad(gFileName);  
   285.         //发送到服务器上  
   286.         webform.WebOffice.WebSendMessage();  
   287.         if (webform.WebOffice.Error!=""){   
   288.            alert(webform.WebOffice.Error);  
   289.        }  
   290.      }  
   291.      StatusMsg(webform.WebOffice.Status);  
   292. }  
   293. //用数据库中的内容填充标签里的内容  
   294. function LoadBookmarks(){  
   295.  var mCount,mIndex;  
   296.  var mBookObject,mBookName,mBookIdx;  
   297.     //清除所有设置变量信息  
   298.     webform.WebOffice.WebMsgTextClear();  
   299.     //设置COMMAND为LOADBOOKMARKS  
   300.     webform.WebOffice.WebSetMsgByName("COMMAND","LOADBOOKMARKS");  
   301.     //发送信息到服务器上  
   302.     webform.WebOffice.WebSendMessage();  
   303.     //如果没有错误信息  
   304.     if (webform.WebOffice.Error==""){  
   305.       //如果是Word文件     
   306.       if (webform.WebOffice.FileType==".doc"){  
   307.          //替换所有的标签内容  
   308.          for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){  
   309.       //取出标签名   
   310.              mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name;  
   311.              //取出该标签对应的服务器上的数据  
   312.              mBookValue = webform.WebOffice.WebGetMsgByName(mBookName);  
   313.              //如果该数据有值    
   314.              if ((mBookValue)&&(mBookValue.length>0)) {  
   315.    //取得标签对应的对象  
   316.                  mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range;  
   317.    //设置为服务器数据  
   318.    mBookObject.Text=mBookValue;  
   319.    //重新设置为标签  
   320.                  webform.WebOffice.ActiveDocument.Bookmarks.Add(mBookName, mBookObject);  
   321.              }  
   322.          }  
   323.       }  
   324.     }  
   325.     StatusMsg(webform.WebOffice.Status);  
   326. }  
   327. //设置标签的内容  
   328. function SetBookmarks(vbmName,vbmValue){  
   329.   //取得标签对象  
   330.   var mBookmarks=WebFindBookmarks(vbmName);  
   331.   if (mBookmarks){  
   332.      //设置该标签的内容为新值  
   333.      mBookmarks.Text=vbmValue;  
   334.      //重新设置为标签  
   335.      webform.WebOffice.ActiveDocument.Bookmarks.Add(vbmName, mBookmarks);  
   336.   }  
   337. }  
   338. //取得标签内容  
   339. function GetBookmarks(vbmName){  
   340.   var vbmValue="";  
   341.   //取得标签对象  
   342.   var mBookmarks=WebFindBookmarks(vbmName);  
   343.   if (mBookmarks){  
   344.      //取得内容  
   345.      vbmValue=mBookmarks.Text;  
   346.   }  
   347.   return vbmValue;  
   348. }  
   349. //调用打印  
   350. function WebOpenPrint(){  
   351.   try{  
   352.     //调用打印功能，true表示显示打印设置，false表示直接打印  
   353.     webform.WebOffice.PrintOut(true);  
   354.     StatusMsg(webform.WebOffice.Status);  
   355.   }catch(e){}  
   356. }  
   357. //调用打印页面设置对话匡  
   358. function WebOpenPageSetup(){  
   359.    try{  
   360.  if (webform.WebOffice.FileType==".doc"){  
   361.             //如果是word  
   362.      webform.WebOffice.ActiveDocument.Application.Dialogs(178).Show();  
   363.  }else{  
   364.             //如果是Excel  
   365.      webform.WebOffice.ActiveDocument.Application.Dialogs(7).Show();  
   366.  }  
   367.    }catch(e){  
   368.    }  
   369. }  
   370. //调用打开图片对话框  
   371. function WebOpenPicture(){  
   372.    try{  
   373.  if (webform.WebOffice.FileType==".doc"){  
   374.    //如果是Word  
   375.    webform.WebOffice.ActiveDocument.Application.Dialogs(163).Show();  
   376.  }else{  
   377.           //如果是Excel  
   378.    webform.WebOffice.ActiveDocument.Application.Dialogs(342).Show();  
   379.  }  
   380.    }catch(e){  
   381.    }  
   382. }  
   383. //电子印章功能  
   384. function WebOpenSignature(){  
   385.   var mDialogUrl = "Signature/SignatureForm.asp";  
   386.   var mMarkName,mPassWord,mMarkTime;  
   387.   var mObject = new Object();  
   388.       mObject.MarkName = "";  
   389.       mObject.PassWord = "";  
   390.       window.showModalDialog(mDialogUrl, mObject, "dialogHeight:200px; dialogWidth:360px;center:yes;scroll:no;status:no;");   
   391.   //判断用户是否选择印章名称和密码  
   392.   if (mObject.MarkName==""||mObject.PassWord==null){  
   393.     StatusMsg("取消印章");  
   394.     return false;  
   395.   }else{  
   396.      //取得系统文件目录  
   397.      var mFilePath=webform.WebOffice.WebMsgFilepath;  
   398.      var mImgShape=null;  
   399.      var mLabName=null;  
   400.      var mZOrder=null;  
   401.      mMarkName=mObject.MarkName;  
   402.      mPassWord=mObject.PassWord;  
   403.      //清除所有设置的变量   
   404.      webform.WebOffice.WebMsgTextClear();  
   405.      //设置COMMAND 为 LOADMARKIMAGE  
   406.      webform.WebOffice.WebSetMsgByName("COMMAND","LOADMARKIMAGE");  
   407.      //设置印章名称  
   408.      webform.WebOffice.WebSetMsgByName("IMAGENAME",mMarkName);  
   409.      //设置印章密码  
   410.      webform.WebOffice.WebSetMsgByName("PASSWORD",mPassWord);  
   411.      //发送到服务器上  
   412.      webform.WebOffice.WebSendMessage();  
   413.      //如果没有错误  
   414.      if (webform.WebOffice.Error==""){  
   415.        //取得服务器返回时间  
   416.        mMarkTime=webform.WebOffice.WebGetMsgByName("DATETIME");  
   417.        //取得印章所盖的位置，POSITION所指的是标签的对象名  
   418.        mLabName=webform.WebOffice.WebGetMsgByName("POSITION");  
   419.        //设置印章的显示形式，4是在文字上方，5是在文字下方  
   420.        mZOrder=webform.WebOffice.WebGetMsgByName("ZORDER");  
   421.        //取得完整的印章图片名称   
   422.        var mFileName=webform.WebOffice.WebGetMsgByName("IMAGENAME");  
   423.        //保存该印章  
   424.        webform.WebOffice.WebMsgFileSave(mFilePath+mFileName);  
   425.        //如果一切正常  
   426.        if (webform.WebOffice.Error==""){  
   427.          //如果是word文件   
   428.          if (webform.WebOffice.FileType==".doc"){  
   429.            var mInlineShapes=null; //=webform.WebOffice.ActiveDocument.InlineShapes.Count;  
   430.            //var mShapes=webform.WebOffice.ActiveDocument.Shapes.Count;  
   431.            var mBookMark=WebFindBookmarks(mLabName);  
   432.            if (mBookMark){  
   433.               mInlineShapes=mBookMark.InlineShapes.AddPicture(mFilePath+mFileName);  
   434.            }else{  
   435.               mInlineShapes=webform.WebOffice.ActiveDocument.Application.Selection.InlineShapes.AddPicture(mFilePath+mFileName);  
   436.            }   
   437.            //if (mInlineShapes!=webform.WebOffice.ActiveDocument.InlineShapes.Count){  
   438.            //   mImgShape = webform.WebOffice.ActiveDocument.InlineShapes.Item(webform.WebOffice.ActiveDocument.InlineShapes.Count).ConvertToShape();  
   439.            //}  
   440.            //if (mShapes!=webform.WebOffice.ActiveDocument.Shapes.Count){  
   441.            //   mImgShape = webform.WebOffice.ActiveDocument.Shapes.Item(webform.WebOffice.ActiveDocument.Shapes.Count);  
   442.            //}  
   443.              
   444.           mImgShape = mInlineShapes.ConvertToShape();  
   445.           mImgShape.Select();  
   446.           mImgShape.AlternativeText="DBSTEP_2004=印章名称:["+mMarkName+"] 用户名称:["+webform.WebOffice.UserName+"] 盖章时间[:"+mMarkTime+"] 印章编号:["+webform.WebOffice.RecordID+"]";  
   447.           mImgShape.PictureFormat.TransparentBackground = true;  
   448.           mImgShape.PictureFormat.TransparencyColor = 16777215;  
   449.           mImgShape.Fill.Visible = false;  
   450.           mImgShape.WrapFormat.Type = 3;  
   451.           mImgShape.ZOrder(mZOrder);  
   452.         }  
   453.         //如果是Excel文件  
   454.         if (webform.WebOffice.FileType==".xls"){  
   455.      webform.WebOffice.ActiveDocument.ActiveSheet.Pictures.Insert(mFilePath+mFileName).Select();  
   456.    mImgShape =webform.WebOffice.ActiveDocument.Application.Selection.ShapeRange;  
   457.           mImgShape.AlternativeText="DBSTEP_2004=印章名称:["+mMarkName+"] 用户名称:["+webform.WebOffice.UserName+"] 盖章时间[:"+mMarkTime+"] 印章编号:["+webform.WebOffice.RecordID+"]";  
   458.           mImgShape.PictureFormat.TransparentBackground = true;  
   459.           mImgShape.PictureFormat.TransparencyColor = 16777215;  
   460.           mImgShape.Fill.Visible = false;  
   461.           mImgShape.ZOrder(mZOrder);  
   462.         }   
   463.        }    
   464.        //清除印章文件  
   465.        webform.WebOffice.WebMsgFileClear(mFilePath+mFileName);  
   466.     }  
   467.     StatusMsg(webform.WebOffice.Error);  
   468.   }  
   469. }  
   470. //显示印章信息  
   471. function WebShowSignature(){  
   472.   var SignatureString="";  
   473.   try{  
   474.     //如果是word文件  
   475.     if (webform.WebOffice.FileType==".doc"){  
   476.       for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Shapes.Count;mIndex++){  
   477.         var mValidString=webform.WebOffice.ActiveDocument.Shapes.Item(mIndex).AlternativeText;  
   478.         if ((mValidString!=null)&&(mValidString.length!=0)){  
   479.             if ((mValidString.indexOf("DBSTEP_2004")!=-1) && (mValidString.indexOf(webform.WebOffice.RecordID)!=-1)){  
   480.   SignatureString=SignatureString+"\r\n"+mValidString.substring(12,mValidString.length);  
   481.      }   
   482.         }  
   483.       }  
   484.     }  
   485.     //如果是Excel文件  
   486.     if (webform.WebOffice.FileType==".xls"){  
   487.       for (var mSheet=1;mSheet<=webform.WebOffice.ActiveDocument.Application.Sheets.Count;mSheet++){  
   488.         webform.WebOffice.ActiveDocument.Application.Sheets(mSheet).Select();  
   489.         for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.ActiveSheet.Shapes.Count;mIndex++){  
   490.    var mValidString=webform.WebOffice.ActiveDocument.ActiveSheet.Shapes.Item(mIndex).AlternativeText;  
   491.           if ((mValidString!=null)&&(mValidString.length!=0)){  
   492.               if ((mValidString.indexOf("DBSTEP_2004")!=-1) && (mValidString.indexOf(webform.WebOffice.RecordID)!=-1)){  
   493.     SignatureString=SignatureString+"\r\n"+mValidString.substring(12,mValidString.length);  
   494.        }   
   495.           }  
   496.         }  
   497.       }  
   498.     }  
   499.     if (SignatureString){  
   500.        alert("印章列表如下:"+SignatureString);  
   501.     }else{  
   502.        alert("没有找到任何有效印章");  
   503.     }  
   504.   }catch(e){}  
   505. }  
   506.   
   507. //是否显示工具栏  
   508. function WebToolBars(Visible){  
   509.   try{  
   510.      webform.WebOffice.ToolBars=Visible;   
   511.   }catch(e){}  
   512. }  
   513. //是否显示菜单栏  
   514. function WebMenuBar(Visible){  
   515.   try{  
   516.      webform.WebOffice.MenuBar=Visible;   
   517.   }catch(e){}  
   518. }  
   519. //是否显示某种工具栏  
   520. function WebToolsVisible(ToolName,Visible){  
   521.   try{  
   522.     webform.WebOffice.ActiveDocument.CommandBars(ToolName).Visible = Visible;  
   523.   }catch(e){}  
   524. }  
   525. //是否允许某工具栏上的某工具有效  
   526. function WebToolsEnable(ToolName,ToolIndex,Enable){  
   527.  var i;  
   528.  try{  
   529.     for (i=1;i<=webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls.Count;i++){  
   530.  if  (webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls(i).id==ToolIndex){  
   531.       webform.WebOffice.ActiveDocument.CommandBars(ToolName).Controls(i).Enabled = Enable;  
   532.   break;  
   533.  }  
   534.     }  
   535.  }catch(e){}  
   536. }  
   537. //设置是否保护  
   538. function WebProtect(value){  
   539.   try{  
   540.     if (value){  
   541.  if (webform.WebOffice.FileType==".doc"){   
   542.        webform.WebOffice.ActiveDocument.Protect(2);  
   543.  }else if(webform.WebOffice.FileType==‘.xls‘){  
   544.             for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets.Count;mIndex++){  
   545.                 var mSheet=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets(mIndex);  
   546.                 mSheet.Protect("", true, true, true);  
   547.             }  
   548.  }  
   549.     }else{  
   550.  if (webform.WebOffice.FileType==".doc"){   
   551.   webform.WebOffice.ActiveDocument.UnProtect();  
   552.  }else if(webform.WebOffice.FileType==‘.xls‘){  
   553.             for (var mIndex=1;mIndex<=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets.Count;mIndex++){  
   554.                 var mSheet=webform.WebOffice.ActiveDocument.Application.ActiveWorkbook.Sheets(mIndex);  
   555.                 mSheet.UnProtect("");  
   556.             }  
   557.  }  
   558.     }  
   559.   }catch(e){}  
   560. }  
   561. //取得Word内容  
   562. function WebGetWordContent(){  
   563.   try{  
   564.     alert(webform.WebOffice.ActiveDocument.Content.Text);  
   565.   }catch(e){}  
   566. }  
   567. //插入Word内容  
   568. function WebSetWordContent(){  
   569.   var mText=window.prompt("请输入内容:","测试内容");  
   570.   if (mText==null){  
   571.      return (false);  
   572.   }  
   573.   else  
   574.   {  
   575.      //下面为显示选中的文本  
   576.      //alert(webform.WebOffice.ActiveDocument.Application.Selection.Range.Text);  
   577.      //下面为在当前光标出插入文本  
   578.      webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mText+"\n");  
   579.      //下面为在第一段后插入文本  
   580.      //webform.WebOffice.ActiveDocument.Application.ActiveDocument.Range(1).InsertAfter(mText);  
   581.   }  
   582. }  
   583. //设置并取得Excel的内容  
   584. function WebGetExcelContent(){  
   585.     webform.WebOffice.ActiveDocument.Application.Sheets(1).Select;  
   586.     webform.WebOffice.ActiveDocument.Application.Range("C5").Select;  
   587.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "126";  
   588.     webform.WebOffice.ActiveDocument.Application.Range("C6").Select;  
   589.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "446";  
   590.     webform.WebOffice.ActiveDocument.Application.Range("C7").Select;  
   591.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "556";  
   592.     webform.WebOffice.ActiveDocument.Application.Range("C5:C8").Select;  
   593.     webform.WebOffice.ActiveDocument.Application.Range("C8").Activate;  
   594.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)";  
   595.     webform.WebOffice.ActiveDocument.Application.Range("D8").Select;  
   596.     alert(webform.WebOffice.ActiveDocument.Application.Range("C8").Text);  
   597. }  
   598. //设置Excel页，并演示锁定相应栏目  
   599. function WebSheetsLock(){  
   600.     webform.WebOffice.ActiveDocument.Application.Sheets(1).Select;  
   601.     webform.WebOffice.ActiveDocument.Application.Range("A1").Select;  
   602.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "产品";  
   603.     webform.WebOffice.ActiveDocument.Application.Range("B1").Select;  
   604.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "价格";  
   605.     webform.WebOffice.ActiveDocument.Application.Range("C1").Select;  
   606.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "详细说明";  
   607.     webform.WebOffice.ActiveDocument.Application.Range("D1").Select;  
   608.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "库存";  
   609.     webform.WebOffice.ActiveDocument.Application.Range("A2").Select;  
   610.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "书签";  
   611.     webform.WebOffice.ActiveDocument.Application.Range("A3").Select;  
   612.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "毛笔";  
   613.     webform.WebOffice.ActiveDocument.Application.Range("A4").Select;  
   614.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "钢笔";  
   615.     webform.WebOffice.ActiveDocument.Application.Range("A5").Select;  
   616.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "尺子";  
   617.     webform.WebOffice.ActiveDocument.Application.Range("B2").Select;  
   618.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "0.5";  
   619.     webform.WebOffice.ActiveDocument.Application.Range("C2").Select;  
   620.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "樱花";  
   621.     webform.WebOffice.ActiveDocument.Application.Range("D2").Select;  
   622.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "300";  
   623.     webform.WebOffice.ActiveDocument.Application.Range("B3").Select;  
   624.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "2";  
   625.     webform.WebOffice.ActiveDocument.Application.Range("C3").Select;  
   626.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "狼毫";  
   627.     webform.WebOffice.ActiveDocument.Application.Range("D3").Select;  
   628.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "50";  
   629.     webform.WebOffice.ActiveDocument.Application.Range("B4").Select;  
   630.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "3";  
   631.     webform.WebOffice.ActiveDocument.Application.Range("C4").Select;  
   632.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "蓝色";  
   633.     webform.WebOffice.ActiveDocument.Application.Range("D4").Select;  
   634.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "90";  
   635.     webform.WebOffice.ActiveDocument.Application.Range("B5").Select;  
   636.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "1";  
   637.     webform.WebOffice.ActiveDocument.Application.Range("C5").Select;  
   638.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "20cm";  
   639.     webform.WebOffice.ActiveDocument.Application.Range("D5").Select;  
   640.     webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "40";  
   641.     //保护工作表  
   642.     webform.WebOffice.ActiveDocument.Application.Range("B2:D5").Select;  
   643.     webform.WebOffice.ActiveDocument.Application.Selection.Locked = false;  
   644.     webform.WebOffice.ActiveDocument.Application.Selection.FormulaHidden = false;  
   645.     webform.WebOffice.ActiveDocument.Application.ActiveSheet.Protect(true,true,true);    
   646.     alert("已经保护工作表，只有B2-D5单元格可以修改。");  
   647. }  
   648. //VBA套红操作  
   649. function WebInsertVBA(){  
   650.    
   651.  //画线  
   652.  var object=webform.WebOffice.ActiveDocument;  
   653.  var myl=object.Shapes.AddLine(100,60,305,60)  
   654.  myl.Line.ForeColor=255;  
   655.  myl.Line.Weight=2;  
   656.  var myl1=object.Shapes.AddLine(326,60,520,60)  
   657.  myl1.Line.ForeColor=255;  
   658.  myl1.Line.Weight=2;  
   659.  //object.Shapes.AddLine(200,200,450,200).Line.ForeColor=6;  
   660.     var myRange=webform.WebOffice.ActiveDocument.Range(0,0);  
   661.  myRange.Select();  
   662.  var mtext="★";  
   663.  webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");  
   664.     var myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;  
   665.     myRange.ParagraphFormat.LineSpacingRule =1.5;  
   666.     myRange.font.ColorIndex=6;  
   667.     myRange.ParagraphFormat.Alignment=1;  
   668.     myRange=webform.WebOffice.ActiveDocument.Range(0,0);  
   669.  myRange.Select();  
   670.  mtext="金格发[２００３]１５４号";  
   671.  webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");  
   672.  myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;  
   673.  myRange.ParagraphFormat.LineSpacingRule =1.5;  
   674.  myRange.ParagraphFormat.Alignment=1;  
   675.  myRange.font.ColorIndex=1;  
   676.    
   677.  mtext="金格电子政务文件";  
   678.  webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");  
   679.  myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;  
   680.  myRange.ParagraphFormat.LineSpacingRule =1.5;  
   681.    
   682.  //myRange.Select();  
   683.  myRange.Font.ColorIndex=6;  
   684.  myRange.Font.Name="仿宋_GB2312";  
   685.  myRange.font.Bold=true;  
   686.  myRange.Font.Size=50;  
   687.  myRange.ParagraphFormat.Alignment=1;  
   688.    
   689.  //myRange=myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;  
   690.  webform.WebOffice.ActiveDocument.PageSetup.LeftMargin=70;  
   691.  webform.WebOffice.ActiveDocument.PageSetup.RightMargin=70;  
   692.  webform.WebOffice.ActiveDocument.PageSetup.TopMargin=70;  
   693.  webform.WebOffice.ActiveDocument.PageSetup.BottomMargin=70;  
   694. }  
   695. //保存定稿文件  
   696. function WebUpdateFile(){  
   697.   try{  
   698.     webform.WebOffice.WebUpdateFile();  
   699.     if (webform.WebOffice.Error!=""){  
   700.  alert(webform.WebOffice.Status+webform.WebOffice.Error);  
   701.     }  
   702.   }catch(e){}  
   703.   StatusMsg(webform.WebOffice.Status);  
   704. }  
   705. //从服务器上导入数据到文档中  
   706. function WebInportText(){  
   707.     var mText;  
   708.     webform.WebOffice.WebSetMsgByName("COMMAND","INPORTTEXT");  
   709.     webform.WebOffice.WebSendMessage();  
   710.     if (webform.WebOffice.Error==""){  
   711.       mText=webform.WebOffice.WebGetMsgByName("CONTENT");  
   712.       webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter(mText);  
   713.       alert("导入文本成功");  
   714.     }  
   715.     StatusMsg(webform.WebOffice.Status);  
   716. }  
   717. //导出所有文档文本给服务器  
   718. function WebExportText(){  
   719.     var mText=webform.WebOffice.ActiveDocument.Content.Text;  
   720.     webform.WebOffice.WebSetMsgByName("COMMAND","EXPORTTEXT");  
   721.     webform.WebOffice.WebSetMsgByName("CONTENT",mText);  
   722.     webform.WebOffice.WebSendMessage();  
   723.     if (webform.WebOffice.Error==""){  
   724.       alert("导出文本成功");  
   725.     }  
   726.     StatusMsg(webform.WebOffice.Status);  
   727. }  
   728. //根据标签名称查找标签  
   729. function WebFindBookmarks(mPosition)  
   730. {  
   731.   var mBookObject,mBookName,mBookIdx;  
   732.   if (webform.WebOffice.FileType==".doc"){  
   733.          for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){  
   734.              mBookName = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Name;  
   735.              if (mBookName==mPosition) {  
   736.                  mBookObject = webform.WebOffice.ActiveDocument.Bookmarks.Item(mBookIdx).Range;  
   737.                  break;  
   738.              }  
   739.          }  
   740.   }  
   741.   return (mBookObject);  
   742. }  
   743. //插入服务器图片  
   744. function WebInsertImage(vLabName,vImgName,vTrans,vZOrder)  
   745. {  
   746.     //取得文件目录  
   747.     var mFilePath=webform.WebOffice.WebMsgFilepath;  
   748.     var mImgShape=null;  
   749.     var mPassword=null;  
   750.     //清除所有设置变量   
   751.     webform.WebOffice.WebMsgTextClear();  
   752.     //设置COMMAND 为 INSERTIMAGE 命令  
   753.     webform.WebOffice.WebSetMsgByName("COMMAND","INSERTIMAGE");  
   754.     //设置要插入的图片名称  
   755.     webform.WebOffice.WebSetMsgByName("IMAGENAME",vImgName);  
   756.     //发送到服务器上  
   757.     webform.WebOffice.WebSendMessage();  
   758.     //如果没有错误  
   759.     if (webform.WebOffice.Error==""){  
   760.        //将服务器返回的图片保存  
   761.        webform.WebOffice.WebMsgFileSave(mFilePath+vImgName);  
   762.        //如果没有错误  
   763.        if (webform.WebOffice.Error==""){  
   764.          //如果是word文档  
   765.          if (webform.WebOffice.FileType==".doc"){  
   766.            var mInlineShapes=null;  //=webform.WebOffice.ActiveDocument.InlineShapes.Count;  
   767.            //var mShapes=webform.WebOffice.ActiveDocument.Shapes.Count;  
   768.            var mBookMark=WebFindBookmarks(vLabName);  
   769.            if (mBookMark){  
   770.               mInlineShares=mBookMark.InlineShapes.AddPicture(mFilePath+vImgName);  
   771.            }else{  
   772.               mInlineShares=webform.WebOffice.ActiveDocument.Application.Selection.InlineShapes.AddPicture(mFilePath+vImgName);  
   773.            }    
   774.            //if (mInlineShapes!=webform.WebOffice.ActiveDocument.InlineShapes.Count){  
   775.            //   mImgShape = webform.WebOffice.ActiveDocument.InlineShapes.Item(webform.WebOffice.ActiveDocument.InlineShapes.Count).ConvertToShape();  
   776.            //}  
   777.            //if (mShapes!=webform.WebOffice.ActiveDocument.Shapes.Count){  
   778.            //   mImgShape = webform.WebOffice.ActiveDocument.Shapes.Item(webform.WebOffice.ActiveDocument.Shapes.Count);  
   779.            //}  
   780.           mImgShape=mInlineShares.ConvertToShape();  
   781.           mImgShape.Select();  
   782.           mImgShape.PictureFormat.TransparentBackground = vTrans;  
   783.           mImgShape.PictureFormat.TransparencyColor = 16777215;  
   784.           mImgShape.Fill.Visible = false;  
   785.           mImgShape.WrapFormat.Type = 3;  
   786.           mImgShape.ZOrder(vZOrder);  
   787.         }  
   788.         //如果是Excel文档  
   789.         if (webform.WebOffice.FileType==".xls"){  
   790.      webform.WebOffice.ActiveDocument.ActiveSheet.Pictures.Insert(mFilePath+vImgName).Select();  
   791.    mImgShape =webform.WebOffice.ActiveDocument.Application.Selection.ShapeRange;  
   792.           mImgShape.PictureFormat.TransparentBackground = vTrans;  
   793.           mImgShape.PictureFormat.TransparencyColor = 16777215;  
   794.           mImgShape.Fill.Visible = false;  
   795.           mImgShape.ZOrder(vZOrder);  
   796.         }   
   797.       }    
   798.       //清除文件  
   799.       webform.WebOffice.WebMsgFileClear(mFilePath+vImgName);  
   800.     }  
   801.     StatusMsg(webform.WebOffice.Status+webform.WebOffice.Error);  
   802. }  
   803. //套用模版定稿  
   804. function WebInsertFile()  
   805. {  
   806.   //var mDialogUrl = "Version/VersionList.asp?RecordID="+webform.WebOffice.RecordID;  
   807.   //var mObject = new Object();  
   808.   //    mObject.FileID = "";  
   809.   //    mObject.Result = false;   
   810.   //    window.showModalDialog(mDialogUrl, mObject, "dialogHeight:280px; dialogWidth:420px;center:yes;scroll:no;status:no;");   
   811.   //if (mObject.Result){  
   812.      //取得目录名称  
   813.      var mFilePath=webform.WebOffice.WebMsgFilepath;  
   814.      //取得文件类型  
   815.      var mFileName=webform.WebOffice.RecordID+webform.WebOffice.FileType;  
   816.      var mBookRange;  
   817.      //保存当前文件  
   818.      webform.WebOffice.Save(mFilePath+mFileName,true);  
   819.      //如果没有问题  
   820.      if (webform.WebOffice.Error==""){  
   821.        //清除所有设置变量   
   822.        webform.WebOffice.WebMsgTextClear();  
   823.        //设置COMMAND为INSERTFILE  
   824.        webform.WebOffice.WebSetMsgByName("COMMAND","INSERTFILE");  
   825.        //设置需要调用的模版名称  
   826.        webform.WebOffice.WebSetMsgByName("TEMPNAME","模板一.doc");  
   827.        //发送该信息到服务器上  
   828.        webform.WebOffice.WebSendMessage();  
   829.        //如果没有错误  
   830.        if (webform.WebOffice.Error==""){  
   831.          //关闭当前文件  
   832.          webform.WebOffice.Close();  
   833.          //保存模版文件  
   834.          webform.WebOffice.WebMsgFileSave(gFileName);  
   835.          //如果没有错误  
   836.          if (webform.WebOffice.Error==""){  
   837.             //打开模版文件  
   838.             webform.WebOffice.Open(gFileName,true);  
   839.             //查找需要插入的位置(标签)  
   840.             var mPosition=webform.WebOffice.WebGetMsgByName(‘POSITION‘);  
   841.             if (mPosition.length>0){  
   842.                mBookRange = WebFindBookmarks(mPosition);  
   843.             }else{  
   844.                mBookRange = webform.WebOffice.ActiveDocument.Range.Application.Selection;  
   845.             }  
   846.             //将原工作文档插入到该位置  
   847.             mBookRange.InsertFile(mFilePath+mFileName);  
   848.          }    
   849.        }else{  
   850.          alert(webform.WebOffice.Error);  
   851.        }  
   852.      }  
   853.      //清楚文件  
   854.      webform.WebOffice.WebMsgFileClear(mFilePath+mFileName);  
   855.      StatusMsg(webform.WebOffice.Status)  
   856. }  
   857. //作用：表格生成及填充  
   858. function WebSetWordTable(){  
   859.   var mText="",mName="",iColumns,iCells,iTable;  
   860.   //清除所有设置变量  
   861.   webform.WebOffice.WebMsgTextClear();  
   862.   //设置COMMAND为WORDTABLE  
   863.   webform.WebOffice.WebSetMsgByName("COMMAND","WORDTABLE");   //OfficeServer.asp  COMMAND=WORDTABLE  
   864.   //发送到服务器上  
   865.   webform.WebOffice.WebSendMessage();         //OfficeServer.asp  OPTION=SENDMESSAGE  
   866.   //如果没有错误  
   867.   if (webform.WebOffice.Error==""){                        
   868.  //取得列  
   869.  iColumns = webform.WebOffice.WebGetMsgByName("COLUMNS");  
   870.  //取得行  
   871.  iCells = webform.WebOffice.WebGetMsgByName("CELLS");        
   872.  //生成表格  
   873.  iTable=webform.WebOffice.ActiveDocument.Tables.Add(webform.WebOffice.ActiveDocument.Application.Selection.Range,iCells,iColumns);     
   874.  for (var i=1; i<=iColumns; i++)  
   875.  {  
   876.       for (var j=1; j<=iCells; j++)  
   877.    {  
   878.   mName=i.toString()+j.toString();    
   879.   //取得表格内容   
   880.   mText=webform.WebOffice.WebGetMsgByName(mName);   
   881.   //填充单元值  
   882.   iTable.Columns(i).Cells(j).Range.Text=mText;      
   883.     }  
   884.  }  
   885.    }  
   886.    StatusMsg(webform.WebOffice.Status);  
   887. }  
   888. </script>  
   889. </head>  
   890. <body bgcolor="#ffffff" onload="Load()" onunload="UnLoad()">  
   891. <form name="webform" method="post" action="DocumentSave.asp" onsubmit="return SaveDocument();">  
   892. <input type=hidden name=RecordID value="<%=mRecordID%>">  
   893. <input type=hidden name=Template value="<%=mTemplate%>">  
   894. <input type=hidden name=FileType value="<%=mFileType%>">  
   895. <input type=hidden name=EditType value="<%=mEditType%>">  
   896. <input type=hidden name=HTMLPath value="<%=mHTMLPath%>">  
   897. <table border=0  cellspacing=‘0‘ cellpadding=‘0‘ width=100% height=100% align=center class=TBStyle>  
   898. <tr>  
   899.   <td align=right class="TDTitleStyle" width=64>主题</td>  
   900.   <td class="TDStyle"><input type=text name=Subject value="<%=mSubject%>" class="IptStyle" onblur="SetBookmarks(‘Caption‘,this.value);" ></td>  
   901. </tr>  
   902. <tr>  
   903.   <td align=right class="TDTitleStyle" width=64>作者</td>  
   904.   <td class="TDStyle"><input type=text name=Author value="<%=mAuthor%>" class="IptStyle" onblur="SetBookmarks(‘Author‘,this.value);" ></td>  
   905. </tr>  
   906. <tr>  
   907.   <td align=right class="TDTitleStyle" width=64>时间</td>  
   908.   <td class="TDStyle"><input type=text name=FileDate value="<%=mFileDate%>" readonly class="IptStyle" ></td>  
   909. </tr>  
   910. <tr>  
   911.   <!--td align=right valign=top  class="TDTitleStyle" width=64>内容</td-->  
   912.   <td align=right valign=top  class="TDTitleStyle" width=64 hegith=90% >  
   913.   <br>功能列表<br>  
   914.                  <input type=button class=button value="隐藏痕迹" <%=mDisabled%> <%=mWord%> onclick="ShowRevision(false)">  
   915.                  <input type=button class=button value="显示痕迹" <%=mDisabled%> <%=mWord%> onclick="ShowRevision(true)">  
   916.                  <input type=button class=button value="清除痕迹" <%=mDisabled%> <%=mWord%> onclick="webform.WebOffice.ActiveDocument.AcceptAllRevisions();">  
   917.                  <input type=button class=button value="保护文档" <%=mDisabled%> onclick="WebProtect(true)">  
   918.                  <input type=button class=button value="解除保护" <%=mDisabled%> onclick="WebProtect(false)">  
   919.                  <input type=button class=button value="页面设置" <%=mDisabled%> onclick="WebOpenPageSetup()">  
   920.                  <input type=button class=button value="打印文档" <%=mDisabled%> onclick="WebOpenPrint()">  
   921.                  <input type=button class=button value="插入图片" <%=mDisabled%> onclick="WebOpenPicture()">  
   922.     版本控制  
   923.                  <input type=button class=button value="保存版本" <%=mDisabled%> onclick="WebSaveVersion()">  
   924.                  <input type=button class=button value="打开版本" <%=mDisabled%> onclick="WebOpenVersion()">  
   925.     服务器交互  
   926.                  <input type=button class=button value="签名印章" <%=mDisabled%> onclick="WebOpenSignature()">  
   927.                  <input type=button class=button value="验证签章" <%=mDisabled%> onclick="WebShowSignature()">  
   928.                  <input type=button class=button value="远程图片" <%=mDisabled%> onclick="WebInsertImage(‘Image‘,‘样品.jpg‘,true,4);">  
   929.                  <input type=button class=button value="填充模版" <%=mDisabled%> <%=mWord%> onclick="LoadBookmarks()">  
   930.                  <input type=button class=button value="表格填充" <%=mDisabled%> <%=mWord%> onclick="WebSetWordTable()">  
   931.     VBA调用  
   932.                  <input type=button class=button value="取Word内容" <%=mDisabled%> <%=mWord%>  onclick="WebGetWordContent()">  
   933.                  <input type=button class=button value="写Word内容" <%=mDisabled%> <%=mWord%> onclick="WebSetWordContent()">  
   934.                  <input type=button class=button value="用Excel求和" <%=mDisabled%> <%=mExcel%> onclick="WebGetExcelContent()">  
   935.                  <input type=button class=button value="Excel保护工作表" <%=mDisabled%> <%=mExcel%> onclick="WebSheetsLock()">  
   936.       工具栏  
   937.                  <input type=button class=button value="关闭菜单" <%=mDisabled%>  onclick="WebMenuBar(false)">  
   938.                  <input type=button class=button value="显示菜单" <%=mDisabled%>  onclick="WebMenuBar(true)">  
   939.                  <input type=button class=button value="关闭工具栏" <%=mDisabled%>  onclick="WebToolBars(false)">  
   940.                  <input type=button class=button value="显示工具栏" <%=mDisabled%>  onclick="WebToolBars(true)">  
   941.                  <input type=button class=button value="关闭常用工具" <%=mDisabled%>  onclick="WebToolsVisible(‘Standard‘,false)">  
   942.                  <input type=button class=button value="打开常用工具" <%=mDisabled%>  onclick="WebToolsVisible(‘Standard‘,true)">  
   943.                  <input type=button class=button value="关闭格式工具" <%=mDisabled%>  onclick="WebToolsVisible(‘Formatting‘,false)">  
   944.                  <input type=button class=button value="打开格式工具" <%=mDisabled%>  onclick="WebToolsVisible(‘Formatting‘,true)">  
   945.                  <input type=button class=button value="关闭审阅按钮" <%=mDisabled%>  onclick="WebToolsVisible(‘Reviewing‘,false)">  
   946.                  <input type=button class=button value="打开审阅按钮" <%=mDisabled%>  onclick="WebToolsVisible(‘Reviewing‘,true)">  
   947.                  <input type=button class=button value="关闭打印按钮" <%=mDisabled%>  onclick="WebToolsEnable(‘Standard‘,2521,false);">  
   948.                  <input type=button class=button value="打开打印按钮" <%=mDisabled%>  onclick="WebToolsEnable(‘Standard‘,2521,true);">  
   949.     其他调用  
   950.                  <input type=button class=button value="VBA套红定稿" <%=mDisabled%> <%=mWord%> onclick="WebInsertVBA();">  
   951.                  <input type=button class=button value="套用模版定稿" <%=mDisabled%> onclick="WebInsertFile()">  
   952.                  <input type=button class=button value="保存定稿文件" <%=mDisabled%> onclick="WebUpdateFile()">  
   953.                  <input type=button class=button value="导入Text" <%=mDisabled%> <%=mWord%> onclick="WebInportText();">  
   954.                  <input type=button class=button value="导出Text" <%=mDisabled%> <%=mWord%> onclick="WebExportText();">  
   955.   </td>  
   956.   <td class="TDStyle" height=90% >  
   957.         <table border=0 cellspacing=‘0‘ cellpadding=‘0‘ width=‘100%‘ height=‘100%‘ >  
   958.         <tr>  
   959.           <td bgcolor=menu >  
   960. <OBJECT id="WebOffice" width="100%" height="100%" classid="clsid:23739A7E-2004-4D1C-88D5-D50B18F7C347" codebase="<%=mClientUrl%>">  
   961.          <param name="BorderStyle" value="1">  
   962.          <param name="Menubar" value="1">  
   963.          <param name="Toolbars" value="1">  
   964. </OBJECT>  
   965.           </td>  
   966.         </tr>  
   967.         <tr>  
   968.           <td bgcolor=menu height=‘20‘>  
   969.   <div id=StatusBar>状态栏</div>  
   970.           </td>  
   971.         </tr>  
   972.         </table>  
   973.   </td>  
   974. </tr>  
   975. </table>  
   976. <input type=submit value="  保存  " <%=mDisabled%> >  
   977. <input type=button value="  返回  " onclick="history.back()"> 注意：只有选择《保存》后，所做的操作才有效！  
   978. </form>  
   979. </body>  
   980. </html>  
    

操作 WebOffice.ocx 代码集合

标签：lis   模版文件   dal   文件名   adf   tty   ==   try   返回   

原文地址：http://www.cnblogs.com/lxl57610/p/7403967.html