ContextMenu in Addin speichern

  • Word

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von harryhirsch.

    ContextMenu in Addin speichern

    Hi Leute

    Ich habe mir eine Erweiterung für MS-Word gebaut (VBA-Projekt in Dokumentvorlage (.dot)). Das Addin beinhaltet ein Hauptformular (hauptsächlich bestehend aus einem TreeView) und in diesem Hauptformular verwende ich ein Kontextmenu. Ich habe nun das Problem, dass irgendwie das Kontextmenu nicht richtig im Addin gespeichert wird. Deshalb lasse ich als Workaround bei jedem Start des Hauptformulars das Kontextmenu löschen und neu erstellen. Dies führt aber dazu, dass bei der Verwendung des Addins Word meint, das Addin sei geändert worden und fragt deshalb nach, ob die Änderungen an der Dokumentvorlage gespeichert werden sollen. Diese Rückfrage verunsichert die User und ausserdem ist die Rückfrage störend. Deshalb wäre es mir eigentlich am liebsten, wenn die Sache von Anfang an richtig gelöst wäre und nicht per workaround.

    Hier mal der relevante Code im Ereignis Initialize des Hauptformulars:

    Visual Basic-Quellcode

    1. ' ContextMenu erstellen
    2. ' ContextMenu muss zuerst gelöscht und dann wieder neu erstellt werden, weil ansonsten jeweils zur Laufzeit der Fehler:
    3. ' "Automatisierungsfehler -2147467259 (80004005): unbekannter Fehler" auftritt. Dies muss offenbar damit zu tun haben, dass
    4. ' das Contextmenu nicht korrekt dauerhaft gespeichert wird.
    5. ' Allenfalls schafft die Verwendung von: Application.CustomizationContext Abhilfe.
    6. For lngCounter = 1 To Application.CommandBars.Count
    7. If Application.CommandBars.Item(lngCounter).Name = strTBContextMenu Then
    8. Call DeleteContextMenu
    9. Call DeleteContextMenu
    10. Exit For
    11. End If
    12. Next
    13. Call CreateContextMenu


    und hier noch ein anderer Code-Ausschnitt:

    Visual Basic-Quellcode

    1. Private Sub CreateContextMenu()
    2. On Error GoTo Err_CreateContextMenu
    4. Dim objMenu As CommandBar
    5. Dim objME As CommandBarButton
    6. Dim objTemplate As Template
    7. Dim objOldTemplate As Template
    8. Dim intCounter As Integer
    10. ' 1. CustomizationContext ändern
    11. Set objOldTemplate = Application.CustomizationContext
    12. Set objTemplate = Nothing
    13. For intCounter = 1 To Application.Templates.Count
    14. If Application.Templates(intCounter).Name = strTBFileName Then
    15. If objTemplate Is Nothing Then
    16. Set objTemplate = Application.Templates(intCounter)
    17. End If
    18. End If
    19. Next
    21. If objTemplate Is Nothing Then
    22. Application.CustomizationContext = Application.ActiveDocument
    23. Else
    24. Application.CustomizationContext = objTemplate
    25. End If
    27. ' 2. Menu aufbauen
    28. Set objMenu = Application.CommandBars.Add(Name:="TBContextMenu", Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
    30. Set objME = objMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True)
    31. With objME
    32. .Caption = "Eintrag neu"
    33. .Parameter = "NewEntry"
    34. .FaceId = 1589
    35. .OnAction = "ContextMenuHandler"
    36. End With
    38. Set objME = objMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True)
    39. With objME
    40. .Caption = "Ordner neu"
    41. .Parameter = "NewFolder"
    42. .FaceId = 1660
    43. .OnAction = "ContextMenuHandler"
    44. End With
    46. Set objME = objMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True)
    47. With objME
    48. .Caption = "Eintrag ändern"
    49. .Parameter = "EditEntry"
    50. .FaceId = 1552
    51. .OnAction = "ContextMenuHandler"
    52. End With
    54. Exit_CreateContextMenu:
    55. Application.CustomizationContext = objOldTemplate
    56. Set objOldTemplate = Nothing
    57. Set objTemplate = Nothing
    58. Set objME = Nothing
    59. Set objMenu = Nothing
    60. Exit Sub
    61. Err_CreateContextMenu:
    62. If Err.Number = 0 Then
    63. GoTo Exit_CreateContextMenu
    64. Else
    65. LogError "MainForm::CreateContextMenu", Err
    66. Resume Exit_CreateContextMenu
    67. End If
    68. End Sub


    Hat irgendwer eine Idee, was hier das Problem sein könnte und wo ein allfälliger Lösungsansatz zu suchen wäre? Für jeden Hinweis bin ich dankbar.

    Lieber Digot

    ich verstehe leider einiges nicht an Deiner Antwort:

    1. Wie soll die Zuweisung "deinprog = deinsub" funktionieren, immerhin wäre "deinsub" nicht vom Typ Addin

    2. Schlägst Du vor, ich solle alles in eine Sub packen. Wie soll ich das machen, immerhin habe ich mehrere Module, Formulare und Klassenmodule, aus denen das Addin besteht.

    3. Inwiefern hat Dein Vorschlag einen Einfluss darauf, wie das Kontextmenü in der Vorlage gespeichert wird?

    Danke trotzdem.

    Gruss

    harryhirsch

Facebook
Telefonspende