| 标题 | ASP打印Word代码 |
| 内容 | //保证可以运行js的情况下 <html> <head> <title>Build Document by Script</TITLE> </HEAD> <Table id="myData" border=1> <Tr> <Td>列表1</Td> <Td>列表2</Td> <Td>列表3</Td> </Tr> <Tr> <Td>产品一</Td> <Td>This is a test</Td> <Td align=right>300.50</Td> </Tr> <Tr> <Td>产品二</Td> <Td>This is a test</Td> <Td align=right>300.50</Td> </Tr> <Tr> <Td>产品三</Td> <Td>This is a test</Td> <Td align=right>300.50</Td> </Tr> </Tabld> <input type=button onclick="vbscript:buildDoc '',4" value="build"> <BODY> </BODY> </HTML> <script language="vbscript"> Sub buildDoc(theTemplate,intTableRows) Dim Table1 set Table1 = document.all.myData row = Table1.rows.length Set objWordDoc = CreateObject("Word.Document") ObjWordDoc.Application.Visible=True Dim theArray(4,4) 'Redim Preserve theArray(4,row) colnum = Table1.rows(1).cells.length for i=0 to row-1 for j=0 to colnum-1 theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML next next intNumrows = 4 objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("测试的表格") 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 = "Arial" .Font.Size = 12 End With Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,4) for i = 1 to colnum 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 tabRow = 2 For j = 2 to intNumrows 'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j)) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j) 'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1 tabRow = tabRow + 1 Next ' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate") 'objWordDoc.Application.ActiveDocument.Envelope.Insert Address ' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由廖家远设计") objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False 'objWordDoc.Application.printout() End Sub </script> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。