项目中用到了横向打印,今天重新更新了这个脚本.
<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选项)
分享到:
相关推荐
WEB页面导出为WORD,EXCEL文档的方法(源代码)
WEB页面导出为EXCEL,Word文档的方法。利用网页js直接导出word和excel!
WEB页面导出为EXCEL,word文档的方法,
asp.net 数据导出word 横向 分页
说明: 用C#实现“将Web网页导出至Word文档”^_^
js将HTML导出生成word文档,方式简单,不需要修改浏览器配置,引入两个js就可以解决该问题,亲测有效
支持php、thinkphp进行将html页面直接导出为word,样式可一并导出为word
js导出Word默认页面视图、横向显示、分栏、设置固定页眉
应用JS实现,TinyMCE富文本编辑器导出为word文档,可解决图片,表格的导出,这是实现的demo,可以直接取用
本地测试通过,如果你上传到服务器上在浏览器却报 Automation 服务器不能创建对象 的错误的话,把工具->internet->安全里面的做一下修改
在日常的开发工作中,我们时常会遇到导出Word文档报表的需求,比如公司的财务报表、医院的患者统计报表、电商平台的销售报表等等。 导出Word方式多种多样,通常有以下几种方式: 1. 使用第三方Java工具类库Hutool的...
java:多个图片导出到word文档里显示,用于打印图片导出
DBExportDoc V1.0 For Oracle(Oracle数据库表结构导出器)是一套用来完成将Oracle数据库中的表结构导出成Word文档,并输出标准的打印报表格式的软件。 软件采用Word中VBA开发完成,软件使用Word中的菜单操作,与...
本人编写的Web(C#)导出Word文档的小例子,小Demo,希望能帮助你
Apifox导出word版接口文档-模板
最近因项目开发的需要,整理了一份用JAVA导出WORD文档,其部署步骤如下: 1、将jacob-1.14.3-x86.dll放在服务器的系统盘(或运行本机的系统):\WINDOWS\system32目录下。 2、将jacob-1.14.3-x86.dll放在JDK 的 bin ...
使用freemarker技术,首先将word模板另存为xml文档,方便填充数据。然后将后缀名改为ftl,简单方便.
一款很好用的数据库结构说明导出Word文档工具,它能够按数据库设计逻辑和说明生成WORD文档,是给客户设计方案非常好的工具。
ASP实现web分页打印及web页面导出Excel文件.pdf
.net网页内容自动导出成word文档 .net网页内容自动导出成word文档 .net网页内容自动导出成word文档