VBA désactiver/activer les combinaisons de touches de raccourci

Question

Je dois activer et désactiver la touche de raccourci pour sélectionner tout "Ctrl + A".

FindKey(BuildKeyCode(wdKeyControl, wdKeyA)).Disable 

FindKey(BuildKeyCode(wdKeyControl, wdKeyA)).Rebind wdKeyCategoryCommand, ?? 

Quel est le paramètre de commande pour Ctrl + A?

Je ne trouve cette information nulle part!

aussi je veux l'appliquer uniquement pour mes modèles:

CustomizationContext = ActiveDocument.AttachedTemplate 

Cela ne semble pas fonctionner. il semble s'appliquer au modèle normal car si j'ouvre une instance de mot, la touche de raccourci est toujours désactivée.

Answer 1

Saisie

?FindKey(BuildKeyCode(wdKeyControl, wdKeyA)).Command 

dans la fenêtre Exécution de l'éditeur VBA montre

EditSelectAll 

donc je suppose que c'est-ce que vous recherchez.

A votre deuxième question: avez-vous vérifié que ActiveDocument.AttachedTemplate n'est pas égal à NormalTemplate lorsque vous avez désactivé "Ctrl + A"?