J'essaye d'écrire une macro VBA qui s'exécute lors de l'ouverture d'un document .docx. Je veux qu'il force l'affichage du volet de navigation, puis force tous les en-têtes (tous niveaux) à s'afficher en mode réduit. J'essaie d'obtenir le code de la commande Réduire à l'aide de l'enregistreur de macro.
Tout ce que j'ai lorsque j'enregistre la macro est:
ActiveWindow.DocumentMap = True
Clic droit sur un titre dans le volet de navigation et la réduction n'enregistre pas de ligne de code. Existe-t-il une méthode VBA pour cet événement?
3 Réponses :
Cela peut être aussi simple que:
CommandBars.ExecuteMso "MinimizeRibbon"
Remarque: exécuter ce qui précède lorsque le ruban est déjà masqué l'affiche .
Merci. Mon problème n'est pas avec le ruban. C'est avec le volet de navigation et le menu contextuel Tout réduire / Tout développer. Des idées?
Au moment d'écrire ces lignes en 2019, cela n'est pas possible via VBA. Il a été demandé à Microsoft pour depuis longtemps .
Comme initialement suggéré dans ce forum Microsoft post , le moyen le plus rapide de réduire tous les en-têtes du volet de navigation est de cliquer avec le bouton droit sur l'un des en-têtes et de cliquer sur Tout réduire . Évidemment, ce n'est pas une solution automatisée / basée sur des macros, mais c'est tout ce que nous avons jusqu'à ce que Microsoft expose les volets de tâches via le modèle d'objet VBA.
J'ai fait une demande d'utilisation pour une telle fonctionnalité à l'équipe de développeurs Word. Votez ici: word.uservoice.com/forums/...
J'ai "résolu" cette exigence pour moi-même au moyen d'un script AutoHotKey, qui envoie simplement le clic de souris nécessaire et les touches suivantes. Pas beau, mais ça marche la plupart du temps. Cordialement, Hauke
Je pense que cela n'est PAS pris en charge dans le modèle d'objet Word. En général, aucune commande n'est exposée pour le contenu du volet des tâches de quelque nature que ce soit. Les volets Office intégrés ne peuvent être affichés, masqués ou positionnés.