How to use ASP & Word (Word.Application) - Font & Style This is learn/tutorial asp developers how to using ASP script Create Word document and add Font & Style
ShotDev Focus:
- ASP & Create Word document and add Font & Style
Example
asp_word_style.asp
- <% Option Explicit %>
- <html>
- <head>
- <title>ShotDev.Com Tutorial</title>
- </head>
- <body>
- <%
- Dim Wrd,DocName
- Set Wrd = CreateObject("Word.Application")
- Wrd.Application.Visible = False
- Wrd.Documents.Add()
- DocName = "MyDoc/MyWord.doc"
- With Wrd
- .Selection.Font.Name = "Verdana"
- .Selection.Font.Size = "25"
- .Selection.Font.Bold = True
- .Selection.Font.Italic = True
- .Selection.TypeText "Welcome To www.ShotDev.Com"
- End With
- Wrd.ActiveDocument.BuiltInDocumentProperties("Title").Value = "Doc Title"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Subject").Value = "Doc Subject"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Author").Value = "Doc Author"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Manager").Value = "Doc Manager"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Company").Value = "Doc Company"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Category").Value = "Doc Category"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Application Name").Value = "Doc Application Name"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Keywords").Value = "Doc Keywords"
- Wrd.ActiveDocument.BuiltInDocumentProperties("Comments").Value = "Doc Comments"
- Wrd.ActiveDocument.SaveAs(Server.MapPath(DocName))
- Wrd.Application.Quit
- Set Wrd = Nothing
- %>
- Word Created <a href="<%=DocName%>">Click here</a> to Download.
- </body>
- </html>
Create a asp file and save to path root-path/myasp/
Run
http://localhost/myasp/asp_word_style.asp
Screenshot
.
.
.
Download this script.
Loading ...