home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / MacPowerオリジナル / LoadTest⁄MSOffice / リスト / リスト２ < prev    next >
Text File  |  1996-04-04  |  437b  |  12 lines
  1. Sub MenuFixTest02()
  2.     For Each mb In MenuBars
  3.         For Each mnu In mb.Menus
  4.             If mnu.Caption = "ﾌｧｲﾙ" Then mnu.Caption = "ファイル"
  5.             If mnu.Caption = "ﾃﾞｰﾀ" Then mnu.Caption = "データ"
  6.             If mnu.Caption = "ﾂｰﾙ" Then mnu.Caption = "ツール"
  7.             If mnu.Caption = "ﾏｸﾛ" Then mnu.Caption = "マクロ"
  8.             If mnu.Caption = "ｳｨﾝﾄﾞｳ" Then mnu.Caption = "ウィンドウ"
  9.         Next
  10.     Next
  11. End Sub
  12.