Hi
I want to create a word document via asp
I have created a Dll that will create word doc from a template
but it give the error
Microsoft Word (0x800A175D)
Could not open macro storage.
/abhi/totalfinaelf/ line 14
[red]
[/red]
if the same dll is to be called from a VB Project then it is running fine
what could be the error here ?
the VB code is
[red]
[/red]
is there some sort of rights that have to be set for the word document to be saved at a particular location
regards Unicorn11
unicorn11@mailcity.com
[red]We can easily forgive a child who is afraid of the dark; the real tragedy of life is when men are afraid of the light. --- Plato [red]
I want to create a word document via asp
I have created a Dll that will create word doc from a template
but it give the error
Microsoft Word (0x800A175D)
Could not open macro storage.
/abhi/totalfinaelf/ line 14
[red]
Code:
<%
dim comp1, dri, dam
set comp1 = server.CreateObject("WordCreater.TotalFinaElf")
' the below line is line 14
dri = comp1.sCreateWord("unicorn11", "asdfa", "asfda", "asdfad", "asdfasdf", "asdfaf", "asdfad", "asdfadf", "asdfasdf", "asdfad", "asdfas", "asdfas", "asdfa", "asdfa", "asfda", "asfda", "asdfa", "asdfasdf", "asdfas", "asdfas", "asdfads")
%>
if the same dll is to be called from a VB Project then it is running fine
what could be the error here ?
the VB code is
[red]
Code:
Function sCreateWord(sSpecname, sPass, sCDT, sQ141_1, sQ141_2, sQ141_3, sQ142_1, sQ142_2, sQ142_3, sQ142_4, sQ142_c, sQ143_1, sQ143_2, sQ143_3, sQ143_c, sQ144_1, sQ144_2, sQ144_3, sQ144_4, sQ144_5, sQ144_c)
Dim wrdAp As Word.Application
Dim wrdDoc As Word.Document
Set wrdAp = CreateObject("Word.Application")
Set wrdDoc = wrdAp.Documents.Open("C:\templete1.doc")
wrdAp.Visible = True
wrdDoc.Range.Fields(1).Result.Text = sSpecname
wrdDoc.Range.Fields(2).Result.Text = sPass
wrdDoc.Range.Fields(3).Result.Text = sCDT
wrdDoc.Range.Fields(42).Result.Text = sQ141_1
.
.
.
wrdDoc.Range.Fields(57).Result.Text = sQ142_5
wrdDoc.SaveAs ("c:\temp\abhi1.doc")
wrdDoc.Close
wrdAp.Quit
Set wrdDoc = Nothing
Set wrdAp = Nothing
sCreateWord = 1
End Function
is there some sort of rights that have to be set for the word document to be saved at a particular location
regards Unicorn11
unicorn11@mailcity.com
[red]We can easily forgive a child who is afraid of the dark; the real tragedy of life is when men are afraid of the light. --- Plato [red]