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分頁的處理