1 <html>
2<head>
3 <title>測試HTML導出內容至WORD</title>
4  <script type="text/javascript" language="javascript">
5 //指定頁面區域內容導入Word
6  function exportToWord(controlId) {
7 var control = document.getElementById(controlId);
8 try {
9 var oWD = new ActiveXObject("Word.Application");
10 var oDC = oWD.Documents.Add("", 0, 1);
11 var oRange = oDC.Range(0, 1);
12 var sel = document.body.createTextRange();
13 try {
14 sel.moveToElementText(control);
15 } catch (notE) {
16 alert("導出數據失敗，沒有數據可以導出。");
17 window.close();
18 return;
19 }
20 sel.select();
21 sel.execCommand("Copy");
22 oRange.Paste();
23 oWD.Application.Visible = true;
24 //window.close();
25 }
26 catch (e) {
27 alert("導出數據失敗，需要在客戶機器安裝Microsoft Office Word(不限版本)，將當前站點加入信任站點，允許在IE中運行ActiveX控件。");
28 try { oWD.Quit(); } catch (ex) { }
29 //window.close();
30 }
31 }
32 </script>
33</head>
34<body>
35 <div id="TestDiv">
36 <div align="center">愛情公寓第三季成績表</div>
37
38 <table width="100%">
39 <tr>
40 <td style="background-color: #F50AE5; font-weight: bold;text-align:center">
41 名次
42 </td>
43 <td style="background-color: #F50AE5; font-weight: bold;text-align:center">
44 姓名
45 </td>
46 <td style="background-color: #F50AE5; font-weight: bold;text-align:center">
47 總分
48 </td>
49 </tr>
50 <tr>
51 <td style="text-align:center">
52 2012001
53 </td>
54 <td style="text-align:center">
55 曾小賢
56 </td>
57 <td style="text-align:center">
58 86
59 </td>
60 </tr>
61 <tr>
62 <td style="text-align:center">
63 2012002
64 </td>
65 <td style="text-align:center">
66 胡一菲
67 </td>
68 <td style="text-align:center">
69 85
70 </td>
71 </tr>
72 </table>
73 </div>
74 <div>
75 <div style="text-align:center">
76 <input type="button" value="導出到WORD" onclick="return exportToWord('TestDiv')" />
77 </div>
78</body>
79</html>
80
|