Problem mit Interop-Service und OneNote

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Problem mit Interop-Service und OneNote

    Neu

    Hi Ihr,

    Ich bin eben dabei, in meinem Proggi Bilder in OneNote einfügen zu lassen.
    Hierbei habe ich aber ein Problem:

    Im Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim oneNoteApp As Microsoft.Office.Interop.OneNote.Application = Nothing
    2. Dim oneNoteProcesses() As Process = Process.GetProcessesByName("ONENOTE")
    4. If oneNoteProcesses.Length > 0 Then
    5. ' Eine laufende Instanz von OneNote wurde gefunden
    6. Try
    7. oneNoteApp = CType(Marshal.GetActiveObject("OneNote.Application"), Microsoft.Office.Interop.OneNote.Application)
    8. Catch ex As Exception
    9. ' Fehler beim bestehende Anwendung holen
    10. MainForm.Current?.Ausgabe_ICENachricht(My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Common_Fehler_OneNote_LaufendeInstanzKannNichtZugewiesenWerden, ex.Message))
    11. Return
    12. End Try
    13. Else
    14. ' OneNote ist nicht gestartet
    15. Try
    16. Process.Start(AppPath)
    17. Catch ex As Exception
    18. ' Fehler beim OneNote-Anwendung starten
    19. MainForm.Current?.Ausgabe_ICENachricht(My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Common_Fehler_OneNote_KannNichtGestartetWerden, AppPath, ex.Message))
    20. Return
    21. End Try
    22. Try
    23. MainForm.Delay(1)
    24. oneNoteApp = New Microsoft.Office.Interop.OneNote.Application()
    25. Catch ex As Exception
    26. ' Fehler beim bestehende Anwendung holen
    27. MainForm.Current?.Ausgabe_ICENachricht(My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Common_Fehler_OneNote_LaufendeInstanzKannNichtZugewiesenWerden, ex.Message))
    28. Return
    29. End Try
    30. End If


    wird geprüft, ob OneNote bereits läuft.

    Wenn ja, dann soll die laufende Anwendung der Variablen "OneNoteApp" zugewiesen werden.
    Wenn nein, wird OneNote gestartet und die nun laufende Anwendung der Variablen "OneNoteApp" zugewiesen.

    Leider fällt der Code, wenn OneNote bereits läuft und damit die laufende Anwendung der Variablen "OneNoteApp" zugewiesen werden soll, dabei in die Exception.
    oneNoteApp = CType(Marshal.GetActiveObject("OneNote.Application"), Microsoft.Office.Interop.OneNote.Application)

    Ist OneNote nicht bereits gestartet, werden die Bilder in der aktuellen Selektion und Seite an Caret-Position ins OneNote eingefügt.

    Nur, wenn OneNote bereits läuft, kann ich keine Bilder einfügen - bzw. nur dann, wenn ich stattdessen eine weitere OneNote-Instanz starte.
    Aber ich will die Bilder ja in der aktiven OneNote-Anwendung eingefügt haben.

    Die Fehlermeldung teilt mir mit:
    "Vorgang nicht verfügbar. (Ausnahme von HRESULT: 0x800401E3 (MK_E_Unavailable))"
    Was will mir das sagen und warum?

    Bei meinen anderen Modulen Word, Excel, Outlook und Powerpoint funktioniert das mit dem Bilder einfügen - nur eben nicht bei OneNote.

    Kann mir da vielleicht einer von Euch hilfreich vom Schlauch helfen?
    Irgendwie muss ich da drauf stehen.

    Beste Grüsse

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

    Neu

    Komisch...

    so funktioniert es:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub InsertFileIntoOneNote(objekt As String, AppPath As String, index As Integer)
    2. ' OneNote-Anwendung starten oder bestehende Anwendung holen
    3. Dim OneNoteProcess As String = GetProcessNameByPath(AppPath)
    4. Dim oneNoteApp As Microsoft.Office.Interop.OneNote.Application = Nothing
    6. oneNoteApp = TryGetRunningOneNoteInstance()
    7. If oneNoteApp Is Nothing Then
    8. Try
    9. Process.Start(AppPath)
    10. Threading.Thread.Sleep(2000)
    11. oneNoteApp = New Microsoft.Office.Interop.OneNote.Application()
    12. Catch ex As Exception
    13. MainForm.Current?.Ausgabe_ICENachricht(My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Common_Fehler_Anwendung_KannNichtGestartetWerden, "OneNote", AppPath, ex.Message))
    14. Return
    15. End Try
    16. End If
    18. ...
    19. end sub
    21. Private Function TryGetRunningOneNoteInstance() As Microsoft.Office.Interop.OneNote.Application
    22. Try
    23. ' Überprüfen, ob eine OneNote-Instanz läuft
    24. Dim processes As Process() = Process.GetProcessesByName("ONENOTE")
    25. If processes.Length > 0 Then
    26. Return New Microsoft.Office.Interop.OneNote.Application()
    27. End If
    28. Catch ex As Exception
    29. ' Fehlerbehandlung
    30. End Try
    31. Return Nothing
    32. End Function