By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,847 Members | 2,402 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,847 IT Pros & Developers. It's quick & easy.

creating a document on the server (MS Word doc)

P: n/a
I have a registration form where a user is able to, upon submission of
the form, have their submission entered into a simple database... now
Im looking to create a word document on the fly from that submission
using this as a model to build from:
http://www.freevbcode.com/ShowCode.Asp?ID=1727

There are no errors generated but there is NO .DOC file created at all
either... Im not sure what Im doing wrong... any clue what I need to
change to get this to work?
heres the code:
' CREATE WORD DOCUMENT

Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Add()

WordApp.Application.Visible = False

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Appraisal Form")
MyRange1.Style = "Heading 1"

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Manager: " & fname & vbcrlf & "Appraisee: "
& lname)
MyRange1.Font.Bold = true

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore(vbcrlf & "Please fill in all the required
sections and return to HR via the internal mail system.")

' Set the directory location to store the generated documents
WordDocPath = Server.MapPath("")
' Use the unique session ID as the filename.
WordDoc.SaveAs WordDocPath & "" & session.sessionID & ".doc"
WordDoc.Close
WordApp.Quit

Set WordDoc = Nothing
Set WordApp = Nothing

' EMAIL WORD DOCUMENT

'Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
'recipient = Email
'sender = "va***@ukonline.co.uk"
'subject = "Requested Form"
'message = "Please find the requested document attached."
'attach = WordDocPath & "\" & session.SessionID & ".doc"
'INSERT YOUR MAIL SERVER HERE
'mailserver = "xxx.xx.xx.xx"

'result = mailer.SMAttach(mailserver, recipient, sender, subject,
message, attach)

' DELETE WORD DOCUMENT FROM SERVER
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(WordDocPath & "\" & session.SessionID & ".doc")

'Response.Write "The requested form will arrive in your inbox
(email) within a few minutes. Please complete and return to HR
asap."
'Response.Write "There has been an error sending the document to
you." & vbcrlf
'Response.Write "Right click the following link and select ""Save
Target As..."" to retrieve the word document." & vbcrlf & vbcrlf
Response.Write "<A href=""" & session.SessionID & ".doc"">Generated
Document</A>" & vbcrlf & vbcrlf

Sep 4 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a

tamaker wrote:
I have a registration form where a user is able to, upon submission of
the form, have their submission entered into a simple database... now
Im looking to create a word document on the fly from that submission
using this as a model to build from:
http://www.freevbcode.com/ShowCode.Asp?ID=1727

There are no errors generated but there is NO .DOC file created at all
either... Im not sure what Im doing wrong... any clue what I need to
change to get this to work?
heres the code:
' CREATE WORD DOCUMENT

Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Add()

WordApp.Application.Visible = False

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Appraisal Form")
MyRange1.Style = "Heading 1"

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Manager: " & fname & vbcrlf & "Appraisee: "
& lname)
MyRange1.Font.Bold = true

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore(vbcrlf & "Please fill in all the required
sections and return to HR via the internal mail system.")

' Set the directory location to store the generated documents
WordDocPath = Server.MapPath("")
' Use the unique session ID as the filename.
WordDoc.SaveAs WordDocPath & "" & session.sessionID & ".doc"
WordDoc.Close
WordApp.Quit

Set WordDoc = Nothing
Set WordApp = Nothing

' EMAIL WORD DOCUMENT

'Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
'recipient = Email
'sender = "va***@ukonline.co.uk"
'subject = "Requested Form"
'message = "Please find the requested document attached."
'attach = WordDocPath & "\" & session.SessionID & ".doc"
'INSERT YOUR MAIL SERVER HERE
'mailserver = "xxx.xx.xx.xx"

'result = mailer.SMAttach(mailserver, recipient, sender, subject,
message, attach)

' DELETE WORD DOCUMENT FROM SERVER
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(WordDocPath & "\" & session.SessionID & ".doc")

'Response.Write "The requested form will arrive in your inbox
(email) within a few minutes. Please complete and return to HR
asap."
'Response.Write "There has been an error sending the document to
you." & vbcrlf
'Response.Write "Right click the following link and select ""Save
Target As..."" to retrieve the word document." & vbcrlf & vbcrlf
Response.Write "<A href=""" & session.SessionID & ".doc"">Generated
Document</A>" & vbcrlf & vbcrlf
I assume there is more code than this in your file - I mean you have to
assign values to fname and lname. Have you got On error resume next
there too? Do you have Word installed on the machine on which you are
trying to create the document?

--
Mike Brind

Sep 5 '06 #2

P: n/a
Yes, the other facets (definition of variables, etc,) has exsisted for
years and works fine... I actually found out today that I was given the
wrong info and word does NOT exist on the server... so I ditched the
idea alltogether and am just sending out an HTML email message
dynamically to the registrants.

Thanks for the reply though.


Mike Brind wrote:
tamaker wrote:
I have a registration form where a user is able to, upon submission of
the form, have their submission entered into a simple database... now
Im looking to create a word document on the fly from that submission
using this as a model to build from:
http://www.freevbcode.com/ShowCode.Asp?ID=1727

There are no errors generated but there is NO .DOC file created at all
either... Im not sure what Im doing wrong... any clue what I need to
change to get this to work?
heres the code:
' CREATE WORD DOCUMENT

Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Add()

WordApp.Application.Visible = False

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Appraisal Form")
MyRange1.Style = "Heading 1"

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore("Manager: " & fname & vbcrlf & "Appraisee: "
& lname)
MyRange1.Font.Bold = true

Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore(vbcrlf & "Please fill in all the required
sections and return to HR via the internal mail system.")

' Set the directory location to store the generated documents
WordDocPath = Server.MapPath("")
' Use the unique session ID as the filename.
WordDoc.SaveAs WordDocPath & "" & session.sessionID & ".doc"
WordDoc.Close
WordApp.Quit

Set WordDoc = Nothing
Set WordApp = Nothing

' EMAIL WORD DOCUMENT

'Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
'recipient = Email
'sender = "va***@ukonline.co.uk"
'subject = "Requested Form"
'message = "Please find the requested document attached."
'attach = WordDocPath & "\" & session.SessionID & ".doc"
'INSERT YOUR MAIL SERVER HERE
'mailserver = "xxx.xx.xx.xx"

'result = mailer.SMAttach(mailserver, recipient, sender, subject,
message, attach)

' DELETE WORD DOCUMENT FROM SERVER
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(WordDocPath & "\" & session.SessionID & ".doc")

'Response.Write "The requested form will arrive in your inbox
(email) within a few minutes. Please complete and return to HR
asap."
'Response.Write "There has been an error sending the document to
you." & vbcrlf
'Response.Write "Right click the following link and select ""Save
Target As..."" to retrieve the word document." & vbcrlf & vbcrlf
Response.Write "<A href=""" & session.SessionID & ".doc"">Generated
Document</A>" & vbcrlf & vbcrlf

I assume there is more code than this in your file - I mean you have to
assign values to fname and lname. Have you got On error resume next
there too? Do you have Word installed on the machine on which you are
trying to create the document?

--
Mike Brind
Sep 6 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.