本文介绍了一种使用JavaScript和ActiveX将HTML表格内容导出到Microsoft Word的方法。通过简单的按钮点击操作，网页上的表格数据即可被复制并粘贴到Word文档中。
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
<html>2
<head>3
<title>测试HTML导出内容至WORD</title>4
<script type="text/javascript" language="javascript">5
//指定页面区域内容导入Word6
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
201200153
</td>54
<td style="text-align:center">55
曾小贤56
</td>57
<td style="text-align:center">58
8659
</td>60
</tr>61
<tr>62
<td style="text-align:center">63
201200264
</td>65
<td style="text-align:center">66
胡一菲67
</td>68
<td style="text-align:center">69
8570
</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
扫一扫
2798
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
