WEB页面导出为Word文档后分页&横向打印的方法

supercrsky

浏览: 215814 次
性别:
来自: 北京

最近访客更多访客>>

lehmann_ding

gxpcw

痞夫balabala

liduke1020

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

项目中用到了横向打印,今天重新更新了这个脚本.

<html>

<HEAD>

<title>WEB页面导出为Word文档后分页&横向打印的方法 </title>

</HEAD>

/**//*

* @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>

aaa

bbb

ccc

</div>

</body>

</html>

执行此脚本一定要打开"对没有安全验证的Active 控件 " 为启用状态.(IE选项)

分享到：

冲击多个Input File赋值兼解决中文赋值问题 | Flash图片轮换显示的效果抽取

2008-08-20 11:34
浏览 797
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论