Как в Word средствами VBA сделать недоступной панель

Программирование на Visual Basic for Applications
Rust
Новичок
Новичок
 
Сообщения: 42
Зарегистрирован: 01.02.2005 (Вт) 14:41

Как в Word средствами VBA сделать недоступной панель

Сообщение Rust » 01.02.2005 (Вт) 14:43

Как в Word средствами VBA сделать недоступной пользовательскую панель инструментов, если не открыто ни одного файла, подобно тому, как это происходит со стандартными панелями при отсутствии открытых документов.
И где поместить соответствующий код.
Заранее благодарен!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 01.02.2005 (Вт) 14:52

Код: Выделить всё
Option Explicit

Private WithEvents app As Word.Application

Public Sub StartWatch()
  Set app = Me.Application
End Sub

Public Sub EndWatch()
  Set app = Nothing
End Sub

Private Sub app_DocumentChange()
  If app.Documents.Count = 0 Then
    ...
  End If
End Sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Rust
Новичок
Новичок
 
Сообщения: 42
Зарегистрирован: 01.02.2005 (Вт) 14:41

Сообщение Rust » 02.02.2005 (Ср) 13:12

Добавил этот код в раздел деклараций своего шаблона (в папке Starup), перестал загружаться шаблон при запуске Word.
If app.Documents.Count = 0 Then
CommandBars("Ns").Enabled = False
Else
CommandBars("Ns").Enabled = True
End If


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList