home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / MacPowerオリジナル / LoadTest⁄MSOffice / リスト / リスト４ < prev   
Text File  |  1996-04-04  |  2KB  |  56 lines
  1. 'MenuFix
  2. 'Eliminate hankaku menuTitle
  3. 'by GK TOM 96.3.10
  4.  
  5. Sub Auto_Open()
  6.     With MenuBars(1)
  7.         .Menus(1).Caption = "ファイル"
  8.         .Menus(5).Caption = "データ"
  9.         .Menus(7).Caption = "マクロ"
  10.         .Menus(8).Caption = "ウィンドウ"
  11.     End With
  12.     With MenuBars(2)
  13.         .Menus(1).Caption = "ファイル"
  14.         .Menus(4).Caption = "グラフ"
  15.         .Menus(6).Caption = "マクロ"
  16.         .Menus(7).Caption = "ウィンドウ"
  17.     End With
  18.     With MenuBars(3)
  19.         .Menus(1).Caption = "ファイル"
  20.         .Menus(3).Caption = "ウィンドウ"
  21.     End With
  22.     With MenuBars(-4129)
  23.         .Menus(1).Caption = "ファイル"
  24.         .Menus(3).Caption = "マクロ"
  25.         .Menus(4).Caption = "ウィンドウ"
  26.     End With
  27.     With MenuBars(5)
  28.         .Menus(1).Caption = "ファイル"
  29.         .Menus(5).Caption = "データ"
  30.         .Menus(7).Caption = "マクロ"
  31.         .Menus(8).Caption = "ウィンドウ"
  32.     End With
  33.     With MenuBars(6)
  34.         .Menus(1).Caption = "ファイル"
  35.         .Menus(4).Caption = "グラフ"
  36.         .Menus(6).Caption = "マクロ"
  37.         .Menus(7).Caption = "ウィンドウ"
  38.     End With
  39.     With MenuBars(-4167)
  40.         .Menus(1).Caption = "ファイル"
  41.         .Menus(6).Caption = "ツール"
  42.         .Menus(7).Caption = "データ"
  43.         .Menus(8).Caption = "ウィンドウ"
  44.     End With
  45.     With MenuBars(-4109)
  46.         .Menus(1).Caption = "ファイル"
  47.         .Menus(6).Caption = "ツール"
  48.         .Menus(7).Caption = "ウィンドウ"
  49.     End With
  50.     With MenuBars(-4141)
  51.         .Menus(1).Caption = "ファイル"
  52.         .Menus(6).Caption = "ツール"
  53.         .Menus(7).Caption = "ウィンドウ"
  54.     End With
  55. End Sub
  56.