Puis-je modifier le style de liste utilisé lorsque Word (2007) crée automatiquement une liste à puces?

Question

J'ai un modèle dans lequel j'ai créé un style de liste personnalisé, et je m'assure que ce style de liste est utilisé lorsque l'utilisateur clique sur l'icône «balle» sur le ruban (en remplaçant FormatBulletDefault).

Cependant, si les types d'utilisateurs:

* foo

... puis Word tourner automatiquement dans une liste à puces en utilisant la "mauvaise" (par défaut) style de liste, qui est pas celui que je veux utiliser. Cela signifie que les utilisateurs se retrouvent avec des listes mal formatées. Si je pouvais désactiver le paramètre "créer automatiquement des listes à puces" pour mon modèle, alors je pourrais considérer cela, mais c'est un paramètre d'application, et je ne veux pas l'éteindre pour tous les documents.

Est-il possible d'intercepter la création automatique d'une liste à puces? Ou pour changer le style de liste qu'il utilise?

Answer 1

Je ne connais aucun moyen d'intercepter ce comportement car il est provoqué par la fonctionnalité Correction automatique de Word de type Word. Cependant, vous pouvez désactiver temporairement le comportement Appliquer en tant que type | Automatique des listes à puces. Pour ce faire, ajoutez le code suivant à Private Sub Document_Open():

ActiveDocument.Application.Options.AutoFormatAsYouTypeApplyBulletedLists = False 

Cela désactivera cette fonctionnalité pour Word au niveau mondial (et en tant que tel aura une incidence sur les documents ouverts en même temps), mais si vous incluez l'inverse en privé sous Document_Close():

ActiveDocument.Application.Options.AutoFormatAsYouTypeApplyBulletedLists = True 

le réglage sera restauré. Vous pouvez trouver les correspondances de modèle objet Word pour la mise en forme automatique As You Type fonctionnalité ici:

http://technet.microsoft.com/en-us/library/Ee692775.big_asyoutype(en-us,TechNet.10).jpg

et un article expliquant la mise en œuvre VBA de ces paramètres ici:

http://technet.microsoft.com/en-us/library/ee692775.aspx