Dim myApp As New AppliMenuContext
Sub InitializeContext()
Set myApp.App = Word.Application
End Sub
Sub MenuContext()
Dim CB As CommandBar
Dim CBC As CommandBarControl
Set CB = Application.CommandBars.Add(Name:="pmo_bar", Position:=msoBarPopup, temporary:=True)
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = "Lot"
.OnAction = "insertLot"
End With
'---
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = "Unité"
.OnAction = "insertUnite"
End With
'--- etc
End Sub
Sub insertLot()
With Selection
.Text = "[[" & .Text & "]] "
.StartOf wdCharacter, wdMove
End With
End Sub
Sub insertUnite()
With Selection
.Text = "[*" & .Text & "] "
.StartOf wdCharacter, wdMove
End With
End Sub