WEB页面导出为Word文档后分页的方法

最新推荐文章于 2024-04-25 19:33:58 发布

iteye_3561

最新推荐文章于 2024-04-25 19:33:58 发布

阅读量401

点赞数

分类专栏： javascript基础文章标签： Web JavaScript HTML XHTML ViewUI

本文链接：https://blog.csdn.net/iteye_3561/article/details/81727973

版权

javascript基础专栏收录该内容

11 篇文章 0 订阅

订阅专栏

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
    <HEAD>
        <title>WEB页面导出为Word文档后分页的方法 </title>
    </HEAD>
    <SCRIPT LANGUAGE="javascript">
                /**//*
                 * 
                 * @param {Object} cont  要导出的html元素内容的id,注意不要加双引号
                 * @param {Object} key   分页关键字
                 */
                function AllAreaWord(cont,key)
                {
                    var oWD = new ActiveXObject("Word.Application");
                    //默认为页面视图
                    var oDC = oWD.Documents.Add("", 0, 0);
                    var oRange = oDC.Range(0, 1);
                    //var oRange1 = oDC.Range(0,2);
                    var sel = document.body.createTextRange();
                    //参数为html元素id 
                    sel.moveToElementText(cont);
                    sel.select();
                    sel.execCommand("Copy");
                    oRange.Paste();
                    oWD.Application.Visible = true;
                    //得到打开后word的selection对象
                    var selection = oWD.Selection;
                    //设置字体大小
                    selection.Font.Size = 10;
                    //ctrl+A 全选操作
                    selection.WholeStory();
                    //清除格式
                    selection.Find.ClearFormatting();
                    //指定查找关键字
                    selection.Find.Text = key;
                    //^m为手动分页符标记
                    //向下查找
                    selection.Find.Forward = true;
                    selection.Find.Wrap = 1;
                    //不区分大小写
                    selection.Find.MatchCase = false;
                    //不匹配整个单词
                    selection.Find.MatchWholeWord = false;
                    //如果找到指定字符串返回真,否则返回false
                    while (selection.Find.Execute()) 
                    {
                        //插入分页符,分页符常量为7,具体可查word api
                        selection.InsertBreak(7);
                    }
                }
    </SCRIPT>
    <body>
        <BR>
        <div id="test">
            aaa
            ^
            bbb
            ^
            ccc
        </div>
        <input type="button" οnclick="javascript:AllAreaWord(test,'^');" value="导出页面指定区域内容到Word"/>
    </body>
</html>