Seitenhistorie
Funktion
Beschreibung
Zeile 3514 - 3538
Code in WinIBW2 (Makro/VBScript)Sub
Public Sub Melvil()
Dim Doc, IsMelvil, F5400, F5401, F5402, F5403
On Error Resume Next
Set Doc = GetPageFromIE
ErrNr = Err.Number
If ErrNr = 0 Then
'MsgBox Doc.Body.InnerHtml
On Error Resume Next
F5400 = GetField(Doc, "5400")
F5401 = GetField(Doc, "5401")
Set F5402 = GetField(Doc, "5402")
Set F5403 = GetField(Doc, "5403")
ErrNr = Err.Number
'MsgBox "Nach Lesen aller Felder und Zurücksetzen des Err-Objektes ist ErrNumber " & ErrNr
'On Error GoTo 0
If (ErrNr = 0) OR (ErrNr = 424) Then
PasteIntoWindow F5400, F5401, F5402, F5403
Else
MsgBox "Fehler beim Lesen des Melvil-Dokuments " & ErrNr, vbExclamation
End If
Else
MsgBox "IE ist anscheinend nicht gestartet", vbExclamation
End If
Set Doc = Nothing
End Sub