Good evening,

In a custom bar in word, I have a group of 6 togglebuttons. It is only the button I click on that remains selected. I handled this with the getPressed and onAction callbacks.

My CustomUI is loaded as follows:

Public objRibbon As IRibbonUI
Sub R_OnLoad(ribbon As IRibbonUI)
Set objRibbon = ribbon

objRibbon.ActivateTab ("TC_Tab")
...


End Sub

Everything works fine, except that from time to time, I lose objRibbon, my instance of IRibbonUI, and a click on one of the togglbuttons causes an error 91 (object not defined)

Has anyone encountered this problem? Is there any way to write the object instance in memory?

Sincerely,
David


Translated with www.DeepL.com/Translator (free version)

When you edit the vba code in a template it often (always?) kills off the ribbon instance for that template. The easy fix is to close and reopen that template.

If you wanted to develop a method of being able to recreate the ribbon instance because you can't live with the easy fix, you can get some excellent guidance from this link. That code is for Excel and stores a Long value in a place that won't work in Word but the code should be easily adaptable for a Word solution.
Refresh Ribbon UI In Your Custom Excel Add-in

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

yes I had noticed

Thanks a lot Guessed, I will adapt this code!
Best regards,
David

I just tried to adapt for Word, the Excel code that Guessed proposes in the link.
However, I have a problem, Word crashes at the line :
CopyMemory myRibbon, lRibbonPointer, LenB(lRibbonPointer) in the Function GetRibbon(...)

The application crashes, then restarts the recovered document in read-only mode.


Here are the lines I modified to adapt them to Word

I added in declaration :
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As LongPtr)

Then in: Sub RibbonLoaded_MyCustomAddin(ribbon As IRibbonUI)
I replaced : ThisWorkbook.Names.Add Name:="RibbonID", RefersTo:=StoreRibbonPointer
with : ThisDocument.Variables("RibbonID") = StoreRibbonPointer

in : Sub RefreshRibbon()
I replaced: Set objRibbon = GetRibbon(Replace(ThisWorkbook.Names("TSGRibbonID" ).RefersTo, "=", ""))
by : Set objRibbon = GetRibbon(Replace(ActiveDocument.Variables("Ribbon ID"), "=", ""))


Does anyone have the skills to help me? Here I am sinking

Sincerely,
David

Here is a possible solution to adapt it. It seems to work (see in time)

Here are the lines I modified to adapt them to Word

So I put in the declaration :
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As LongPtr)

In: Sub RibbonLoaded_MyCustomAddin(ribbon As IRibbonUI)
ThisDocument.Variables("RibbonID") = StoreRibbonPointer
ThisDocument.Saved = True

In: Sub RefreshRibbon()
I deleted: 'Dim objRibbon As Object
I put this: Set objRibbon = GetRibbon(Replace(ActiveDocument.Variables("Ribbon ID"), "=", ""))

Now I can call "Call RefreshRibbon" it seems where I want, in my case in the Callback of onAction of my ToggleButtons. For the moment it seems to work and moreover I can modify on the fly the vba code of the Ribbon without it crashing either! (