Jojoчестно
не могу понять чего надо

Scio me nihil scire

<<Jojo®>>
Я понял так, что надо иконку в панели инструментов которая дает фиксированный шрифт стиля...
Если ты можешь - помоги Gotar (если ему исчо нада). Я смогу прписать только в понедельник (нет времени ни писать, ни искать - где-то у меня было подобное)...

поищи в инете - там где-то есть прога как втавить в меню правой клавиши мыши доп функции и макросы... или жди до понедельника...
Stepler ^{(щёлк-щёлк!!)}

Надо сделать что-то типа
Sub Для__________Ворда()
Set CntProp = Application.CommandBars(1).Controls("&Копировать")
With CntProp
.TooltipText = "55555555555"
.OnAction = "Копировать"
.Visible = True
End With
End Sub
Естественно функцию подставляешь свою (предварительно написав)...
Stepler ^{(щёлк-щёлк!!)}