Bonsoir,
Connaissez vous un moyen pour créer un raccouci clavier pour passer d'une fenêtre à l'autre (quand plusieurs documents sont ouverts) sous writer et calc.
Merci de vos conseils.
Raccourcis clavier
Modérateur : Vilains modOOs
Règles du forum
Cette section est uniquement dédiée au tableur Calc. Vous ne devez pas poster ici de questions sur les macros mais utiliser la section éponyme.
Cette section est uniquement dédiée au tableur Calc. Vous ne devez pas poster ici de questions sur les macros mais utiliser la section éponyme.
-
- Fraîchement OOthentifié
- Messages : 1
- Inscription : 22 sept. 2007 16:43
Raccourcis clavier
2.2.1 sous Mac OS 10.4.10
-
- Grand Maître de l'OOffice
- Messages : 11276
- Inscription : 02 mai 2006 08:42
Bonjour et bienvenue sur ce forum
Cette question, non spécifique au tableur a déjà été traitée. Par exemple :
http://user.services.openoffice.org/fr/ ... ml+t%E2che
ou
http://user.services.openoffice.org/fr/ ... tabulation
Cela dit, aucune solution n'est réellement donnée.
Ceci serait possible en affectant à un raccourci-clavier une macro du type :
Cette question, non spécifique au tableur a déjà été traitée. Par exemple :
http://user.services.openoffice.org/fr/ ... ml+t%E2che
ou
http://user.services.openoffice.org/fr/ ... tabulation
Cela dit, aucune solution n'est réellement donnée.
Ceci serait possible en affectant à un raccourci-clavier une macro du type :
Code : Tout sélectionner
sub PysChangerDoc
dim ExoEnum as object, ExoUnElement as object
dim ExoRep as integer
on error goto PysChangerDoc_Err
ExoEnum=stardesktop.components.createEnumeration()
ExoRep = 6
while ExoEnum.hasMoreElements and ExoRep = 6
ExoUnElement=ExoEnum.nextElement
if (ExoUnElement.supportsService("com.sun.star.document.OfficeDocument") or _
ExoUnElement.supportsService("com.sun.star.script.BasicIDE") or _
ExoUnElement.supportsService("com.sun.star.sheet.SpreadsheetDocument")) AND _
ExoUnElement.currentController.Frame.Name <> "OFFICE_HELP" then
ExoUnElement.currentController.Frame.ContainerWindow.Tofront
ExoRep = msgbox("Continuer", 4, "Parcourir OOo")
end if
PysChangerDoc_Reprise:
wend
PysChangerDoc_Exit:
exit sub
PysChangerDoc_Err:
select case err
case 423
resume PysChangerDoc_Reprise
case else
msgbox "Erreur non prévue - sortie du programme"
resume PysChangerDoc_Exit:
end select
end sub