<script language="vbscript"> sub builddoc set table = document.all.test row = table.rows.length column = table.rows(1).cells.length set objworddoc = createobject("word.document") objworddoc.application.documents.add() objworddoc.application.visible=true dim thearray(20,10000) for i=0 to row-1 for j=0 to column-1 thearray(j+1,i+1) = table.rows(i).cells(j).innertext next next objworddoc.application.activedocument.paragraphs.add.range.insertbefore("北林心理测评结果") //显示表格标题 objworddoc.application.activedocument.paragraphs.add.range.insertbefore("") set rngpara = objworddoc.application.activedocument.paragraphs(1).range with rngpara .bold = true //将标题设为粗体 .paragraphformat.alignment = 1 //将标题居中 .font.name = "隶书" //设定标题字体 .font.size = 18 //设定标题字体大小 end with set rngcurrent = objworddoc.application.activedocument.paragraphs(3).range set tabcurrent = objworddoc.application.activedocument.tables.add(rngcurrent,row,column) for i = 1 to column objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.insertafter thearray(i,1) objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.paragraphformat.alignment=1 next for i =1 to column for j = 2 to row objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.insertafter thearray(i,j) objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.paragraphformat.alignment=1 next next end sub </script><script LANGUAGE="javascript" defer> function excel() { var oxl = new ActiveXObject("Excel.Application"); var owb = oxl.Workbooks.Add(); var osheet = owb.Activesheet; var table = document.all.test; var hang = table.rows.length; var lie = table.rows(0).cells.length; for (m=0;m
学号 | 姓名 | 年龄 |
02824505 | 小小菜鸟 | 23 |
02824555 | 大虾 | 10 |