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

Neue Beiträge

Zurück