用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表
2004-09-07 10:22
316 查看
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
);
}
}
}
row_count = 0;
col_count = 0
myDoc.Protect(1)
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
);
}
}
}
row_count = 0;
col_count = 0
myDoc.Protect(1)
相关文章推荐
- 用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表
- javascript在客户端启动WORD,并排版WORD的格式,形成一个报表
- 一个启动供手机客户端访问服务端的简例
- 一个基于JRTPLIB的轻量级RTSP客户端(myRTSPClient)——实现篇:(六)RTP音视频传输解析层之音视频数据传输格式
- 3、csdn word最后形成的格式
- 如何返回一个 DataTable 到客户端 JavaScript
- 客户端用JAVASCRIPT生成WORD文档
- 使用jsp实现word、excel格式报表打印
- 在客户端用JAVASCRIPT或VBSCRIPT生成WORD文档
- 一个用Word做报表设计的报表系统windwardreports
- 用JavaScript的正则表达式验证网址格式是否正确,方法很多,这只是一个实现的方法.
- 不小心运行了一个木马程序~word 2003 打开2007格式文件的转换器.rar 里的
- Ireport 报表导出 Poi + ireport 导出pdf, word ,excel ,html 格式
- javascript设置一个页面启动时 没有工具栏 地址栏等
- (六)Ireport制作一个规范的报表,处理数据格式
- Javascript客户端将指定区域导出到Word、Excel的代码
- 在客户端用javascript或VBSCRIPT生成WORD文档(转)
- 在客户端用JAVASCRIPT或VBSCRIPT生成WORD文档
- 一个很不错的柱状图报表(javascript)嘿嘿!~收藏!
- 使用jsp实现word、excel格式报表打印