Umwandeln von Html in Word

Gunther Koch

unread,

Apr 4, 2002, 6:47:39 AM4/4/02

to

Ich hab folgenden Quellcode:

Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile)
            Dim lobjWordApp
            Dim lobjInternetExplorer
            Set lobjWordApp = Server.CreateObject("Word.Document") '<==== line16
            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
    Dim openfile, savefile
    Html2word openfile, savefile

Nun erhalt ich fogenden Fehler

Server object error 'ASP 0177 : 80080005'

Server.CreateObject Failed

/bereiche/MO/O1/index/webprog/gunthers_workdir/referenz_asp/html2word.asp, line 16

Server execution failed

Hat einer ne Ahnung was das Problem sein könnte?

Rainer Völschow

unread,

Apr 4, 2002, 7:36:38 AM4/4/02

to

Hallo Gunther,

> Gunther Koch schrieb:
>
> Ich hab folgenden Quellcode:
>
> ...

>
> Server object error 'ASP 0177 : 80080005'
>
> Server.CreateObject Failed
>
> /bereiche/MO/O1/index/webprog/gunthers_workdir/referenz_asp/html2word.asp,
> line 16
>
> Server execution failed
>
> Hat einer ne Ahnung was das Problem sein könnte?

Bekommst du diese Fehlermeldung auch dann, wenn du zB.: "Set conn =
Server.CreateObject("ADODB.Connection")" machst ?
Wenn ja, dann sind die Schreibrechte für den I_User auf dem Webverzeichnis nicht
gesetzt.

Rainer

Gunther Koch

unread,

Apr 4, 2002, 7:57:45 AM4/4/02

to

Rainer Völschow <rvoel...@compuserve.de> schrieb in im Newsbeitrag:
3CAC48D6...@compuserve.de...

Wie mans nimmt, dann für Zeile 17, also das ADODB-Objekt konnte er wohl
erzeugen

Rainer Völschow

unread,

Apr 4, 2002, 8:05:35 AM4/4/02

to

Hallo,

Gunther Koch schrieb:

hmm, ich gehe mal davon aus, das du ein Word-Dokument generieren willst. Wenn
ja, dann sollte http://www.aspheute.com/artikel/20010319.htm dir vielleicht
weiterhelfen können.

Rainer

Gunther Koch

unread,

Apr 4, 2002, 8:22:07 AM4/4/02

to

Scheinbar habe ich den Code vergessen mitzusenden:

Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile)
Dim lobjWordApp
Dim lobjInternetExplorer

Set lobjWordApp = Server.CreateObject("Word.Application")

Gunther Koch

unread,

Apr 4, 2002, 8:43:16 AM4/4/02

to

Gunther Koch <shn...@yahoo.com> schrieb in im Newsbeitrag:
a8hk4q$267$1...@TR-S-UX-002.DeTeLine.de...

Habe jetzt endlich eine neue Fehlermeldung erzeugt:

Finnished at: 04.04.2002 15:41:01
Microsoft Word error '800a11fd'

This method or property is not available because the Clipboard is empty or
not valid.

/bereiche/VM/index/referenzdb/html2word.asp, line 32

Habe aber auch keine Idee, wie ich überprüfen kann, ob das Clibboard leer
ist.

Rainer Völschow

unread,

Apr 4, 2002, 8:54:20 AM4/4/02

to

Gunther Koch schrieb:

>
> Gunther Koch <shn...@yahoo.com> schrieb in im Newsbeitrag:

>....

> >
> Habe jetzt endlich eine neue Fehlermeldung erzeugt:
>
> Finnished at: 04.04.2002 15:41:01
> Microsoft Word error '800a11fd'
>
> This method or property is not available because the Clipboard is empty or
> not valid.
>
> /bereiche/VM/index/referenzdb/html2word.asp, line 32
>
> Habe aber auch keine Idee, wie ich überprüfen kann, ob das Clibboard leer
> ist.

hmm, da bin ich auch überfragt.
Kann man nicht irgendwie mit hilfe des FSO das erreichen ? Also in etwa so:
html-Datei mit dem FSO komplette einlesen -> worddatei kreiren und dann die
variable ins word-objekt ablegen und die dann als word-dokument speichern.

Rainer

Wolfgang Schroedter

unread,

Apr 4, 2002, 2:55:06 PM4/4/02

to

Gunther Koch wrote:

> Set lobjWordApp = Server.CreateObject("Word.Application")

Was spricht dagegen mit

lobjWordApp.Documents.Open pstrSourceURL

weiterzumachen?

--
Gruß aus Gruiten - Wolfgang Schrödter

Gunter Scholtz

unread,

Apr 5, 2002, 6:00:35 AM4/5/02

to

Hallo allerseits,

wen es interessiert: Das Problem ließ sich lösen indem der iusr_* in die
Servergruppe "Users" aufgenommen wurde.

Grüße
Gunter

"Gunther Koch" <shn...@yahoo.com> wrote in message
news:a8hl9i$2tk$1...@TR-S-UX-002.DeTeLine.de...