操作 WebOffice.ocx 代码集合

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

操作 WebOffice.ocx 代码集合的相关文章

二叉树的性质和常用操作代码集合

二叉树的性质和常用操作代码集合 性质: 二叉树的性质和常用代码操作集合 性质1:在二叉树的第i层上至多有2^i-1个结点 性质2:深度为k的二叉树至多有2^k - 1个结点 性质3:对任意一棵二叉树T,若终端结点数为n0,而其度数为2的结点数为n2,则n0 = n2 + 1 满二叉树:深度为k且有2^-1个结点的树 完全二叉树:深度为k,结点数为n的二叉树,如果其结点1~n的位置序号分别与等高的满二叉树的结 点1~n的位置序号一一对应,则为完全二叉树. 性质4:具有n的结点的完全二叉树深度为lo

30 个 php 操作 redis 常用方法代码例子

这篇文章主要介绍了 30 个 php 操作 redis 常用方法代码例子 , 本文其实不止 30 个方法 , 可以操作 string 类型. list 类型和 set 类型的数据 , 需要的朋友可以参考下redis 的操作很多的,以前看到一个比较全的博客,但是现在找不到了.查个东西搜半天,下面整理一下php 处理 redis 的例子,个人觉得常用一些例子.下面的例子都是基于 php-redis 这个扩展的.1 , connect描述:实例连接到一个 Redis.参数: host: string

AD帐户操作C#示例代码（一）——导入用户信息

最近写了一个AD帐户导入的小工具(为啥写作“帐”户呢?),跟大家分享下相关代码,欢迎各位高手指教! 首先,我准备一个这样的Excel文件作为导入模版,并添加了一些测试数据. 然后,我打开Visual Studio 2012,新建一个Windows窗体应用程序.在主窗体界面,我放了一些Label.TextBox.Button控件,还有一个ProgressBar. 开始写代码.首先写从Excel里读取数据的方法. private static async Task<DataTable> GetTa

[JS,NodeJs]个人网站效果代码集合

上次发的个人网站效果代码集合: 代码集合: 1.彩色文字墙[鼠标涟漪痕迹] 2.彩色旋转圆环 [模仿http://www.moma.org/interactives/exhibitions/2012/centuryofthechild/中间部分效果, 那个走路的孩子技术很简单,和以前的春分秋分Google的Doodles类似,就没有模仿,换成一个头像] 3.视屏拼图 4.百度地图api简单应用集合 5.财经数据 6.天气预报 [nodejs搭建,express框架,nodejs简单页面抓取,JS

c#/ASP.NET操作cookie(读写)代码示例

Cookie是存在硬盘上,IE存cookie的地方和Firefox存cookie的地方不一样.不同的操作系统也可能存cookie的地方不一样. 不同的浏览器会在各自的独立空间存放Cookie, 互不干涉以我的windows7, IE8为例,  cookie存在这: C:\Users\xiaoj\AppData\Local\Microsoft\Windows\Temporary Internet Files 注意: 缓存文件和cookie文件,是存在一起的, 都在这个目录下. 你也可以这样找, 打

java学习--基础知识进阶第十天--标准输入流 &amp; 转换流 &amp; 打印流、对象操作流 、Properties集合

今日内容介绍 u  标准输入流 & 转换流 & 打印流 u  对象操作流 u  Properties集合 第1章 标准输入流 & 转换流 & 打印流 1.1 标准输入输出流 public static final InputStream in:标准输入流 public static final PrintStream out:标准输出流 package com.itheima_05; /* * 标准输入输出流: public static final InputStream

jquery操作单选钮代码示例

jquery操作单选钮代码示例:radio单选按钮是最重要的表单元素之一,下面介绍一下常用的几个jquery对radio单选按钮操作.一.取消选中: $(".theclass").each(function(){ if($(this).attr('checked')) { $(this).attr('checked',false); } }); 以上代码可以将class属性值为theclass的被选中单选按钮取消选中.二.获取被选中的单选按钮的值: var val=$('.thecla

ios多线程操作（七）—— GCD延迟操作与一次性代码

使用GCD函数可以进行延时操作,该函数为 dispatch_after(dispatch_time(DISPATCH_TIME_NOW, (int64_t)(delayInSeconds * NSEC_PER_SEC)), dispatch_get_main_queue(), ^{ }); 现在我们来分解一下参数 dispatch_time(DISPATCH_TIME_NOW, (int64_t)(delayInSeconds * NSEC_PER_SEC)) : NSEC_PER_SEC在头文

无法执行添加/移除操作，因为代码元素 是只读的

刚刚学习用MFC编写嵌入式软件,各种问题接踵而来啊,在资源选项卡里面新建一个dialog后拖进去一个button按钮,想要添加这个空间的时间相应却怎么也不成功.会出现 提示框 “无法执行添加/移除操作,因为代码元素**是只读的”.根据提示去查看对应的.cpp和.h文件,发现并没有只读属性,没办法,求助于网络,发现这个问题还是挺普遍的,参考这篇文章后,保存现有工程后,在目录里面删掉.ncb文件后重新打开解决方案,问题解决. 另外还碰到一个情况,就是在属性栏点击“控件事件”后列表为空,不应该啊,比对