OnAction function with two string parameters

[ayomama]

Hello everyone,



I have already added a dropdown menu and a button as an item of the dropdown menu to Word's ribbon using pre-ribbon era

Application.CommandBars("Standard").Controls.Add

Word adds the controls under a new "Add-ins" ribbon tab as expected.

The OnAction property of the button is set to :

'ReplaceTextWithMergeField "@PCIVIL", "PatientTitre"'

Here is ReplaceTextWithMergeField's signature:

Public Sub ReplaceTextWithMergeField(ByVal macroOrText As String, ByVal mergeFieldNameNew As String)

It is located in a module that does NOT have the statement Option Private Module.


When I click the button I get this error message:


When I assign this parameter-less function (found in the same module) to OnAction instead, it works fine:

Public Sub Testing()

What am I doing wrong?
Thanks

[ayomama]

Sharing my solution.


Based on comments from ms word - VBA Pass arguments with .onAction - Stack Overflow and Just a moment...


The only consistent method to pass multiple parameters to a callback function is through the .Parameter property of the control.


Step 1 - define the callback function without any parameters in its signature
Step 2 - set the value of the .OnAction property of the button (or other control) to the name of the function
Step 3 - set the value of the .Parameter of the button (or other control) to a concatenated string of parameters
Step 4 - in the callback function, read CommandBars.ActionControl.Parameter to retrieve the concatenated parameters
Step 5 - use Split() to retrieve the individual parameters


Will try to add sample code to illustrate later.