转自:http://blog.csdn.net/mh942408056/article/details/13502051
- <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>