Discussion :

[sylcor]

Bonjour

Je bute sur une question toute simple, liée à une copie automatique à valeur ajoutée d'un document dans un autre
document mieux structuré, et surtout MIEUX stylé !

99% des utilisateurs de Word n'utilisent pas de Style, donc ils font leur listes à puces "à la volée".
Quand je sélectionne le texte, par exemple par un code de ce type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For each para in Activedocument.paragraphs
 
     para.Range.Select
 
Next para

je ne trouve pas le test à réaliser pour savoir si le paragraphe sélectionné possède une puce.

Qqun a une idée ? Merci pour cela.

[clementmarcotte]

Bonjour,

Comment faire, je ne sais pas trop.

J'ai regardé dans mon aide VBA (Word 2010) et j'ai fini par tomber sur cette page:

ParagraphFormat2, membres de l’objet

Il y a une propriété Bullet:

Bullet Renvoie l’objet BulletFormat2 du paragraphe. En lecture seule.

et l'objet en question à la page suivante:

BulletFormat2, membres de l’objet

mène à :

Type Renvoie ou définit une constante qui représente le type de puce. En lecture-écriture.

et finalement à

Référence du développeur Office
MsoBulletType, énumération
Spécifie le type des puces.
Nom Valeur Description
msoBulletMixed -2 Valeur renvoyée uniquement ; indique une combinaison des autres états.
msoBulletNone 0 Aucune puce.
msoBulletNumbered 2 Puces numérotées.
msoBulletPicture 3 Puces avec images.
msoBulletUnnumbered 1 Puces non numérotées.

© 2010 Microsoft Corporation. Tous droits réservés.

Donc, théoriquement, en retrouvant le type de puce, on devrait découvrir s'il y a une puce ou non.

Dur, dur, dur de suivre les programmeurs de Word et de VBA pour Word.

[Heureux-oli]

Salut,

Même si ce qui est écrit n'est pas faux, il y a une autre méthode.

Si le paragraphe possède une puce, la propriété singlelist renvoie True.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Paragraphs(1).Range.ListFormat.SingleList

Renverra True si le paragraphe possède une puce et ce quelle que soit la puce et son niveau.

[clementmarcotte]

Bonjour,

Salut,

Même si ce qui est écrit n'est pas faux

Ouais, surtout que ni l'objet Paragraph, ni l'objet Selection ne supportent la propriété/objet ParagraphFormat2 (VBA Word 2010 en tout cas)

Si le paragraphe possède une puce, la propriété singlelist renvoie True.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Paragraphs(1).Range.ListFormat.SingleList

Renverra True si le paragraphe possède une puce et ce quelle que soit la puce et son niveau.

Merci pout le tuyau.

[sylcor]

En parallèle, j'ai fini par utiliser ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Type_Liste = para.Range.ListFormat.ListType

Ça a marché aussi.

Je confirme que ParagraphFormat2 n'est pas disponible dans VBA 2010.

Je souscris au commentaire général : la gestion des puces est un cauchemar
en VBA Word. Comme la gestion des paragraphes, aussi...