読書記録ChangeLog

Excelと違ってメニューとツールバーを作ったり壊したり
するタイミングが難しい。
AutoExec()はAddinInstall()見たいな便利なものじゃないみたい。
Acrobatのwordツールバーみたいにならんかな？
---ThisDocument
'クラスモジュールAppEventをインスタンス化
Dim myApp As New AppEvent

'アドイン追加時に実行する。
'startupフォルダに入れている場合word開始時にも実行する。
'メニューバーコマンドバーの作成などを行う。
Sub AutoExec()
'ApplicationをセットするとWordのイベントを検知できるようになる。
    Set myApp.App = Application
    MsgBox "AutoExec"
End Sub

'アドイン削除時に実行
'word終了時にも実行する。
'メニューバーコマンドバーの削除などを行う。
Sub AutoExit()
    MsgBox "AutoExit"
End Sub
---AppEvent(クラスモジュール)
Public WithEvents App As Application
Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
'wordはSDIなのでこのeventでActiveDocumentの切り替えを検知できる。
'ActiveDocumentのステータスにあわせてメニューバーツールバーを
'変更したりする。
    MsgBox "App_WindowActivate" & ActiveDocument.Name
End Sub

固定リンク [2005-07-14-8]