Своя кнопка на стандартной панели Word
Добавлено: 20 сен 2010, 15:13
Добрый день!
Нужно чтобы во всех открываемых документах временно появлялась моя кнопка, создающая или удаляющая панель инструментов, которая в свою очередь выполняет некоторые функции.
Создать кнопку и панель труда не составило, все помещено в шаблон, шаблон положен в
Documents and Settings\%USERNAME%\Application Data\Microsoft\Word\STARTUP
А вот как сделать чтобы при закрытии документа эта кнопка удалялась?
AutoClose из шаблона не срабатывает, AutoExit срабатывает уже после закрытия документа. т.е. в документе остается неработающая кнопка (на других компах или после удаления шаблона)
При создании кнопки параметр Temporary=true не помогает (возможно не правильно применяю)
Коды:
Кусок создания кнопки:
Итак, главный вопрос: Как из шаблона отследить закрытие документа чтобы удалить кнопку или как реализовать по-другому?
Нужно чтобы во всех открываемых документах временно появлялась моя кнопка, создающая или удаляющая панель инструментов, которая в свою очередь выполняет некоторые функции.
Создать кнопку и панель труда не составило, все помещено в шаблон, шаблон положен в
Documents and Settings\%USERNAME%\Application Data\Microsoft\Word\STARTUP
А вот как сделать чтобы при закрытии документа эта кнопка удалялась?
AutoClose из шаблона не срабатывает, AutoExit срабатывает уже после закрытия документа. т.е. в документе остается неработающая кнопка (на других компах или после удаления шаблона)
При создании кнопки параметр Temporary=true не помогает (возможно не правильно применяю)
Коды:
Код: Выделить всё
Sub AutoExec() ' добавление кнопки
'MsgBox "AutoExec"
AddButton
End Sub
Sub autoclose() ' из шаблона не срабатывает, иначе бы не было вопросов
MsgBox "AutoClose"
End Sub
Sub AutoExit() ' срабатывает, но после сохр и закрытия документа
MsgBox "AutoExit"
ToolbarDelete
DELButton
End SubКод: Выделить всё
Set barControl = Word.CommandBars(1).Controls.Add(Type:=msoControlButton, temporary:=True)
With barControl
.BeginGroup = TrueКод: Выделить всё
Sub Show_or_Hide_tool()
' вкл выкл панель
Dim ctrl As CommandBar
For Each ctrl In CommandBars
If ctrl.Name = cStrToolbarName Then
ToolbarDelete
Exit Sub
End If
Next
ToolbarCreat
End Sub
Sub ToolbarDelete()
On Error Resume Next
Dim ctrl As CommandBar
For Each ctrl In CommandBars
If ctrl.Name = cStrToolbarName Then
CommandBars(cStrToolbarName).Delete
' Exit Sub
End If
Next
End Sub