J'ai réuni plusieurs documents ayant de nombreux styles. Plusieurs ne sont
pas utilisés. Est-il possible de faire du nettoyage automatique (retrait) des
styles non utilisés.
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup, mais en testant sur un document je m'apperçoi qu'elle supprime un (au moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf corse) Suis je seul ? (me laissez pas tout seul, j'ai peur dans le noir ;-D)
Tu peux préciser ? Cette macro très simple ne va pas chercher les styles dans les en-têtes et pieds de page, dans les zones de texte, les cadres etc. Il faudrait la généraliser à toutes les 'stories' pour ça. Chez moi elle a toujours respecté les styles et mises en forme dérivés de styles non utilisés : si ton style supprimé à tort est un style dérivé d'un style supprimé ça m'intéresse de le savoir. Par contre elle ne supprime pas un style s'il est encore présent dans un paragraphe vide. Je ne me souviens pas avoir perdu avec cette macro des styles utilisés.
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-)
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour !
'JièL Goubert' nous a écrit ...
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup,
mais en testant sur un document je m'apperçoi qu'elle supprime un (au
moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf
corse)
Suis je seul ? (me laissez pas tout seul, j'ai peur dans le noir ;-D)
Tu peux préciser ?
Cette macro très simple ne va pas chercher les styles dans les en-têtes
et pieds de page, dans les zones de texte, les cadres etc. Il faudrait
la généraliser à toutes les 'stories' pour ça. Chez moi elle a toujours
respecté les styles et mises en forme dérivés de styles non utilisés :
si ton style supprimé à tort est un style dérivé d'un style supprimé
ça m'intéresse de le savoir. Par contre elle ne supprime pas un style
s'il est encore présent dans un paragraphe vide. Je ne me souviens pas
avoir perdu avec cette macro des styles utilisés.
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont
sorties, tu peux laisser ta combinaison polaire.... ;-)
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup, mais en testant sur un document je m'apperçoi qu'elle supprime un (au moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf corse) Suis je seul ? (me laissez pas tout seul, j'ai peur dans le noir ;-D)
Tu peux préciser ? Cette macro très simple ne va pas chercher les styles dans les en-têtes et pieds de page, dans les zones de texte, les cadres etc. Il faudrait la généraliser à toutes les 'stories' pour ça. Chez moi elle a toujours respecté les styles et mises en forme dérivés de styles non utilisés : si ton style supprimé à tort est un style dérivé d'un style supprimé ça m'intéresse de le savoir. Par contre elle ne supprime pas un style s'il est encore présent dans un paragraphe vide. Je ne me souviens pas avoir perdu avec cette macro des styles utilisés.
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-)
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
JièL Goubert
Bonjoir(c) Anacoluthe
Le 25/03/2005 13:14 vous avez écrit ceci :
Bonjour !
Tu peux préciser ?
je t'envoi un doc qui pose soucis, tu verras par toi même
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-)
Ca c'est une galégeade, c'est sur ;-)))))))) A moins que 21° ça soit au soleil, auquel cas, effectivement je comprendrais, mais encore faut-il voir le soleil ;-)))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) Anacoluthe
Le 25/03/2005 13:14 vous avez écrit ceci :
Bonjour !
Tu peux préciser ?
je t'envoi un doc qui pose soucis, tu verras par toi même
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont
sorties, tu peux laisser ta combinaison polaire.... ;-)
Ca c'est une galégeade, c'est sur ;-))))))))
A moins que 21° ça soit au soleil, auquel cas, effectivement je
comprendrais, mais encore faut-il voir le soleil ;-)))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
je t'envoi un doc qui pose soucis, tu verras par toi même
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-)
Ca c'est une galégeade, c'est sur ;-)))))))) A moins que 21° ça soit au soleil, auquel cas, effectivement je comprendrais, mais encore faut-il voir le soleil ;-)))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Anacoluthe
Bonjour !
'JièL Goubert' nous a écrit ...
je t'envoi un doc qui pose soucis, tu verras par toi même
J'ai jeté un coup d'oeil : tu as raison la macro te supprime certains styles utilisés ! La cause en est que tu as mis des styles de paragraphe et des styles de caractère de mêmes noms... (ah ces marseillais ! toujours aussi blagueurs !!!) Je vais voir si on peut améliorer la macro pour traiter ce cas que je nommerais volontiers 'Pastis dans les styles' ;-)
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-) Ca c'est une galégeade, c'est sur ;-))))))))
A moins que 21° ça soit au soleil, auquel cas, effectivement je comprendrais, mais encore faut-il voir le soleil ;-)))
Je te parle plus na :-)
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour !
'JièL Goubert' nous a écrit ...
je t'envoi un doc qui pose soucis, tu verras par toi même
J'ai jeté un coup d'oeil : tu as raison la macro te supprime
certains styles utilisés !
La cause en est que tu as mis des styles de paragraphe
et des styles de caractère de mêmes noms...
(ah ces marseillais ! toujours aussi blagueurs !!!)
Je vais voir si on peut améliorer la macro pour traiter
ce cas que je nommerais volontiers 'Pastis dans les styles' ;-)
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont
sorties, tu peux laisser ta combinaison polaire.... ;-)
Ca c'est une galégeade, c'est sur ;-))))))))
A moins que 21° ça soit au soleil, auquel cas, effectivement je
comprendrais, mais encore faut-il voir le soleil ;-)))
Je te parle plus na :-)
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
je t'envoi un doc qui pose soucis, tu verras par toi même
J'ai jeté un coup d'oeil : tu as raison la macro te supprime certains styles utilisés ! La cause en est que tu as mis des styles de paragraphe et des styles de caractère de mêmes noms... (ah ces marseillais ! toujours aussi blagueurs !!!) Je vais voir si on peut améliorer la macro pour traiter ce cas que je nommerais volontiers 'Pastis dans les styles' ;-)
PS: soleil et 21° dans le jardin en ce moment, les jonquilles sont sorties, tu peux laisser ta combinaison polaire.... ;-) Ca c'est une galégeade, c'est sur ;-))))))))
A moins que 21° ça soit au soleil, auquel cas, effectivement je comprendrais, mais encore faut-il voir le soleil ;-)))
Je te parle plus na :-)
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Geo
Bonjour JièL
Essaye celle-ci pour voir : 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 JièL
Essaye celle-ci pour voir :
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
Essaye celle-ci pour voir : 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
JièL Goubert
Bonjoir(c) Geo
Le 25/03/2005 17:28 vous avez écrit ceci :
Bonjour JièL
Essaye celle-ci pour voir :
même motif, même punition. En fait Anacoluthe s'est rendu compte d'un truc que je n'ais pas vu ; il y aurait des styles de caractères avec les mêmes noms que des styles de parag !!!
Promis, j'y suis pour rien dans cette salade (même pas grèce) car c'est des doc batis à partir d'autre doc et avec une feuille de style exotiques.
Tu veux que je t'envoi le doc et la feuille de style à toi aussi pour tester ? Je ne peux pas les mettres à dispo sur un serveur, c'est des doc -un peu- confidentiel.
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) Geo
Le 25/03/2005 17:28 vous avez écrit ceci :
Bonjour JièL
Essaye celle-ci pour voir :
même motif, même punition.
En fait Anacoluthe s'est rendu compte d'un truc que je n'ais pas vu ; il y
aurait des styles de caractères avec les mêmes noms que des styles de
parag !!!
Promis, j'y suis pour rien dans cette salade (même pas grèce) car c'est
des doc batis à partir d'autre doc et avec une feuille de style exotiques.
Tu veux que je t'envoi le doc et la feuille de style à toi aussi pour tester ?
Je ne peux pas les mettres à dispo sur un serveur, c'est des doc -un peu-
confidentiel.
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
même motif, même punition. En fait Anacoluthe s'est rendu compte d'un truc que je n'ais pas vu ; il y aurait des styles de caractères avec les mêmes noms que des styles de parag !!!
Promis, j'y suis pour rien dans cette salade (même pas grèce) car c'est des doc batis à partir d'autre doc et avec une feuille de style exotiques.
Tu veux que je t'envoi le doc et la feuille de style à toi aussi pour tester ? Je ne peux pas les mettres à dispo sur un serveur, c'est des doc -un peu- confidentiel.
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Anacoluthe
Bonjour Geo !
'Geo' nous a écrit ...
Essaye celle-ci pour voir : Sub SupStylesInutiles()
Ta macro repose sur les mêmes bases que la précédente. Tu testes juste en plus inUse ce qui n'est pas indispensable puisque les styles prédéfinis ne sont pas supprimables : ça te permet juste de ne pas chercher à effacer un style prédéfini non utilisé. Ensuite tu fais aussi une recherche du style. Résultat : sur le document de JièL abreuvé du Pastis-de-styles tu obtiens le même résultat d'effacement d'un style caractère+paragraphe mal fichu :-(
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour Geo !
'Geo' nous a écrit ...
Essaye celle-ci pour voir :
Sub SupStylesInutiles()
Ta macro repose sur les mêmes bases que la précédente.
Tu testes juste en plus inUse ce qui n'est pas indispensable
puisque les styles prédéfinis ne sont pas supprimables :
ça te permet juste de ne pas chercher à effacer un
style prédéfini non utilisé. Ensuite tu fais aussi une
recherche du style. Résultat : sur le document de JièL
abreuvé du Pastis-de-styles tu obtiens le même résultat
d'effacement d'un style caractère+paragraphe mal fichu :-(
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
Essaye celle-ci pour voir : Sub SupStylesInutiles()
Ta macro repose sur les mêmes bases que la précédente. Tu testes juste en plus inUse ce qui n'est pas indispensable puisque les styles prédéfinis ne sont pas supprimables : ça te permet juste de ne pas chercher à effacer un style prédéfini non utilisé. Ensuite tu fais aussi une recherche du style. Résultat : sur le document de JièL abreuvé du Pastis-de-styles tu obtiens le même résultat d'effacement d'un style caractère+paragraphe mal fichu :-(
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Anacoluthe
Bonjour !
'JièL Goubert' nous a écrit ...
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup, mais en testant sur un document je m'apperçoi qu'elle supprime un (au moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf corse)
Voici une deuxième version *anti-pastis* qui me semble garder tous tes styles y compris ceux qui ont été doublés Caractère + Paragraphe. En cas de conflit de nom, Word ajoute 'Car' pour distinguer le style de caractère, ce sont ces styles 'Car' qui tel le pastis troublent la limpidité des styles ...
A signaler qu'un document possédant un pastis de style n'est pas réparé par Ouvrir/Ouvrir et réparer.
Public Sub NettoyerStyles() Dim oStyle As Style Dim n As Integer For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn _ And Right(oStyle.NameLocal, 3) <> "Car" Then With ActiveDocument.Content.Find .ClearFormatting .Style = ActiveDocument.Styles(oStyle) If Not .Execute() Then Debug.Print "J'ai supprimé " & oStyle.NameLocal oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Comme dans la version de Geo, on peut voir la liste des styles supprimés dans la fenêtre d'exécution : Alt+F11 Ctrl+G
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour !
'JièL Goubert' nous a écrit ...
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup,
mais en testant sur un document je m'apperçoi qu'elle supprime un (au
moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf
corse)
Voici une deuxième version *anti-pastis* qui me semble garder
tous tes styles y compris ceux qui ont été doublés Caractère
+ Paragraphe. En cas de conflit de nom, Word ajoute 'Car' pour
distinguer le style de caractère, ce sont ces styles 'Car' qui
tel le pastis troublent la limpidité des styles ...
A signaler qu'un document possédant un pastis de style n'est
pas réparé par Ouvrir/Ouvrir et réparer.
Public Sub NettoyerStyles()
Dim oStyle As Style
Dim n As Integer
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn _
And Right(oStyle.NameLocal, 3) <> "Car" Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = ActiveDocument.Styles(oStyle)
If Not .Execute() Then
Debug.Print "J'ai supprimé " & oStyle.NameLocal
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle
MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub
Comme dans la version de Geo, on peut voir la liste des styles
supprimés dans la fenêtre d'exécution : Alt+F11 Ctrl+G
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
Cette macro (non superfétatoire bien evidement) m'intéresse beaucoup, mais en testant sur un document je m'apperçoi qu'elle supprime un (au moins) style qui est pourtant utilisé (badaboum la mise en forme oeuf corse)
Voici une deuxième version *anti-pastis* qui me semble garder tous tes styles y compris ceux qui ont été doublés Caractère + Paragraphe. En cas de conflit de nom, Word ajoute 'Car' pour distinguer le style de caractère, ce sont ces styles 'Car' qui tel le pastis troublent la limpidité des styles ...
A signaler qu'un document possédant un pastis de style n'est pas réparé par Ouvrir/Ouvrir et réparer.
Public Sub NettoyerStyles() Dim oStyle As Style Dim n As Integer For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn _ And Right(oStyle.NameLocal, 3) <> "Car" Then With ActiveDocument.Content.Find .ClearFormatting .Style = ActiveDocument.Styles(oStyle) If Not .Execute() Then Debug.Print "J'ai supprimé " & oStyle.NameLocal oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Comme dans la version de Geo, on peut voir la liste des styles supprimés dans la fenêtre d'exécution : Alt+F11 Ctrl+G
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Geo
Bonjour Anacoluthe
La cause en est que tu as mis des styles de paragraphe et des styles de caractère de mêmes noms...
C'est possible ça ?
--
A+
Bonjour Anacoluthe
La cause en est que tu as mis des styles de paragraphe
et des styles de caractère de mêmes noms...
La cause en est que tu as mis des styles de paragraphe et des styles de caractère de mêmes noms...
C'est possible ça ?
--
A+
JièL Goubert
Bonjoir(c) Anacoluthe
Le 25/03/2005 19:03 vous avez écrit ceci :
Bonjour !
Voici une deuxième version *anti-pastis* qui me semble garder tous tes styles y compris ceux qui ont été doublés Caractère + Paragraphe.
Par fée ;-) Mais promis, j'y suis pour rien dans ce pastis la, j'ai même pas honte ;-)))
A signaler qu'un document possédant un pastis de style n'est pas réparé par Ouvrir/Ouvrir et réparer.
Question subsidiaire : comment un tel pastaga à t'il pu arrivé ? c'est le passage à différentes versions et des manips de folies qui ont faient cette "caguade" ? ou bien c'est simplement l'auteur qui est a fusiller haut et court ?
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) Anacoluthe
Le 25/03/2005 19:03 vous avez écrit ceci :
Bonjour !
Voici une deuxième version *anti-pastis* qui me semble garder
tous tes styles y compris ceux qui ont été doublés Caractère
+ Paragraphe.
Par fée ;-)
Mais promis, j'y suis pour rien dans ce pastis la, j'ai même pas honte ;-)))
A signaler qu'un document possédant un pastis de style n'est
pas réparé par Ouvrir/Ouvrir et réparer.
Question subsidiaire : comment un tel pastaga à t'il pu arrivé ? c'est le
passage à différentes versions et des manips de folies qui ont faient
cette "caguade" ? ou bien c'est simplement l'auteur qui est a fusiller
haut et court ?
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Voici une deuxième version *anti-pastis* qui me semble garder tous tes styles y compris ceux qui ont été doublés Caractère + Paragraphe.
Par fée ;-) Mais promis, j'y suis pour rien dans ce pastis la, j'ai même pas honte ;-)))
A signaler qu'un document possédant un pastis de style n'est pas réparé par Ouvrir/Ouvrir et réparer.
Question subsidiaire : comment un tel pastaga à t'il pu arrivé ? c'est le passage à différentes versions et des manips de folies qui ont faient cette "caguade" ? ou bien c'est simplement l'auteur qui est a fusiller haut et court ?
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Geo
La cause en est que tu as mis des styles de paragraphe et des styles de caractère de mêmes noms...
C'est possible ça ?
Je voulais dire : en dehors de Marseille ?
La cause en est que tu as mis des styles de paragraphe
et des styles de caractère de mêmes noms...
