操作 WebOffice.ocx 代码集合 / 憋错料

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. 
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-08-02 10:50:23

操作 WebOffice.ocx 代码集合

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

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

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

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

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

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

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

jquery操作单选钮代码示例

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

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