http://www.blogjava.net/supercrsky/archive/2008/07

talangniao · 发表于 2013-2-7 17:52:27

JavaScript导出Word后对Word分页的处理

<div class="postText">需求是这样的,导出html指定元素内容为word,并按指定关键字分页.
网上找了半天只有保存为word的方法.在csdn上向专家提了问,没人回啊555.
蹒跚学步开始了.
对于分页,自己用vba录制了
命令,然后用JavaScript调试出来的.

直接看代码:
<div style="border: 1px solid #cccccc; padding: 4px 5px 4px 4px; font-size: 13px; width: 98%; background-color: #eeeeee;">

<html>

<HEAD>

<title>WEB页面导出为Word文档后分页的方法 </title>

</HEAD>

/**//*

*

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

aaa

^

bbb

^

ccc

</div>

</body>

</html>

		自动登录	找回密码
密码			立即注册