导出word分页与横向打印

转自:http://blog.csdn.net/mh942408056/article/details/13502051

[html]   view plain copy print ?
  1. <html>  
  2.     <HEAD>  
  3.         <title>WEB页面导出为Word文档后分页&横向打印的方法 </title>  
  4.     </HEAD>  
  5.     <SCRIPT LANGUAGE="javascript">  
  6.                 /**//**//**//*  
  7.                  *   
  8.                  * @param {Object} cont  要导出的html元素内容的id,注意不要加双引号  
  9.                  * @param {Object} key   分页关键字  
  10.                  */  
  11.                 function AllAreaWord(cont,key)  
  12.                 {  
  13.                     var oWD = new ActiveXObject("Word.Application");  
  14.                     //默认为页面视图  
  15.                     var oDC = oWD.Documents.Add("", 0, 0);  
  16.   
  17.                     //横向打印设置部分  
  18.                     oDC.PageSetup.LineNumbering.Active = false;  
  19.                     oDC.PageSetup.Orientation. wdOrientLandscape =  1; //设置为横向打印  
  20.                     oDC.PageSetup.TopMargin =  oDC.Application.CentimetersToPoints(3.17);  
  21.                     oDC.PageSetup.BottomMargin =  oDC.Application.CentimetersToPoints(3.17);  
  22.                     oDC.PageSetup.LeftMargin = oDC.Application.CentimetersToPoints(2.54);  
  23.                     oDC.PageSetup.RightMargin = oDC.Application.CentimetersToPoints(2.54);  
  24.                     oDC.PageSetup.Gutter = oDC.Application.CentimetersToPoints(0);  
  25.                     oDC.PageSetup.HeaderDistance = oDC.Application.CentimetersToPoints(1.5);  
  26.                     oDC.PageSetup.FooterDistance = oDC.Application.CentimetersToPoints(1.75);  
  27.                     oDC.PageSetup.PageWidth = oDC.Application.CentimetersToPoints(29.7);  
  28.                     oDC.PageSetup.PageHeight = oDC.Application.CentimetersToPoints(21);  
  29.                     oDC.PageSetup.FirstPageTray =  0;  
  30.                     oDC.PageSetup.OtherPagesTray = 0;  
  31.                     oDC.PageSetup.SectionStart =  2;  
  32.                     oDC.PageSetup.OddAndEvenPagesHeaderFooter = false;  
  33.                     oDC.PageSetup.DifferentFirstPageHeaderFooter = false;  
  34.                     oDC.PageSetup.VerticalAlignment = 0;  
  35.                     oDC.PageSetup.SuppressEndnotes = false;  
  36.                     oDC.PageSetup.MirrorMargins = false;  
  37.                     oDC.PageSetup.TwoPagesOnOne = false;  
  38.                     oDC.PageSetup.BookFoldPrinting = false;  
  39.                     oDC.PageSetup.BookFoldRevPrinting = false;  
  40.                     oDC.PageSetup.BookFoldPrintingSheets = 1  
  41.                     oDC.PageSetup.GutterPos = 0;  
  42.                     oDC.PageSetup.LayoutMode = 2;  
  43.   
  44.                     var oRange = oDC.Range(0, 1);  
  45.                     //var oRange1 = oDC.Range(0,2);  
  46.                     var sel = document.body.createTextRange();  
  47.                     //参数为html元素id   
  48.                     sel.moveToElementText(cont);  
  49.                     sel.select();  
  50.                     sel.execCommand("Copy");  
  51.                     oRange.Paste();  
  52.                     oWD.Application.Visible = true;  
  53.                     //得到打开后word的selection对象  
  54.                     var selection = oWD.Selection;  
  55.                     //设置字体大小  
  56.                     selection.Font.Size = 10;  
  57.                     //ctrl+A 全选操作  
  58.                     selection.WholeStory();  
  59.                     //清除格式  
  60.                     selection.Find.ClearFormatting();  
  61.                     //指定查找关键字  
  62.                     selection.Find.Text = key;  
  63.                     //^m为手动分页符标记  
  64.                     //向下查找  
  65.                     selection.Find.Forward = true;  
  66.                     selection.Find.Wrap = 1;  
  67.                     //不区分大小写  
  68.                     selection.Find.MatchCase = false;  
  69.                     //不匹配整个单词  
  70.                     selection.Find.MatchWholeWord = false;  
  71.                     //如果找到指定字符串返回真,否则返回false  
  72.                     while (selection.Find.Execute())   
  73.                     {  
  74.                         //插入分页符,分页符常量为7,具体可查word api  
  75.                         selection.InsertBreak(7);  
  76.                     }  
  77.                       
  78.                     //保存word文档为test.doc  
  79.                     oDC.SaveAs("test.doc");  
  80.                 }  
  81.     </SCRIPT>  
  82.     <body>  
  83.         <BR>  
  84.         <div id="test">  
  85.             aaa  
  86.             ^  
  87.             bbb  
  88.             ^  
  89.             ccc  
  90.         </div>  
  91.         <input type="button" onclick="javascript:AllAreaWord(test,'^');" value="导出页面指定区域内容到Word"/>  
  92.     </body>  
  93. </html> 



  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值