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

Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter