Private Sub SendInputMouseWithCheck()
    Dim stcMouseInput As MouseInputT
    Dim lngInputCount As Long
    Dim lngX As Long
    Dim lngY As Long
    Dim lngResultDword As Long


    Do While True
        SleepWinApi 5 * 1000

        lngX = 400
        lngY = 200
        SetCursorPosWithCheck lngX, lngY

        stcMouseInput.InputType = WinApiE.INPUT_MOUSE
        stcMouseInput.X = lngX
        stcMouseInput.Y = lngY
        stcMouseInput.MouseData = 0
        stcMouseInput.Flag = WinApiE.MOUSEEVENTF_LEFTDOWN
        stcMouseInput.TimeData = 0
        stcMouseInput.Extra = 0

        lngInputCount = 1
        lngResultDword = mobjFunctionSelector.SendInputV01(lngInputCount, VarPtr(stcMouseInput), WinApiE.MOUSE_INPUT_LENGTH)
        If lngResultDword <> lngInputCount Then
            ErrorHandlerV11 ErrorE.errCanNotPerformRequestedOperation
        End If

        SleepWinApi 400

        stcMouseInput.InputType = WinApiE.INPUT_MOUSE
        stcMouseInput.X = lngX
        stcMouseInput.Y = lngY
        stcMouseInput.MouseData = 0
        stcMouseInput.Flag = WinApiE.MOUSEEVENTF_LEFTUP
        stcMouseInput.TimeData = 0
        stcMouseInput.Extra = 0

        lngInputCount = 1
        lngResultDword = SendInputWinApi(lngInputCount, VarPtr(stcMouseInput), WinApiE.MOUSE_INPUT_LENGTH)
        If lngResultDword <> lngInputCount Then
            ErrorHandlerV11 ErrorE.errCanNotPerformRequestedOperation
        End If
        
        
        Exit Do
    Loop
End Sub

Public Declare Function SetCursorPosWinApi Lib "user32" Alias "SetCursorPos" _
( _
ByVal lngX As Long, _
ByVal lngY As Long _
) As Long

Public Declare Function SendInputWinApi Lib "user32" Alias "SendInput" _
( _
ByVal lngInputCount As Long, _
ByVal lngInputAddress As Long, _
ByVal lngInputItemSize As Long _
) As Long

Public Type MouseInputT
    InputType As Long
    X As Long
    Y As Long
    MouseData As Long
    Flag As Long
    TimeData As Long
    Extra As Long
End Type

Public Enum WinApiE
    INPUT_MOUSE = 0
    INPUT_KEYBOARD = 1
    MOUSEEVENTF_LEFTDOWN = 2
    MOUSEEVENTF_LEFTUP = 4
    KEYEVENTF_DOWN = 0
    KEYEVENTF_KEYUP = 2
    KEYEVENTF_UNICODE = 4
    KEYEVENTF_SCANCODE = 8
    MAPVK_VK_TO_VSC = 0

    MOUSE_INPUT_LENGTH = 28
    KEYBOARD_INPUT_LENGTH = 28
End Enum

Public Sub ErrorHandlerV11(ByVal lngError As ErrorE)
    Dim lngErrorDword As Long


    lngErrorDword = Err.LastDllError
    Err.Raise lngError
End Sub

Private Sub SendInputMouseWithCheck()
    Dim stcMouseInput As MouseInputT
    Dim lngInputCount As Long
    Dim lngX As Long
    Dim lngY As Long
    Dim lngResultDword As Long


    Do While True
        lngX = 400
        lngY = 200
        SetCursorPosWinApi lngX, lngY

        stcMouseInput.InputType = WinApiE.INPUT_MOUSE
        stcMouseInput.X = lngX
        stcMouseInput.Y = lngY
        stcMouseInput.MouseData = 0
        stcMouseInput.Flag = WinApiE.MOUSEEVENTF_LEFTDOWN
        stcMouseInput.TimeData = 0
        stcMouseInput.Extra = 0

        lngInputCount = 1
        lngResultDword = SendInputWinApi(lngInputCount, VarPtr(stcMouseInput), WinApiE.MOUSE_INPUT_LENGTH)
        If lngResultDword <> lngInputCount Then
            ErrorHandlerV11 ErrorE.errCanNotPerformRequestedOperation
        End If

        SleepWinApi 400

        stcMouseInput.InputType = WinApiE.INPUT_MOUSE
        stcMouseInput.X = lngX
        stcMouseInput.Y = lngY
        stcMouseInput.MouseData = 0
        stcMouseInput.Flag = WinApiE.MOUSEEVENTF_LEFTUP
        stcMouseInput.TimeData = 0
        stcMouseInput.Extra = 0

        lngInputCount = 1
        lngResultDword = SendInputWinApi(lngInputCount, VarPtr(stcMouseInput), WinApiE.MOUSE_INPUT_LENGTH)
        If lngResultDword <> lngInputCount Then
            ErrorHandlerV11 ErrorE.errCanNotPerformRequestedOperation
        End If
        
        
        Exit Do
    Loop
End Sub

private sub Sample01
dim objApplication as Word.Application
dim objCommandBar as Office.CommandBar
dim objCommandBarControl as object
dim objCommandBarButton as Office.CommandBar
dim strCaptionCurrent as string
dim strCaptionRequired as string

strCaptionRequired="Prope&rties"

set objApplication = Application
for each objCommandBar in objApplication.CommandBars
for each objCommandBarControl in objCommandBar.Controls
if typeof objCommandBarControl is Office.CommandBar then
set objCommandBarButton=objCommandBarControl
strCaptionCurrent=objCommandBarButton.name
if strcomp(strcaptioncurrent,strcaptionrequired,vbcomparemethod.vbtextcompare)=0 then
msgbox "found"
'objCommandBarButton.Execute
endif
endif
next
next
end sub

private sub Sample01
dim objApplication as Word.Application
dim objCommandBar as Office.CommandBar
dim objCommandBarControl as object
dim objCommandBarButton as Office.CommandBarButton
dim strCaptionCurrent as string
dim strCaptionRequired as string

strCaptionRequired="Prope&rties"

set objApplication = Application
for each objCommandBar in objApplication.CommandBars
for each objCommandBarControl in objCommandBar.Controls
if typeof objCommandBarControl is Office.CommandBarButton then
set objCommandBarButton=objCommandBarControl
strCaptionCurrent=objCommandBarButton.name
if strcomp(strcaptioncurrent,strcaptionrequired,vbcomparemethod.vbtextcompare)=0 then
msgbox "found"
'objCommandBarButton.Execute
endif
endif
next
next
end sub