html导出word

转自:http://www.lrsj.net/user1/4/archives/2007/287.html

js代码

 <script language="javascript"> 
500)this.style.width=500;" align=top>
function OpenWord()

Layer1.style.border
=0 

ExcelSheet 
= new ActiveXObject('word.Application'); 

ExcelSheet.Application.Visible 
= true

var mydoc=ExcelSheet.Documents.Add('',0,1); 

myRange 
=mydoc.Range(0,1

var sel=Layer1.document.body.createTextRange() 

sel.select() 

Layer1.document.execCommand(
'Copy'

sel.moveEnd(
'character'

myRange.Paste(); 

location.reload() 

ExcelSheet.ActiveWindow.ActivePane.View.Type
=9 

}
 

</script> 

html代码

 <html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>网页上内容导出到word</title> 

</head> 
<body> 
<div id="Layer1" > 
<input type=button name='button_export' title='导出到word' onclick=OpenWord() value=下载到word></div> 

</div> 

<table align="center" width="300" border="1" bordercolor="#2baeff" cellpadding="0" cellspacing="0" bgcolor="lightblue"> 

<Tr><Td>1</td><Td>2</td><Td>3</td></tr> 

<Tr><Td>4</td><Td>5</td><Td>6</td></tr> 

<Tr><Td>7</td><Td>8</td><Td>9</td></tr> 

</table> 
</body> 

</html> 

 

posted on 2008-01-17 11:31  老弹  阅读(2565)  评论(0编辑  收藏  举报

导航