problem with commandbar controls...

[nesplb]

Hi!

I'm making a macro who's supposed to add custom controls to a commandbar via an input field. The string the user inputs in the field is supposed to be the caption of the control and the name of a new textstyle. Further when a user clicks this particular control it's supposed to write it's own caption in the right style.

I guess when a user clicks a commandbar control it have to send it's own id so that I can get it's caption and then select the style and write the text....

Is this possible? -and how?


here's my code so far:

For the userform:

Private Sub CommandButton1_Click()

'Here comes the text from the user input
ButtonInit(TextBox1.Text)

UserForm1.hide

End Sub



For the buttonInit function:

Function buttonInit(ByVal text As String)

ActiveDocument.Styles.Add ("Type_" + text)
ActiveDocument.Styles("type_" + text).Font.Bold = True
ActiveDocument.Styles("type_" + text).Font.Color = wdColorBlue

Dim buttonName

buttonName = "type_" + text

Set buttonName = CommandBars("My Menu").Controls.Add(Type:=msoControlButton)

With buttonName
.Caption = text
.OnAction = prosessText(<Here should the id of the control come I guess>)

End With

End Function

The prosessText function:

Function prosessText(byVal id as String)
dim text

text = Commanbars(&quot;My menu&quot;).controls(id).caption

Selection.TypeText Text:=text

Selection.Style = ActiveDocument.Styles(&quot;type_&quot; + text)
Selection.MoveRight Unit:=wdCharacter, Count:=1

End Function

Thanx!



Pål Nesteby

PDC-Tangen
Norway

 

[RobBroekhuis]

When I've been faced with a similar problem, I've used the Windows registry (a simple text file would do, too) to store the information needed (here, it would be the names of the styles), and made the .onaction properties simply "dothis1", "dothis2", "dothis3", etc., with in my module

sub dothis1
MyStyle=GetSetting("MyCustomStyles", Application.Name, "1&quot
..do things with MyStyle...
end sub

If you have an unlimited number of entries, this becomes less desirable, but it's quite manageable for, say, up to twenty entries.


Rob