需求是這樣的,導(dǎo)出html指定元素內(nèi)容為word,并按指定關(guān)鍵字分頁.
網(wǎng)上找了半天只有保存為word的方法.在csdn上向?qū)＜姨崃藛?沒人回啊555.
蹣跚學(xué)步開始了.
對(duì)于分頁,自己用vba錄制了
命令,然后用JavaScript調(diào)試出來的.
直接看代碼:
<html>
<HEAD>
<title>WEB頁面導(dǎo)出為Word文檔后分頁的方法 </title>
</HEAD>
<SCRIPT LANGUAGE="javascript">
/**//*
*
* @param {Object} cont 要導(dǎo)出的html元素內(nèi)容的id,注意不要加雙引號(hào)
* @param {Object} key 分頁關(guān)鍵字
*/
function AllAreaWord(cont,key)
{
var oWD = new ActiveXObject("Word.Application");
//默認(rèn)為頁面視圖
var oDC = oWD.Documents.Add("", 0, 0);
var oRange = oDC.Range(0, 1);
//var oRange1 = oDC.Range(0,2);
var sel = document.body.createTextRange();
//參數(shù)為html元素id
sel.moveToElementText(cont);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//得到打開后word的selection對(duì)象
var selection = oWD.Selection;
//設(shè)置字體大小
selection.Font.Size = 10;
//ctrl+A 全選操作
selection.WholeStory();
//清除格式
selection.Find.ClearFormatting();
//指定查找關(guān)鍵字
selection.Find.Text = key;
//^m為手動(dòng)分頁符標(biāo)記
//向下查找
selection.Find.Forward = true;
selection.Find.Wrap = 1;
//不區(qū)分大小寫
selection.Find.MatchCase = false;
//不匹配整個(gè)單詞
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" onclick="javascript:AllAreaWord(test,'^');" value="導(dǎo)出頁面指定區(qū)域內(nèi)容到Word"/>
</body>
</html>