Raccourcis clavier dans la version non anglaise de Microsoft Office

J'ai un gros problème avec la version portugaise de MS Office 2007 et 2010.

Les raccourcis standard utilisés par toute application courante sont modifiés.
Quelques raccourcis qui ne fonctionnent pas: Ctrl+ s(enregistrer), Ctrl+ f(rechercher) et Ctrl+ a(sélectionner tout).

Je veux le configurer pour utiliser les raccourcis de la version anglaise.

Il existe une option qui permet de configurer chaque raccourci séparément. De plus, je dois configurer pour chaque application, si je configure dans Word, je devrai reconfigurer pour Excel.

Comment utiliser les raccourcis de la version anglaise de MS Office quelle que soit la langue Office?

Merci

Je suis presque certain qu'il n'y a pas de méthode intégrée pour modifier les raccourcis dans les applications MS Office.

Cependant, vous pouvez utiliser AutoHotkey à cet effet.

Le scénario

^a::
^f::
^s::
    WinGet, Process, ProcessName, A
    if(RegExMatch(Process, "^(WINWORD|EXCEL)\.EXE$"))
    {
       if(A_ThisHotKey = "^a")
           SendPlay, ^e
       if(A_ThisHotKey = "^f")
           SendPlay, ^b
       if(A_ThisHotKey = "^s")
           SendPlay, ^g
    }
    else
        SendPlay, %A_ThisHotKey%
return

Comment ça fonctionne

• ^a::, spécifie l'une des touches de raccourci qui exécutent le script avant l' returninstruction, où ^indique la Ctrlclé.

• WinGet, Process, ProcessName, Astocke le Anom du processus de la fenêtre active ( ) dans la variable Process.

• if(RegExMatch(Process, "^(WINWORD|EXCEL)\.EXE$")) {...} else ...vérifie si Process correspond à l' expression régulière , c'est-à-dire s'il correspond à l'une des chaînes WINWORD.EXEou EXCEL.EXE.

  • Si c'est le cas, le premier bloc est exécuté.

    • if(A_ThisHotKey = "^a")vérifie si le raccourci clavier enfoncé est Ctrl+ A.

      Si c'est le cas, il simule la touche de bombardement Ctrl+ E, qui est le raccourci clavier portugais pour sélectionner tous les ¹ .

  • Sinon, SendPlay, %A_ThisHotKey%simule la combinaison de touches sur laquelle vous avez initialement appuyé.

    De cette façon, les autres applications se comportent toujours comme elles le devraient.

Comment utiliser

1. Téléchargez et installez la dernière version d'AutoHotkey.

2. Enregistrez le script ci-dessus sous ms-office.ahk, en utilisant votre éditeur de texte préféré.

3. Double-cliquez sur le fichier pour exécuter le script.

4. Si vous le souhaitez, copiez le script (ou un lien vers celui-ci) dans le Startupdossier.

5. Pour ajouter d'autres applications MS Office, modifiez simplement l'expression régulière.

   Pour ajouter PowerPoint, par exemple, remplacez (WINWORD|EXCEL)par (WINWORD|EXCEL|POWERPNT).

6. Pour ajouter d'autres raccourcis clavier, vous devez modifier deux parties du script.

   Pour ajouter Ctrl+ O(Ouvrir ...), par exemple, ajoutez la ligne ^o::à la liste tout en haut, ajoutez ces lignes à l'intérieur du ifbloc:

   if(A_ThisHotKey = "^o")
       SendPlay, ^a
   

¹ Du moins, je pense que oui . J'ai pris les raccourcis clavier de mon MS Office espagnol. Ajustez si nécessaire.

Sur la base de la réponse précédente, quelques raccourcis supplémentaires (pourraient être ajoutés à la réponse précédente):

^a::
^f::
^s::
^w::
^n::
^u::
^d::
^r::
^b::
^i::
^k::
^g::
    WinGet, Process, ProcessName, A
    if(RegExMatch(Process, "^(EXCEL)\.EXE$"))
    {
       if(A_ThisHotKey = "^a") ;seleccionar rango
           SendPlay, ^e
       if(A_ThisHotKey = "^f") ;buscar
           SendPlay, ^b
       if(A_ThisHotKey = "^s") ;guardar
           SendPlay, ^g
       if(A_ThisHotKey = "^w") ;cerrar
           SendPlay, ^r
       if(A_ThisHotKey = "^n") ;nuevo libro
           SendPlay, ^u
       if(A_ThisHotKey = "^u") ;subrayar
           SendPlay, ^s
       if(A_ThisHotKey = "^b") ;negrita
           SendPlay, ^n
       if(A_ThisHotKey = "^i") ;cursiva
           SendPlay, ^k
       if(A_ThisHotKey = "^d") ;filldown
           SendPlay, ^j
       if(A_ThisHotKey = "^r") ;fill right
           SendPlay, ^d
       if(A_ThisHotKey = "^k") ;hyperlink
           SendPlay, ^!k
       if(A_ThisHotKey = "^g") ;goto
           SendPlay, ^i
    }
    else
        SendPlay, %A_ThisHotKey%
return