InputBox Fehler

  • Word

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Sam85.

    InputBox Fehler

    Hallo,

    ich bekomme eine Fehlermeldung wenn ich versuche das Makro über einen RibbonButton zu starten. Wenn ich es aber aus dem Editor starte klappt es.
    Leider sagt die Fehlermeldung auch nicht wirklich viel. Muss ich die InputBox irgendwie anders ansprechen? Oder kennt jemand zufällig das Problem?
    Oder liegt der Fehler sogar ganz woanders? ?(

    VB.NET-Quellcode

    1. Option Explicit
    2. Dim name, pdf As String
    3. Dim olApp, olMail As Object
    5. Sub Email()
    6. name = InputBox("Bitte den Dateinamen eintragen")
    8. ThisDocument.ExportAsFixedFormat _
    9. OutputFileName:=name, _
    10. ExportFormat:=wdExportFormatPDF, _
    11. OpenAfterExport:=False, _
    12. Range:=wdExportAllDocument
    14. Set olApp = CreateObject("Outlook.Application")
    15. Set olMail = olApp.CreateItem(0)
    17. pdf = ThisDocument.Path & "\" & name & ".pdf"
    19. With olMail
    20. .Display
    21. .attachments.Add pdf
    22. End With
    24. Set olApp = Nothing
    25. Set olMail = Nothing
    26. End Sub

    Bilder

    • Fehler.PNG

      2,66 kB, 249×165, 393 mal angesehen

    Auf den ersten Blick fällt mir nur auf, dass dies eigentlich die falsche Reihenfolge ist.

    Sam85 schrieb:

    With olMail
    .Display
    .attachments.Add pdf
    End With
    Erst solltest du das Attachment in die Mail packen, bevor du sie zum Verschicken anzeigst.

    In welcher Zeile bleibt denn der Debugger stehen?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Wird mir nicht angezeigt, es kommt nur der Fehler und dann klick ich OK aber ich komm nicht in den Editor sondern bleibe im Word Dokument.
    Und wie gesagt, starte ich das Modul im Editor läuft alles Rund.
    Hab auch mal was du gesagt hast gedreht, kommt aber dennoch die Fehlermeldung.

    und das kommt bei Hilfe
    msdn.microsoft.com/de-de/libra…ce.Version%3dv16)&rd=true

    EDIT: Ich glaube es liegt am Pfad. Kann ich den PDF Pfad beim Export explizt definieren? (Zumindest vermute ich jetzt mal das es daran liegt) :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()

    Hallo,

    wieso ThisDocument? Im Ribbon sind "allgemeine" Makros. Also zuerst das aktuelle Dokument auslesen zu zuweisen. Allgemeine Makros habe ich in einer extra Datei oder normal.dot abgespeichert.

    ungetestet:

    Visual Basic-Quellcode

    1. dim objDok as document'oder object
    2. set objdok = activedocument
    3. with objdok
    4. ...
    5. ...
    6. ...
    7. end with
    8. set objdok = nothing


    ansonsten Variable nach jedem Befehl hochzählen und zwischen den Befehlen per debug.print ausgeben. Dann weißt du evtl. schnell, wo es hakt.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    @peterfido
    ja diese Normal Datei habe ich (da speichere ich auch meine Makros).
    Hab es auf ActiveDocument geändert...leider immer noch derselbe Fehler.
    Vielleicht kannst du mir kurz erklären wie du das mit dem hochzählen und dem debug meinst, dann probiere ich das mal aus.

    VB.NET-Quellcode

    1. Option Explicit
    2. Dim user, name, pfad, pdf As String
    3. Dim olApp, olMail As Object
    4. Dim aDoc As Document
    6. Sub Mail()
    7. user = Environ("UserName")
    8. name = InputBox("Bitte den gewünschten Dateinamen eintragen")
    9. pfad = "C:\Users\" & user & "\Documents\"
    11. If name = "" Then Exit Sub
    13. Set aDoc = ActiveDocument
    15. aDoc.ExportAsFixedFormat _
    16. OutputFileName:=name, _
    17. ExportFormat:=wdExportFormatPDF, _
    18. OpenAfterExport:=False, _
    19. Range:=wdExportAllDocument
    21. Set olApp = CreateObject("Outlook.Application")
    22. Set olMail = olApp.CreateItem(0)
    24. pdf = pfad & name & ".pdf"
    26. With olMail
    27. .Attachments.Add pdf
    28. .Display
    29. End With
    31. Set aDoc = Nothing
    32. Set olApp = Nothing
    33. Set olMail = Nothing
    35. MsgBox ("Die Datei <" & name & "> befindet sich jetzt in dem Pfad <" & pfad & ">")
    36. End SubEnd Sub


    EDIT: Hab jetzt auch mal einen Button ins Dokument geladen und das mit verbunden. Läuft auch. ?( Nur nicht direkt aus dem Ribbon. Kann es sein, dass er im Ribbon das ActiveDocument immer als das "Normal" Dokument sieht?
    EDIT v2: Bei Debug.Print kommt gar nichts wenn ich aus dem Ribbon starte, egal auf welche Instanz ich verweise. :(
    EDIT v3: Ok es lag an der Bezeichung der Sub Email()..als ich es mal in Sub Mail() geändert habe, lief es auch aus dem Ribbon heraus.
    Bilder

    • Bild.PNG

      4,09 kB, 572×125, 140 mal angesehen

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „Sam85“ ()

    Hallo,

    debug.print gibt die Infos auf dem Direktfenster aus. Das muss evtl. erst in der IDE aktiviert werden. Da lasse ich mir beim Entwickeln dann Infos ausgeben. Spart das evtl. ständige OK-Klicken bei Messageboxen.
    Z.B. so:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub Los()
    4. Dim Fehlernr As Long
    5. Dim a As Long, b As Long, c As Long
    7. On Error GoTo Fehler
    8. Debug.Print "Start"
    9. a = 1
    10. Fehlernr = Fehlernr + 1 '1
    11. a = 16548
    12. Fehlernr = Fehlernr + 1 '2
    13. a = 15482
    14. Fehlernr = Fehlernr + 1 '3
    15. b = a / 0
    16. Fehlernr = Fehlernr + 1 '4
    17. a = 1
    18. Fehlernr = Fehlernr + 1 '5
    19. a = 1
    20. Fehlernr = Fehlernr + 1 '6
    21. a = 1.65464861251684E+16
    22. Fehlernr = Fehlernr + 1 '7
    24. Fehler:
    25. If Err.Number <> 0 Then
    26. Debug.Print "Fehler unter " & Fehlernr & " ("; Err.Number & "):" & Err.Description
    27. Err.Clear
    28. Resume Next
    29. End If
    30. On Error GoTo 0
    31. Debug.Print "Ende"
    33. End Sub


    Gibt dann im Direktfenster aus:

    Visual Basic-Quellcode

    1. Start
    2. Fehler unter 3 (11):Division durch Null
    3. Fehler unter 6 (6):Überlauf
    4. Ende
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende