<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & Word.Application</title> </head> <body> <% Const wdColorDarkRed = &H80 Const wdAlignParagraphCenter = 1 Const wdAlignParagraphLeft = 0 Const wdParagraph = 4 Const wdHorizontalPositionMargin = 0 Const wdTableLeft = -999998 Const wdCollapseEnd = 0 Dim Wrd,WrdDoc,DocName Dim MyRange1,MyRange2,MyRange3 Set Wrd = CreateObject("Word.Application") DocName = "MyDoc/MyWord.doc" Wrd.Application.Visible = False Set WrdDoc = Wrd.Documents.Add() Set MyRange1 = WrdDoc.Paragraphs.Add.Range With MyRange1 .ParagraphFormat.Alignment = wdAlignParagraphCenter .Font.Name = "Verdana" .Font.Size = "30" .Font.Bold = True .InsertBefore(vbCrLf&vbCrLf&"www.ThaiCreate.Com"&vbCrLf&"Version 2009") End With MyRange1.InlineShapes.AddPicture Server.MapPath("thaicreate-2009.gif") 'WrdDoc.InlineShapes.AddPicture Server.MapPath("thaicreate-2009.gif") 'WrdDoc.Shapes.AddPicture Server.MapPath("thaicreate-2009.gif"),0,0,MyRange1 'WrdDoc.Shapes.AddPicture Server.MapPath("thaicreate-2009.gif"),40,6,Wrd.Selection.Range Set MyRange2 = WrdDoc.Paragraphs.Add.Range With MyRange2 .ParagraphFormat.Alignment = wdAlignParagraphCenter .Font.Name = "Verdana" .Font.Size = "15" .Font.Bold = True .InsertBefore(vbCrLf&vbCrLf&"PHP,ASP and ASP.NET Tutorial") End With MyRange2.InlineShapes.AddPicture Server.MapPath("doc.gif") Set MyRange3 = WrdDoc.Paragraphs.Add.Range With MyRange3 .ParagraphFormat.Alignment = wdAlignParagraphCenter .Font.Name = "Verdana" .Font.Size = "10" .Font.Bold = True .Font.Color = wdColorDarkRed .Underline = True .InsertBefore(vbCrLf&vbCrLf&vbCrLf&vbCrLf&"All Rights Reserved") End With WrdDoc.SaveAs(Server.MapPath(DocName)) Wrd.Application.Quit Set Wrd = Nothing %> Word Created <a href="<%=DocName%>">Click here</a> to Download. </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
