[WD-2007] Macro VBA pour liste à puces

[opacho]

Bonjour à toutes et à tous,

J'ai un problème dans mon fichier word, j'ai des listes à puces que j'aimerais remplacer par des tirets simple, un exemple est beaucoup plus parlant donc je vous l'ai mis en fichier joint.

Apparement le Rechercher/Remplacer ne suffit pas car les listes à puces ne sont pas identifiable.

J'ai commencé à bosser sur une macro pour trouver toutes les listes à puces :

Code :

1
2
3
4
Sub RemoveEmptyChips()
Dim pAra As Paragraph
For Each pAra In ActiveDocument.Paragraphs
If pAra.Range.ListFormat.ListType = wdListBullet Then

Mais je bloque sur le remplacement de ces listes par mon tiret simple
Merci d'avance pour votre aide

[Heureux-oli]

Salut,

quel est l'intérêt de remplacer une numérotation automatique par un paragraphe normal précédé d'un tiret ?

On peut changer le symbole de la liste à puce très facilement.

Mais voilà un code qui devrait le faire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Olivier()
Dim oPar As Paragraph
 
For Each oPar In ActiveDocument.Paragraphs
 
If oPar.Range.ListFormat.ListType <> 0 Then
    oPar.Range.ListFormat.RemoveNumbers
    oPar.Range.Select
    Selection.InsertBefore "- "
End If
 
 
Next oPar
 
End Sub

[opacho]

Bonjour,
tout d'abord merci pour ton aide précieuse

quel est l'intérêt de remplacer une numérotation automatique par un paragraphe normal précédé d'un tiret ?

J'ai besoin d'uniformiser le texte et je dois supprimer les listes à puces, c'est très spécifique

Par contre autre question, si dans mon texte j'ai d'autres listes à puces avec un symbole différent, par exemple des guillemets.

Est ce possible de faire la différence entre les deux types de liste à puces et de bien remplacer par des tirets ou des guillemets selon le type ?

Merci d'avance