Word，excel开发指南
New Document
| dfsdfds | &dsfds | &sdf; | dsf |
| dsf | dsfds | fsdfdsfdsf | dsfs |
| dsfds | dsf | dsfd | sfds |
| sdf | fdsf |
nextpage
| dfsdfds | &dsfds | &sdf; | dsf |
| dsf | dsfds | fsdfdsfdsf | dsfs |
| dsfds | dsf | dsfd | sfds |
| sdf | fdsf |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<script language="javascript">
function outputWord(elementID,HorV,pagekey){
var sel = document.body.createTextRange(); //var sel = object.createTextRange()创建可操作区域，用来在内从中编辑，sel.select()为全选，sel.execCommand("Copy");执行复制命令
var obj = document.getElementById(elementID);//获取网页对象
sel.moveToElementText(obj); //将sel区域选中到obj对象结尾
sel.select();
sel.execCommand("Copy"); //执行复制命令，将内容放入粘贴板
try{
var wordObj = new ActiveXObject("Word.Application"); //创建Word应用程序对象wordObj
}catch(e)
{
alert("无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！");
return;
}
var word = wordObj.Documents.Add("",0,1);//不打开模版直接加入内容,创建空白Word文档
//var word = wordObj.documents.open("c:\\ba.doc"); //此处为打开已有的模版，打开已存word文档,会把新内容插入文档最前端
if (HorV!="")
{
//横向打印设置部分
word.PageSetup.LineNumbering.Active = false;
word.PageSetup.Orientation. wdOrientLandscape = 1; //设置为横向打印
word.PageSetup.TopMargin = word.Application.CentimetersToPoints(3.17);
word.PageSetup.BottomMargin = word.Application.CentimetersToPoints(3.17);
word.PageSetup.LeftMargin = word.Application.CentimetersToPoints(2.54);
word.PageSetup.RightMargin = word.Application.CentimetersToPoints(2.54);
word.PageSetup.Gutter = word.Application.CentimetersToPoints(0);
word.PageSetup.HeaderDistance = word.Application.CentimetersToPoints(1.5);
word.PageSetup.FooterDistance = word.Application.CentimetersToPoints(1.75);
word.PageSetup.PageWidth = word.Application.CentimetersToPoints(29.7);
word.PageSetup.PageHeight = word.Application.CentimetersToPoints(21);
word.PageSetup.FirstPageTray = 0;
word.PageSetup.OtherPagesTray = 0;
word.PageSetup.SectionStart = 2;
word.PageSetup.OddAndEvenPagesHeaderFooter = false;
word.PageSetup.DifferentFirstPageHeaderFooter = false;
word.PageSetup.VerticalAlignment = 0;
word.PageSetup.SuppressEndnotes = false;
word.PageSetup.MirrorMargins = false;
word.PageSetup.TwoPagesOnOne = false;
word.PageSetup.BookFoldPrinting = false;
word.PageSetup.BookFoldRevPrinting = false;
word.PageSetup.BookFoldPrintingSheets = 1
word.PageSetup.GutterPos = 0;
word.PageSetup.LayoutMode = 2;
}
word.ShowGrammaticalErrors = false; //屏蔽语法检查
word.ShowSpellingErrors = false; //屏蔽拼写错误
//var oRange = word.Range(0,1);//在word中创建连续区域，打开文档的区域，选中0到1的字符
//oRange.Paste(); //粘贴1：将粘贴板内容存入word选中区域中
wordObj.Selection.Paste();//粘贴2：或者直接粘贴到新建的word中 if (pagekey!="")
{
var selection = wordObj.Selection;//得到打开后word的selection对象
//selection.Font.Size = 10; //设置字体大小
selection.WholeStory(); //ctrl+A 全选操作
selection.Find.ClearFormatting(); //清除格式
selection.Find.Text = pagekey; //指定查找关键字
selection.Find.Forward = true; //向下查找
selection.Find.Wrap = 1;//向下查找
selection.Find.MatchCase = false; //不区分大小写
selection.Find.MatchWholeWord = false; //不匹配整个单词 while (selection.Find.Execute()) //如果找到指定字符串返回真,否则返回false
{
selection.InsertBreak(7);//插入分页符,分页符常量为7,具体可查word api
}
} wordObj .Application.Visible = true;
//word .saveAs("c:\\ba.doc"); //存放到指定的位置注意路径一定要是“\\”不然会报错
wordObj.ActiveWindow.ActivePane.View.Type=3;//设置浏览模式:1--为普通视图，2---大纲视图，3--页面视图， 4---web视图预览模式，5---大纲视图，6---web视图，7---阅读板式
wordObj.Application.close;
wordObj=null;
} function outputExcel(elementID){
var sel = document.body.createTextRange();
var obj = document.getElementById(elementID);
sel.moveToElementText(obj);
sel.select();
sel.execCommand("Copy"); try{
var excelObj = new ActiveXObject("Excel.Application"); //创建Word应用程序对象wordObj
}catch(e)
{
alert("无法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！");
return;
}
var excel = excelObj.Workbooks.Add();//新建excel表
var sheet = excel.ActiveSheet;//设置新加表为当前表
sheet.Paste();
sheet.Cells.NumberFormatLocal = "@"; //设置单元格格式
sheet.Columns("A:D").Select;//选中第A列到第D列，如果只选D列为D:D
excelObj.Selection.ColumnWidth = 50;//设置选中列的宽度
sheet.Rows("1:5").Select;//选中第1行到第5行，如果只选2列为2
excelObj.Selection.RowHeight = 50;//设置选中行的高度
excelObj.Visible = true;
sheet = null;
excel = null;
excelObj = null;
}
</script>
<body>
<div id="prints">
<table width="100%" border="1" id="PrintA">
<tr><td>dfsdfds</td><td>&dsfds</td><td>&sdf;</td><td>dsf</td></tr>
<tr><td>dsf</td><td>dsfds</td><td>fsdfdsfdsf</td><td>dsfs</td></tr>
<tr><td>dsfds</td><td>dsf</td><td>dsfd</td><td>sfds</td></tr>
<tr><td> </td><td>sdf</td><td>fdsf</td><td> </td></tr>
</table>
nextpage
<table width="100%" border="1" id="PrintA">
<tr><td>dfsdfds</td><td>&dsfds</td><td>&sdf;</td><td>dsf</td></tr>
<tr><td>dsf</td><td>dsfds</td><td>fsdfdsfdsf</td><td>dsfs</td></tr>
<tr><td>dsfds</td><td>dsf</td><td>dsfd</td><td>sfds</td></tr>
<tr><td> </td><td>sdf</td><td>fdsf</td><td> </td></tr>
</table>
<input type="button" onclick="javascript:outputWord('prints','','');" value="导出页面指定区域内容到Word"></input>
<input type="button" onclick="javascript:outputExcel('prints');" value="导出页面指定区域内容到Excel"></input>
</div>
</body>
</html>
Word，excel开发指南的更多相关文章
- Java解析OFFICE(word,excel,powerpoint)以及PDF的实现方案及开发中的点滴分享
Java解析OFFICE(word,excel,powerpoint)以及PDF的实现方案及开发中的点滴分享 在此,先分享下写此文前的经历与感受,我所有的感觉浓缩到一个字,那就是:"坑&qu ...
- 微信小程序云开发-云存储-下载并打开文件文件（word/excel/ppt/pdf）
一.wxml文件 1.写文本框,用来获取文件链接. 2.按钮,点击下载文件 <!-- 下载文件(word/excel/ppt/pdf等) --> <view class=" ...
- 微信小程序云开发-云存储-上传文件（word/excel/ppt/pdf）到云存储
说明 word/excel/ppt/pdf是从客户端会话选择文件.使用chooseMessageFile中选择文件. 一.wxml文件 上传按钮,绑定chooseFile <!--上传文件(wo ...
- VSTO开发指南（VB2013版） 第一章 Office对象模型
完美地将visual basic和office 办公软件结合起来.来自微软公司VSTO小组的权威专家所编著. 全书共712页,内容极其全面而深入,猛一看,厚地犹如庞然大物.看完离大神就不远了哦< ...
- 浅谈Excel开发：八 Excel 项目的安装部署
前面几篇文章讲解了Excel开发的几个比较主要的也是比较重要的方面,比如菜单系统,Excel对象模型,自定义函数,RTD函数,异步自定义函数,用户自定义任务面板等,在实际开发中我们还会遇到各种“千奇百 ...
- 浅谈Excel开发：七 Excel 自定义任务窗体
前面花了三篇文章讲解了Excel中的UDF函数,RTD函数和异步UDF函数,这些都是Excel开发中的重中之重.本文现在开始接着第二篇文章的菜单系统开始讲解Excel中可供开发的界面元素,本文要讲解的 ...
- 浅谈Excel开发：一 Excel 开发概述
做Office相关的开发工作快一年多了,在这一年多里,在插件的开发中遇到了各种各样的问题和困难,还好同事们都很厉害,在和他们的交流讨论中学到了很多的知识.目前Office相关的开发资料是比较少 ...
- ASP.NET Word/Excel 权限问题
在部署Word/Excel到服务器的时候,经常会碰到权限问题.例如; Retrieving the COM class factory for component with CLSID {0002 ...
- 企业门户（Portal）项目实施方略与开发指南
<企业门户(Portal)项目实施方略与开发指南> 基本信息 作者: 郑文平 丛书名: 企业大型应用集成丛书 出版社:电子工业出版社 ISBN:9787121211843 上架时间: ...
随机推荐
- ghost之后仍然中病毒----与病毒的斗争
ghost之后仍然中病毒----与病毒的斗争我的电脑系统是XP,从来都没有安装任何杀毒软件,所有的软件都是安装在C盘的,感觉系统卡顿就用Windows一键还原(基于DOS下的ghost)还原一下,一直 ...
- 【剑指offer】两个栈实现队列
用两个栈来实现一个队列,完成队列的Push和Pop操作. 队列中的元素为int类型. public class Solution { Stack<Integer> stack ...
- RPM安装MYSQL5.7
RPM安装MYSQL5.7 1:YUM安装依赖库 yum install perl libaio numactl 2:下载安装需要的RPM包 https://dev.mysql.com/get/Dow ...
- Django的模板层简介
Django的模板层 如果我们想要利用视图函数返回一个页面,一种比较简单的方式是利用HttpResponse()方法返回一个含有html内容的字符串: def current_datetime(req ...
- Unreal Engine 4 Smear Frame效果的实现与分析
转自:http://www.52vr.com/article-868-1.html 这篇文章介绍了类似守望先锋中的帧转移模糊(Smear Frame)效果. 该效果由Jan Kaluza实现,本博 ...
- CRM 2016 IFrame_A嵌入 EXT.net 页面 a.aspx，刷新另一IFrame_B嵌入 b.aspx gird.
说白了就是一个IFrame页面,执行另一IFrame页面的函数. a.aspx JS: parent.Xrm.Page.getControl("IFRAME_B").getObj ...
- delphi正则表达式学习笔记（一）
在 Delphi 中是没有自带的正则表达式库的,在网上能找到的用于 Delphi 的正则表达式类大体上有两个,分别是 PerlRegEx 和 RegExpr. 前者相当强大,但发布程序时需要带上他的一 ...
- hive类型转化错误，会错误提示指定分区参数
select * from TRAD_LIST t WHERE t.dt >= '2017-10-18' and t.dt <= '2017-11-01' and t.con_level ...
- Github上 vue-element-admin项目配置
Github对应地址 https://github.com/PanJiaChen/vue-element-admin 其中git为最新版本才支持github 的 clone代码 步骤如下 # clo ...
- Java调用Jenkins接口实现远程发版
主要有以下几个要点: 1.在 Manage Jenkins 中设置Configure Global Security(主要是设置CSRF Protection中的prevent cross site ...