Discussion :

[elliotttt]

Bonjour,
Je suis en stage (bts IG) de developpement et je rencontre un probleme que je n'arrive vraiment pas à résoudre, après des heures de recherche :

Je dois créer une macro word en vb qui recherches les puces dans un doc word d'une centaine de pages environ et qui les convertis en balises personalisées ("//PUCE" par exemple...).

J'ai essayé d'utiliser la fonction rechercher/remplacer, sans succès car elle ne reconait pas les puces, j'ai également pensé à utiliser le code ascii, mais impossible de trouver la valeur ascii d'une puce word...

Si vous avez l'ombre d'une piste, silvouplait aidez moi je commence à desesperer !

[Heureux-oli]

Salut,

La puce lorsqu'elle est utilisée en mode liste n'est pas trouvable. Tout ce que tu peux trouver, ce sont les lignes qui sont pucées.
Et dans ce que tu veux faire, il faut repérer les paragraphes où la numérotation est une puce, les remettre en normal et ajouter une balise.

Essaie ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Puces()
Dim pAra As Paragraph
 
For Each pAra In ActiveDocument.Paragraphs
    If pAra.Range.ListFormat.ListType = wdListBullet Then
 
       pAra.Range.ListFormat.RemoveNumbers wdNumberAllNumbers
 
       pAra.Range.InsertBefore "<moi>"
 
   End If
Next pAra
 
 
End Sub