VBA + Style

-----Message d'origine-----
Bonjour à tous,

Je souhaiterais savoir comment je peux vérifier s'il y a
un style réellement utilisé parmis les styles disponibles
dans un document.

J'ai réaliser une macro sur base d'un enregistrement de
macro par les commandes manuels. Le seul problème c'est
que cette macro va se ballader dans le document à la
recherche du style rechercher. Le résultat est surtout
visuel.

Mon but est de raliser une fonction qui renvoi un boolean
pour la recherche d'un style dans un document.

Pouriez-vous m'aider ?

Merci d'avance pour votre aide.
Bonjour

j'ai un truc dont tu peux t'inspirer :

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

Bonjour !

Elle est drôle ta macro Geo. Tu supprimes tous les styles
utilisés mais non présents. Pourquoi tu ne supprimes
pas les styles inutilisés (InUse False) ?

J'explique pour les AMIS la macro à Geo :
Un style est InUse vrai s'il a été utilisé dans le document;
ça ne veut pas dire qu'il est forcément présent dans le document
car après avoir utilisé un style, le texte peut avoir été
effacé ou modifié et InUse reste vrai. C'est pour ça que la macro
de Geo recherche pour chaque style InUse vrai s'il y a vraiment
du texte avec ce style. S'il n'y en a pas le style est supprimé.
Le On Resume Next avant S.Delete est là pour sauter
les styles ineffaçables (comme Normal, Titre 1 etc).

Pour une macro "SupStylesInutiles()"
j'aurais aussi supprimé tous les styles InUse False
mais bon, c'était juste pour taquiner Geo ;-)

Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL

'geo' nous a écrit ...

-----Message d'origine-----
Bonjour à tous,

Je souhaiterais savoir comment je peux vérifier s'il y a
un style réellement utilisé parmis les styles disponibles
dans un document.

J'ai réaliser une macro sur base d'un enregistrement de
macro par les commandes manuels. Le seul problème c'est
que cette macro va se ballader dans le document à la
recherche du style rechercher. Le résultat est surtout
visuel.

Mon but est de raliser une fonction qui renvoi un boolean
pour la recherche d'un style dans un document.

Pouriez-vous m'aider ?

Merci d'avance pour votre aide.

Bonjour
j'ai un truc dont tu peux t'inspirer :

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

Bonsoir Anacoluthe,


[...]

Ben j'avoue pas avoir tout compris.
Ca doit être un code trouvé sur le web et que j'ai adapté à ce que je
voulais faire.
Le nom de la macro est explicite sur ce sujet.

Si je supprime aussi les inUse= false
je vais supprimer tous les styles,

Ah c'était pour dire que mes styles sont inutiles ?


--

A+

Bonjour !

'Geo' nous a écrit ...

Ah c'était pour dire que mes styles sont inutiles ?

Ben oui, s'ils ne sont pas utilisés, ils sont inutiles ...
enfin c'est ce que j'aurais cru ;-) ))

A+
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL