/**//***@param{Object}cont要導(dǎo)出的html元素內(nèi)容的id,注意不要加雙引號(hào)*@param{Object}key分頁(yè)關(guān)鍵字*/functionAllAreaWord(cont,key){varoWD=newActiveXObject("Word.Application")" />

日韩久久久精品,亚洲精品久久久久久久久久久,亚洲欧美一区二区三区国产精品 ,一区二区福利

JavaScript導(dǎo)出Word后對(duì)Word分頁(yè)的處理

系統(tǒng) 4498 0
html >
????
< HEAD >
????????
< title > WEB頁(yè)面導(dǎo)出為Word文檔后分頁(yè)的方法? </ title >
????
</ HEAD >
????
< SCRIPT?LANGUAGE = " javascript " >
????????????????
/**/ /*
?????????????????*?
?????????????????*?@param?{Object}?cont??要導(dǎo)出的html元素內(nèi)容的id,注意不要加雙引號(hào)
?????????????????*?@param?{Object}?key???分頁(yè)關(guān)鍵字
?????????????????
*/

????????????????
function ?AllAreaWord(cont,key)
????????????????
{
????????????????????
var ?oWD? = ? new ?ActiveXObject( " Word.Application " );
????????????????????
// 默認(rèn)為頁(yè)面視圖
???????????????????? 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 ;
????????????????????
// 得到打開(kāi)后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)分頁(yè)符標(biāo)記
???????????????????? // 向下查找
????????????????????selection.Find.Forward? = ? true ;
????????????????????selection.Find.Wrap?
= ? 1 ;
????????????????????
// 不區(qū)分大小寫(xiě)
????????????????????selection.Find.MatchCase? = ? false ;
????????????????????
// 不匹配整個(gè)單詞
????????????????????selection.Find.MatchWholeWord? = ? false ;
????????????????????
// 如果找到指定字符串返回真,否則返回false
???????????????????? while ?(selection.Find.Execute())?
????????????????????
{
????????????????????????
// 插入分頁(yè)符,分頁(yè)符常量為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)出頁(yè)面指定區(qū)域內(nèi)容到Word " />
????
</ body >
</ html >

其中是識(shí)別"^"來(lái)進(jìn)行分頁(yè)的,當(dāng)然可以改成其他

JavaScript導(dǎo)出Word后對(duì)Word分頁(yè)的處理


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號(hào)聯(lián)系: 360901061

您的支持是博主寫(xiě)作最大的動(dòng)力,如果您喜歡我的文章,感覺(jué)我的文章對(duì)您有幫助,請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點(diǎn)擊下面給點(diǎn)支持吧,站長(zhǎng)非常感激您!手機(jī)微信長(zhǎng)按不能支付解決辦法:請(qǐng)將微信支付二維碼保存到相冊(cè),切換到微信,然后點(diǎn)擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對(duì)您有幫助就好】

您的支持是博主寫(xiě)作最大的動(dòng)力,如果您喜歡我的文章,感覺(jué)我的文章對(duì)您有幫助,請(qǐng)用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長(zhǎng)會(huì)非常 感謝您的哦!!!

發(fā)表我的評(píng)論
最新評(píng)論 總共0條評(píng)論
主站蜘蛛池模板: 方城县| 昭苏县| 广丰县| 思南县| 如东县| 成都市| 于田县| 泊头市| 桐梓县| 金堂县| 东台市| 临漳县| 互助| 蒲江县| 景德镇市| 石城县| 开封县| 五台县| 互助| 阳新县| 察哈| 石首市| 尼木县| 西峡县| 岗巴县| 枣强县| 郑州市| 合江县| 梁平县| 沾益县| 合水县| 墨江| 青浦区| 安吉县| 衡阳市| 西峡县| 五常市| 禄劝| 梅州市| 湖北省| 维西|