用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表

原创 2004年09月07日 10:22:00
   var title = document.forms[0].title.value    //取报表标题
     if (title.length<1 )
     {
       alert("报表数据不存在,请进行统计")
       return;
     }
    
     var ksrq = document.forms[0].bbksrq.value
     var jsrq = document.forms[0].bbjsrq.value
     var row_count = document.forms[0].row_count.value
     var col_count = document.forms[0].col_count.value
     var zd = document.forms[0].zd.value
     var context = document.forms[0].context.value
     var temp
    
     var i=0,n =0
     var vzd = new Array();
     var vcontext = new Array();
     var vcontext1 = new Array();
     vzd = zd.split("//");
   
 var WordApp=new ActiveXObject("Word.Application");    //得到WORD对象
   
 var wdCharacter=1
 var wdOrientLandscape = 1
 WordApp.Application.Visible=true;
 var myDoc=WordApp.Documents.Add();
 
     WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
 
 
     WordApp. Selection.ParagraphFormat.Alignment=0  //居中对齐
 WordApp. Selection.Font.Bold=true
     WordApp. Selection.Font.Size=20
    
     WordApp. Selection.TypeText(title+"("+ksrq+"至"+jsrq+")");
     WordApp. Selection.MoveRight(wdCharacter);    //光标右移字符
     WordApp.Selection.TypeParagraph()         //插入段落
     WordApp.Selection.TypeParagraph()         //插入段落
    
    
    
    var myTable=myDoc.Tables.Add (WordApp.Selection.Range, row_count,col_count)  //五行4列的表格
     
     
     
     var TableRange;  //以下为给表格中的单元格赋值
     for (i= 0;i<vzd.length;i++)
     {
     with (myTable.Cell(1,i+1).Range)
     {font.Size = 12;
 InsertAfter(vzd[i]);
 }
 }
 
 for (i =0;i<row_count-1;i++)
 {
 vcontext = context.split("<纵标>")
 for (n =0;n<col_count ;n++)
 {
 temp = vcontext[i]
     vcontext1 = temp.split("<标记>")
    
     with (myTable.Cell(i+2,n+1).Range)
     {font.Size = 12;  
 InsertAfter(vcontext1[n]);
 }
}
}
     row_count = 0;
     col_count = 0
 myDoc.Protect(1)

Word文档格式混乱出错等排版问题的解决方法

编辑文档的时候,很多同学都苦恼于格式混乱、出错。文字过胖或过瘦等问题。这里,小编就教各位几招,学会后就基本可以对付文档啦。(PS:小编使用的是WORD2013,不过各个版本之间的布局一致,不用担心不适...
  • baidu_36847344
  • baidu_36847344
  • 2016年12月12日 16:26
  • 3103

Word文档换台电脑打开后字体、排版等会发生变化的原因及解决方案!

Word文档换台电脑打开后字体、排版等会发生变化的原因及解决方案!(帮你解决困扰已久的烦恼)...
  • yangyisen0713
  • yangyisen0713
  • 2015年06月04日 10:33
  • 11173

Qt利用QGraphicsScene编写Word排版工具导出PDF

自定义Graphics图形系统 HNGraphicsItem HNGraphicsScene Word排版工具 HNWordExpress HNReport本篇的目的是编写一个工具,能够方便的对富文本...
  • Dr_Abel
  • Dr_Abel
  • 2016年05月05日 23:13
  • 1855

如何在Word中排出漂亮的代码

本文介绍,如何在office2007版本以上的Word中,排版出漂亮的代码,包括行号、底纹的设置。主要工具是Notepad++。...
  • DaiHaoC83E15
  • DaiHaoC83E15
  • 2014年12月08日 15:58
  • 22410

WORD编号排版

假设你的二级编号为: 1.1 内容   回车后将自动变成1.2 了,这时你直接按Tab键,它将自动生成三级编号1.1.1 ,同理,当你三级编号的内容全部输完,比如到了1.1.5,回车自动生成1.1....
  • wangqi0079
  • wangqi0079
  • 2013年07月03日 23:48
  • 7512

毕业论文排版心得 Word 2010 (未完待续)

写了一个月,今天终于弄出了篇成型的硕士毕业论文,在这期间从网络上学习了很多关于Word排版的小技巧,顺利的按学校的要求把格式弄正确了。非常有可能以后再用不会用到这些技巧,在这里记录下,算是自己一个阶段...
  • u012401884
  • u012401884
  • 2014年04月02日 19:29
  • 1218

在移除 Word 文档样式的同时保留格式

样式(style)是 Word 中用于快速更改文本格式的功能。将一种样式应用于文档中不同段落之后,只需更改一次该样式,即可同时更改这些文本的格式。同时,样式还能使文档结构化,指定不同「标题」层次的样式...
  • chengfans
  • chengfans
  • 2017年04月25日 11:29
  • 210

《Word排版艺术》读后感——兼谈与LaTeX的比较

《Word排版艺术》读后感 ——兼谈与LaTeX的比较   我有两年多的LaTeX使用经验,用它排实验报告、毕业论文和书籍(半本);Word的使用时间长一些,但真正用好也不过是近一两年的事。这两...
  • GarfieldEr007
  • GarfieldEr007
  • 2015年12月24日 19:53
  • 483

word 2013 长篇文档排版案例教程

office 2013 制作长文格式模板
  • laoyaotask
  • laoyaotask
  • 2014年12月13日 16:45
  • 3428

Word 公式排版(使用制表符)

公式的构成: 公式; 右编号; 法一:使用 3 行 1 列的表格Word论文写作如何实现公式居中、编号右对齐_百度经验修改三个单元格之间的长度比例关系时,其位置是在: 【表格属性】⇒ 【单元格】选项卡...
  • lanchunhui
  • lanchunhui
  • 2016年11月16日 17:49
  • 683
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表
举报原因:
原因补充:

(最多只允许输入30个字)