/**//***@param{Object}cont要導出的html元素內容的id,注意不要加雙引號*@param{Object}key分頁關鍵字*/functionAllAreaWord(cont,key){varoWD=newActiveXObject("Word.Application")" />

欧美三区_成人在线免费观看视频_欧美极品少妇xxxxⅹ免费视频_a级毛片免费播放_鲁一鲁中文字幕久久_亚洲一级特黄

JavaScript導出Word后對Word分頁的處理

系統 4102 0
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 " ?onclick = " javascript:AllAreaWord(test,'^'); " ?value = " 導出頁面指定區域內容到Word " />
????
</ body >
</ html >

其中是識別"^"來進行分頁的,當然可以改成其他

JavaScript導出Word后對Word分頁的處理


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

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

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦?。?!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 国内一级特黄女人精品片 | 国产在线精品观看 | av在线成人 | 亚洲高清免费观看 | 亚洲一区二区三区福利在线 | 久久精品视频在线播放 | 伊人狠狠丁香婷婷综合色 | 久久久久成人精品亚洲国产 | 2019中文字幕在线播放 | 国产拳头交一区二区 | 99热热99| 性欧美高清极品猛交 | 久久亚洲高清 | 色aaa| www视频免费观看 | 激情黄视频 | 亚洲 欧美 日韩在线 | 欧美综合伊人久久 | 久久婷婷色一区二区三区 | 国产高清成人 | 高清国语自产拍免费视频国产 | 中文字幕在线免费观看 | 欧美日韩成人一区二区 | 日韩在线免费视频观看 | 91精品国产综合久久久久久 | 91视频区 | 中文字幕日韩欧美一区二区三区 | 久草精品在线 | 观看av | 日韩精品一区二区三区不卡 | 国产亚洲欧洲国产综合一区 | 欧美精品黄页免费高清在线 | 国产欧美日韩综合精品一区二区 | 欧美国产激情二区三区 | 国产91色在线 | 亚洲 | 欧美一区二区三区久久 | 久草视频手机在线观看 | 亚洲精品久久婷婷丁香51 | 久久99草| 韩国A片国产浪潮AV 久久99国产精品 | 免费视频爱爱太爽了 |