站内搜索: 请输入搜索关键词

当前页面: 开发资料首页 → Javascript 专题 → 用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表

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

摘要: 用JAVASCRIPT在客户端启动WORD,并排版WORD的格式,形成一个报表
<textarea readonly style="border:none;font-family:Courier New;line-height:150%;width:760px;overflow-y:visible"> 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 {
with (myTable.Cell(1,i+1).Range)
{font.Size = 12;
InsertAfter(vzd[i]);
}
}

for (i =0;i {
vcontext = context.split("<纵标>")
for (n =0;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)