[RESOLVED] menuItemExecute

[howdykeith]

Great code here ^^

This code in some cases will open a Modal menu and Excel (for example) will keep waiting for the Adobe Menu to be closed before continuing. Changing to PostMessage opens the menu and continues the code.

You could add:

Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

and change to:

L = PostMessage(Hwnd, WM_COMMAND, M.wID, ByVal 0)

(thanks)

[howdykeith]

vijy,
try this example shows how to execute notepad's Help>About Notepad menu item. Before run this code,keep open your note pad.

Option Explicit

Private Const WM_COMMAND = &H111
Private Const MIIM_TYPE = &H10
Private Const MIIM_ID = 2

Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetMenu Lib "user32" (ByVal Hwnd As Long) As Long

Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _
(ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Sub MenuClick(Hwnd As Long, Menu As Long, Item As Long)
Dim hMenu As Long, hSubMenu As Long, L As Long
Dim M As MENUITEMINFO
If Hwnd Then
   hMenu = GetMenu(Hwnd)
   If hMenu Then
      hSubMenu = GetSubMenu(hMenu, Menu)
      If hSubMenu Then
         M.fMask = MIIM_TYPE Or MIIM_ID
         M.dwTypeData = Space$(128)
         M.cbSize = Len(M)
         M.cch = 128
         L = GetMenuItemInfo(hSubMenu, Item, True, M)
         L = SendMessage(Hwnd, WM_COMMAND, M.wID, ByVal 0)
      End If
   End If
End If
End Sub

' Example - Open Notepad's About Dialog.
Private Sub Command1_Click()
Dim Lng As Long
Lng = FindWindow(vbNullString, "Untitled - Notepad")
MenuClick Lng, 4, 2 ' 0 based, menu seperators count as an item.
'4 mean, the 5th menu in note pad. 2 mean the 3rd item in the 5th menu. as sad, starts at 0 based.
End Sub

How this will give you the idea.

Great code here ^^

This code in some cases will open a Modal menu and Excel (for example) will keep waiting for the Adobe Menu to be closed before continuing. Changing to PostMessage opens the menu and continues the code.

You could add:

Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

and change to:

L = PostMessage(Hwnd, WM_COMMAND, M.wID, ByVal 0)

(thanks, 15 years later)

[howdykeith]

Am trying to execute a menu item " Documents " in the Adobe Profeesional 7.0

Dim Ok as boolean
ok = AcrobatApp.MenuItemExecute("DigSig:ToolsDiff")

This not working..
This ok return false only at all time..
Can anybody say how to execute this menu??

Another possible solution:

Sub MenuItemExecuteLateBind()
   Dim AcroApp As Object
   Dim OpenThisDoc As Object
  
   Set OpenThisDoc = CreateObject("AcroExch.PDDoc")

   Set AcroApp = CreateObject("AcroExch.App")
   'AcroApp.Show

   OpenThisDoc.Open "C:\Temp\MyAdobeFile.pdf"
   'AcroApp.MenuItemExecute ("Open")

   AcroApp.MenuItemExecute ("DigSig:ToolsDiff")
End Sub

[howdykeith]

Great code here ^^

This code in some cases will open a Modal menu and Excel (for example) will keep waiting for the Adobe Menu to be closed before continuing. Changing to PostMessage opens the menu and continues the code.

You could add:

Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

and change to:

L = PostMessage(Hwnd, WM_COMMAND, M.wID, ByVal 0)

(thanks)

^^ Please delete, thanks!