項目中用到了橫向打印,今天重新更新了這個腳本.
<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);
//橫向打印設置部分
oDC.PageSetup.LineNumbering.Active = false;
oDC.PageSetup.Orientation. wdOrientLandscape = 1; //設置為橫向打印
oDC.PageSetup.TopMargin = oDC.Application.CentimetersToPoints(3.17);
oDC.PageSetup.BottomMargin = oDC.Application.CentimetersToPoints(3.17);
oDC.PageSetup.LeftMargin = oDC.Application.CentimetersToPoints(2.54);
oDC.PageSetup.RightMargin = oDC.Application.CentimetersToPoints(2.54);
oDC.PageSetup.Gutter = oDC.Application.CentimetersToPoints(0);
oDC.PageSetup.HeaderDistance = oDC.Application.CentimetersToPoints(1.5);
oDC.PageSetup.FooterDistance = oDC.Application.CentimetersToPoints(1.75);
oDC.PageSetup.PageWidth = oDC.Application.CentimetersToPoints(29.7);
oDC.PageSetup.PageHeight = oDC.Application.CentimetersToPoints(21);
oDC.PageSetup.FirstPageTray = 0;
oDC.PageSetup.OtherPagesTray = 0;
oDC.PageSetup.SectionStart = 2;
oDC.PageSetup.OddAndEvenPagesHeaderFooter = false;
oDC.PageSetup.DifferentFirstPageHeaderFooter = false;
oDC.PageSetup.VerticalAlignment = 0;
oDC.PageSetup.SuppressEndnotes = false;
oDC.PageSetup.MirrorMargins = false;
oDC.PageSetup.TwoPagesOnOne = false;
oDC.PageSetup.BookFoldPrinting = false;
oDC.PageSetup.BookFoldRevPrinting = false;
oDC.PageSetup.BookFoldPrintingSheets = 1
oDC.PageSetup.GutterPos = 0;
oDC.PageSetup.LayoutMode = 2;
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);
}
//保存word文檔為test.doc
oDC.SaveAs("test.doc");
}
</SCRIPT>
<body>
<BR>
<div id="test">
aaa
^
bbb
^
ccc
</div>
<input type="button" onclick="javascript:AllAreaWord(test,'^');" value="導出頁面指定區域內容到Word"/>
</body>
</html>
執行此腳本一定要打開"對沒有安全驗證的Active 控件 " 為啟用狀態.(IE選項)