• 首页
  • 小学语文
  • 中学语文
  • 中学英语
  • 免费论文
  • 教学随笔
  • 学生作文
  • 综合考试
  • 试题教案
  • 育儿话题
  • 教学资源
  • 编程技术
  • 博客
  • 网页上内容导出到word里

    日期:2003-02-22  地址:  作者:

    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>网页上内容导出到word</title>
    </head>
    <body>
    <div id="Layer1" >Happy New Year ! ! !
    <input type=button name='button_export' title='导出到word'  onclick=OpenWord() value=下载到word></div>
    </div>

    <p>this is a test!</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>
    <script language="javascript">
    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>

    对 网页上内容导出到word里 文章的评论    [查看网友评论]

    验证码:
    匿名发表: