"Objektet er blevet slettet"
Jeg har et system som efter oprettelse af post i database, skal auto-generere et word-dokument. Jeg har følgende kode her fra Eksperten:Option Explicit
HTML2Word "file://" & Server.MapPath("test.htm"), Server.MapPath("test.doc")
Response.Write "Finnished at: " & Now()
Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile)
Dim lobjWordApp
Dim lobjInternetExplorer
Set lobjWordApp = Server.CreateObject("Word.Document")
Set lobjInternetExplorer = Server.CreateObject("InternetExplorer.Application")
lobjInternetExplorer.Navigate pstrSourceURL
IEStandBy lobjInternetExplorer
lobjInternetExplorer.document.body.createTextRange.execCommand("Copy")
IEStandBy lobjInternetExplorer
lobjWordApp.Content.Paste
lobjWordApp.SaveAs pstrTargetFile
lobjWordApp.Close
lobjInternetExplorer.Quit
Set lobjInternetExplorer = Nothing
Set lobjWordApp = Nothing
End Sub
Sub IEStandBy(ByRef pobjInternetExplorer)
' Not good (Pegs system resources)
' Need to find a way to "sleep"
While pobjInternetExplorer.busy:Wend
While Not pobjInternetExplorer.Document.readyState = "complete":Wend
End Sub
Mit problem er, at når den kører scriptet får jeg fejlen:
Microsoft Word fejl '800a16c1'
Objektet er blevet slettet.
/tilbudssystem/inc_opret_worddoc1.asp, line 17
Linje 17: lobjWordApp.Content.Paste
Hvad kan dette skyldes?
På forhånd tak!
