Sub MyToolBar()
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem マイツールバー処理
  Rem 作譜:Hitrock Camellia Shinopy
  Rem 言語:Word VBA
  Rem 機能...
  Rem   1. 指定したマクロを実行する。(この処理に指定されているマクロは一例。)
  Rem   2. 作業中の文書上で、元に戻すことのできる操作の一覧をクリアする。
  Rem 注記...
  Rem   1. この処理に指定されているマクロは一例です。
  Rem   2. Microsoft Word 2007で、ツールバーを表示させるマクロを実行すると、
  Rem      [アドイン]タブにツールバーが表示されます。
  Rem   2. 作業中の文書で元に戻すことのできる操作の一覧をクリアします。
  Rem 履歴...
  Rem   第01版:2008/10/24:作成。
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  '
  Application.Run "EspVortizo"
  Application.Run "EspRevizo"
  Application.Run "EspFindPaste"
  Application.Run "MyCsvLbox"
  Application.Run "MyCsvLboxEx"
  Application.Run "EspOptions"
  '
  On Error Resume Next
  Call SelRibbonTAB("アドイン")
  On Error GoTo 0
  '
  ActiveDocument.UndoClear ' [元に戻す]ボックス操作一覧クリア
End Sub ' MyToolBar *----*----*    *----*----*    *----*----*    *----*----*

inserted by FC2 system