|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Word pelo ASP
|
 |
|
|
|
Postada em 22/10/2003 por Mago_Pc
<%
Sub CreateAppraisalForm(Manager,Email,Appraisee)
'Criando documento Word
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: " & Manager & vbcrlf & "Appraisee: " & Appraisee)
MyRange1.Font.Bold = true
Set MyRange1 = WordDoc.Paragraphs.Add.Range
MyRange1.InsertBefore(vbcrlf & "Preencha por favor todas as seções requeridas e retorne à hora através do sistema interno do correio.")
'Ajuste a posição do diretório para armazenar os originais gerados
WordDocPath = Server.MapPath("\alastair\appraisals\forms")
'Use a sessão original ID como o nome de arquivo.
WordDoc.SaveAs WordDocPath & "\" & session.sessionID & ".doc"
WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
|
|
|
|
|
