Discussion :

[wouebmaster]

Salut,
Existe il une macro qui permettrait de supprimer (Physiquement) tout les styles inutilisés dans une page Word ?

Merci

[wouebmaster]

C'est encore moi,

Voici la réponse à ma propre question (au cas où ça peut vous être utile) :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub SupStylesInutiles()
Dim S As Style
Dim msg As String
Dim MonDoc As Document
Set MonDoc = ActiveDocument
 
msg = "styles conservés :"
For Each S In MonDoc.Styles
Debug.Print S.NameLocal
If S.InUse = True Then
 
With MonDoc.Content.Find
.ClearFormatting
 
.Text = ""
.Style = S
.Execute Format:=True
If .Found = True Then
msg = msg & S & vbCr
Debug.Print msg
Else
Debug.Print "Effacement de : " & S.NameLocal
On Error Resume Next
S.Delete
On Error GoTo 0
End If
End With
End If
Next S
 
End Sub

@+

[malbec]

Merci, wouebmaster, pour avoir pris la peine de publier cette macro bien utile !
Sois-en éternellement remercié !

[Sepia]

Salut wouebmaster,

Voici la réponse à ma propre question (au cas où ça peut vous être utile) :

Bravo d'abord pour avoir trouver une solution et oui il faut publier la réponse pour que la communauté puisse en profiter.

@+