How to use ASP & Word (Word.Application) - Font & Style

Author: admin | Posted: 24-04-2010 | Category: ASP & Word (Word.Application)

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.