Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　メニューの「改ページ」と「改ページの解除」を交互に実行する
'
'  Copyright(C) 2000 Sunago
'
'  　メニューコントロールのIDを指定してメニューを実行する方法を
'  利用して、メニューの「改ページ」と「改ページの解除」を交互に
'  実行します。
'
Option Explicit

Sub Macro1()
Dim myMenu

    '改ﾍﾟｰｼﾞ(&B)
    Set myMenu = Nothing
    Set myMenu = Application.CommandBars.FindControl _
                    (Type:=msoControlButton, Id:=509)
    If myMenu Is Nothing Then
        '改ﾍﾟｰｼﾞの解除(&B)
        Set myMenu = Application.CommandBars.FindControl _
                        (Type:=msoControlButton, Id:=1587)
    End If
    MsgBox myMenu.Caption   '検索したメニューの項目名を表示
    myMenu.Execute
    Set myMenu = Nothing
End Sub