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

< 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文档后分页横向打印的方法相关推荐

关于FreeMarker生成word文档后转换为pdf得解决方法及常见问题
关于FreeMarker生成word文档后转换为pdf得解决方法及常见问题最近在做一个项目要求之前下载出的word简历直接变成pdf 格式进行展现.因为格式比较复杂,所以采用的时模板并用Freema ...
只涉及前端，将html页面导出成word文档
用docxtemplater插件,前端实现html导出word文档(可导出文字.表格.图片) 下面我用的是vue框架,用其他框架同理,只要这个插件能兼容就行官方文档https://docxtempl ...
图片插入word文档后清晰度降低的解决方法
在默认情况下,word程序会自动压缩插入word文档中的图片以减小整个word文档的.当我们需要插入word文档中的图片保持原始清晰度时,可以通过设置word选项解决这个问题,步骤如下: 1. 点击& ...
页面切换到word文档后，鼠标总是转圈怎么办？
1.点击右上角的File 2.点击选项 3.先点击加载项,再点击转到 4.取消不常用加载项前面的√,然后点击确定就可以了
前端实现HTML导出为word文档
需求:将页面或者页面上所需要的部分导出为word文档基本导出修改样式修改图片大小修改导出文档名称修改导出默认方式准备工作: jquery FileSaver.js jquery.worde ...
计算机中分页符号是什么,电脑word文档中分页符如何插入
电脑word文档中分页符如何插入腾讯视频/爱奇艺/优酷/外卖充值4折起我们在使用word文档办公的时候,有时需要使用到分页符,那么今天小编告诉大家的是电脑word文档中分页符如何插入. 具体如下 ...
如何将word文档放入html页面,怎么将Word文档转换为Web页面
为了方便将Word文档在互联网上和局域网上发布,需要将文档保存为Web页面文件.将文档保存为Web页面,这种页面文件使用HTML文件格式.以下是学习啦小编为您带来的关于将Word文档转换为Web页面的 ...
Java项目中利用Freemarker模板引擎导出--生成Word文档
应邀写的一篇文章:Java项目中利用Freemarker模板引擎导出--生成Word文档资源下载:https://download.csdn.net/download/weixin_41367523 ...
将HTML导出生成word文档
前言: 项目开发中遇到了需要将HTML页面的内容导出为一个word文档,所以有了这边随笔. 当然,项目开发又时间有点紧迫,第一时间想到的是用插件,所以百度了下.下面就介绍两个导出word文档的方法. ...

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

WEB页面导出为Word文档后分页横向打印的方法相关推荐

最新文章

热门文章