将网页内容导出到word文档中

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>网页上内容导出到word</title>

<script language="javascript">

function OpenWord(){

Layer1.style.border=0

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

word.Application.Visible = true;

var mydoc=word.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()

word.ActiveWindow.ActivePane.View.Type=9

}

</script>

</head>

<body>

<div id="Layer1" >EKING

<input type=button name='button_export' title='导出到word' onclick="OpenWord()" value="导出到word"></div>

</div>

<p>测试导出--javascript</p>

<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>

注意:要将active安全设置打开,不然就没反应

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航