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
|