JavaScript导出Word后对Word分页的处理 _前端js导出word强制分页-CSDN博客

<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">
          <DIV><A href="/tag/asp">asp</A> 相关文章</DIV>
          <DIV>
            <TABLE>
              <TBODY>
                <TR>
                  <TD><A href="/item/8n">用JSP/ASP创建WAP应用</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/e9">在线建库</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/ea">VBscript 类的设计（二）</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/eb">MDAC2.8 下载！</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/ec">VC打印实践浅谈</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/ed">用asp修改注册表!!!!!!!!!!!!</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/ee">移动MISC1.6平台的Provision接口（短信定制关系同步接口）</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/ef">一个奇怪的错误，大家要当心呀（花了我大半天的时间）！</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/eg">在web.config中添加连接字符串</A></TD>
                </TR>
                <TR>
                  <TD><A href="/item/eh">避免重复定义数组</A></TD>
                </TR>
              </TBODY>
            </TABLE>
          </DIV>
        </div>
        <input type="button" onClick="javascript:AllAreaWord(test,'^');" value="导出页面指定区域内容到Word"/>
    </body>
</html>

其中是识别"^"来进行分页的，当然可以改成其他

主题：JavaScript将数据导出到Word打印启动Word进程过多,如何关闭或只启动一个？

现在是有许多页面从后台取的数据都通过JavaScript 导出到Word打印后，如果不打印的话好像是只启动一个Word进程，但在使用了wordApp.ActiveDocument.printout();后，每次都会启动一个Word进程并且无法关闭，这样如果使用久了肯定得死机，请问在打印完后如何关闭Word或者说只启动一个进程？谢谢！！

因为用些都是使用了Word模板，所以直接使用IE打印不考虑

代码如下：
function AllAreaWord()
{
   var wordApp = null;
    try{
        wordApp = new ActiveXObject('Word.Application');    }catch(e)
    {
        alert(e+', 原因分析: 浏览器安全级别较高导致不能创建Word对象或者客户端没有安装Word软件');
          return;
    }
   var oDC = wordApp.Documents.Add("",0,1);
   wordApp.Application.Visible = false;
   var oRange =oDC.Range(0,1);
   var sel = document.body.createTextRange();
   sel.moveToElementText(PrintA);
   sel.select();
   sel.execCommand("Copy");
   wordApp.Application.Visible = false;
   oRange.Paste();
    wordApp.visible = false;
    wordApp.ActiveDocument.printout();
    wordApp.Application.ActiveDocument.SaveAs("c:/tempSample.doc",true);
    wordApp.ActiveDocument.close();
    ActiveWindow.Close();
    wordApp=null;
    wordApp.Quit();

    idTmr = window.setInterval("Cleanup();",1);

   window.close();
}