Comment les reperer les Puces

Bonjour à tous,
dans le message : umpwt3tSDHA.1036@TK2MSFTNGP10.phx.gbl,

| Bonjour à toutes et tous.
|
| Je souhaite faire une macro me permettant de nettoyer une page Word
| en vue d'une mise
| en ligne (page HTML) sur mon site web. (operation frequente)
|
| J'ai realise une partie de cette macro mais je bute sur un probleme
| tout petit puisqu'il s'agit
| des puces de word.
|
| Comment les reperer et les remplacer par un caractere quelconque type
| texte-alpha ????? !!!
On en a parlé il y a peu, le 6 juin ... ! Copie de la réponse ci-après.

Néanmoins comme faire sauter les puces est un art difficile et en
l'absence d'un polytechnicien, je te joins deux petits programmes
extrapolés de ce qui est dans l'aide VBA. Le premier sélectionne tour à
tour chacun des troupeaux de puces de ton document. Le deuxième remplace
les puces de tous les niveaux de ton document par la puce numéro deux
redéfinie.

Public Sub SelectListes()
Dim a, b, c, d, e, f, g, h
For Each a In ActiveDocument.Lists
a.Range.Select
Next a
End Sub

Public Sub ChangePuce()
Dim lev
Set mytemp = ListGalleries(2).ListTemplates(1)
For Each lev In mytemp.ListLevels
lev.NumberStyle = wdListNumberStyleAiueoHalfWidth
Next lev
ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=mytemp
ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=mytemp
End Sub

Cela devrait te mettre sur la voie !
--
A+

GMO MVP Word

Et surtout :
- ne lisez pas le manuel de Word, encore moins l'aide
- ne réfléchissez pas au problème qui se pose à vous
- expliquez le plus confusément possible les phénomènes constatés
- exigez une réponse immédiate
- expliquez à celui qui vous aide comment et pourquoi il aurait
du appliquer *votre* solution (qui évidemment ne marche pas)
- niez l'évidence : la solution qu'un bénévole a parfois mis des
heures à mettre au point ne marche pas chez vous qui l'appliquez mal
depuis 2 minutes.
- ne dites ni bonjour ni merci
- ne perdez pas la face : ne faites savoir à personne que vous
avez été dépanné

- insultez les contributeurs bénévoles, ils ne veulent pas
l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.

-----Message d'origine-----
Merci de toutes ces reponses ...
n'etant pas polytechnicien,