un paio di mesi fa, grazie al preziosissimo aiuto di Gaetanopard, ero riuscito a creare una finestra di dialogo "Menu"" con vari pulsanti collegati a delle macro che svolgevano alcune operazioni. Adesso, inspiegabilmente, non mi funzionano più i pulsanti che aprivano i singoli fogli. Allego la macro di uno di questi pulsanti che apriva il foglio n. 1, sperando in un vostro aiuto. Grazie.
Codice: Seleziona tutto
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub ApriAsseverazione
DialogLibraries.LoadLibrary("Standard")
DlgMenu = CreateUnoDialog(DialogLibraries.Standard.Menu)
Dlg.endExecute()
DlgMenu.endExecute()
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
end sub