WebBrowser-Control, Problem beim Einlesen

DrMueller

Erfahrenes Mitglied
Hi Leute,
wir benutzen das WebBrowser Control zum Anzeigen von HTML-Texten.
Dabei müsste ich jetzt diesen jedoch auch auslesen, welches derzeit so aussieht:

Code:
 TextHTML = htmView.Document.Selection.createrange().htmltext
    Dim cnv As OCTextConvert.clsTextConvert
    Set cnv = New OCTextConvert.clsTextConvert
    
    If Len(cnv.HTML2Plain(TextHTML)) = False Then
      TextHTML = htmView.Document.Body.innerhtml
    End If
    Set cnv = Nothing

Es liest also über CreateRange den Text aus, sofern keiner selektiert ist, sollte über innerHTML dann der komplette Text ausgelesen werden.
Klappt z.B. bei einer Protokollier-Funktion genau so, aber in meinem Teil erscheint die ganze Zeit ein Navigationsfehler, sobald die Zeile htmView.Document.Body.innerhtml aufgerufen wird.

Ich habe im Anhang mal meine Test-HTML Datei hoch geladen, diese sollte eigentlich soweit passen.

Irgend jemand eine Idee, wieso er diese Datei nicht mit InnerHTML auslesen kann?


Wie immer, vielen Dank im Voraus.
 

Anhänge

  • 4148_52.zip
    363 Bytes · Aufrufe: 28
Zurück