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.
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour !
'marc' nous a écrit ...
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles()
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle
MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Circé
Bonjour !!
Ajouté in the faq ! http://faqword.free.fr/articles.php?lng=fr&pg16
Circé
Anacoluthe a exposé le 25/03/2005 :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Bonjour !!
Ajouté in the faq !
http://faqword.free.fr/articles.php?lng=fr&pg16
Circé
Anacoluthe a exposé le 25/03/2005 :
Public Sub NettoyerStyles()
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle
MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub
Ajouté in the faq ! http://faqword.free.fr/articles.php?lng=fr&pg16
Circé
Anacoluthe a exposé le 25/03/2005 :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Anacoluthe
Coucou !
'Circé' nous a écrit ...
Ajouté in the faq !
Il y en a qui travaillent tôt ! Ici le vendredi saint est férié... :-p
Joyeuses Pâques !
A++ A~
Coucou !
'Circé' nous a écrit ...
Ajouté in the faq !
Il y en a qui travaillent tôt !
Ici le vendredi saint est férié... :-p
Il y en a qui travaillent tôt ! Ici le vendredi saint est férié... :-p
pfffuiitttt !!! C'est totalement injuste ! :-(
Joyeuses Pâques !
Bon vendredi alors !! ;-)
A++ A~
marc
Bravo pour la macro...mais comme je ne suis pas un expert dans les macros...comment faire pour l'utiliser...
À propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
Marc le canadien au Sénégal
"Anacoluthe" wrote:
Bonjour !
'marc' nous a écrit ...
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bravo pour la macro...mais comme je ne suis pas un expert dans les
macros...comment faire pour l'utiliser...
À propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
Marc le canadien au Sénégal
"Anacoluthe" wrote:
Bonjour !
'marc' nous a écrit ...
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles()
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle
MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub
Anacoluthe
« Le meilleur style est celui qui se fait oublier. »
- STENDHAL
Bravo pour la macro...mais comme je ne suis pas un expert dans les macros...comment faire pour l'utiliser...
À propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
Marc le canadien au Sénégal
"Anacoluthe" wrote:
Bonjour !
'marc' nous a écrit ...
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.
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Circé
Bonjour,
marc avait prétendu :
Bravo pour la macro...mais comme je ne suis pas un expert dans les macros...comment faire pour l'utiliser...
Tout est dit là : http://faqword.free.fr/anacoluthe1/vba_ana.htm#anaco6
ä propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
T'inquiète pas, la France n'est pas musulmane (enfin, pas encore...), mais ce n'est pas pour autant que le vendredi saint est férié. Il s'agit simplement d'un privilège pour les alsaciens.... Donc, totalement injuste, comme je l'ai souligné !!!! :-D))
Anacoluthe « Le meilleur style est celui qui se fait oublier. » - STENDHAL
Bonjour,
marc avait prétendu :
Bravo pour la macro...mais comme je ne suis pas un expert dans les
macros...comment faire pour l'utiliser...
Tout est dit là :
http://faqword.free.fr/anacoluthe1/vba_ana.htm#anaco6
ä propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
T'inquiète pas, la France n'est pas musulmane (enfin, pas encore...),
mais ce n'est pas pour autant que le vendredi saint est férié. Il
s'agit simplement d'un privilège pour les alsaciens.... Donc,
totalement injuste, comme je l'ai souligné !!!! :-D))
Bravo pour la macro...mais comme je ne suis pas un expert dans les macros...comment faire pour l'utiliser...
Tout est dit là : http://faqword.free.fr/anacoluthe1/vba_ana.htm#anaco6
ä propos je vie dans un pays musulman ou le vendredi saint... connaît pas...
T'inquiète pas, la France n'est pas musulmane (enfin, pas encore...), mais ce n'est pas pour autant que le vendredi saint est férié. Il s'agit simplement d'un privilège pour les alsaciens.... Donc, totalement injuste, comme je l'ai souligné !!!! :-D))
Pour l'injustice...il n'y a malheureusement pas de solution...à moins de démménager en Alsace...les paysages ne sont-ils pas maginiques ???
Magnifique peut-être, mais il faut pouvoir sortir la tête de la cagoule polaire pour les voirs ;-)))))))))
-- JièL Paul aire en calle son
JièL Goubert
Bonjoir(c) Anacoluthe
Le 25/03/2005 08:12 vous avez écrit ceci :
Bonjour !
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Heum... je fais qqchose de "pas bien" ou bien y'a un os dans le potage ?
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)
« Le meilleur style est celui qui se fait oublier. »
Ben oui, mais faudrait voir à pas supprimer ceux qui se font oubliés
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) Anacoluthe
Le 25/03/2005 08:12 vous avez écrit ceci :
Bonjour !
J'utilise depuis longtemps cette petite macro :
Public Sub NettoyerStyles()
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete: n = n + 1
End If
End With
End If
Next oStyle
MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub
Heum... je fais qqchose de "pas bien" ou bien y'a un os dans le potage ?
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)
« Le meilleur style est celui qui se fait oublier. »
Ben oui, mais faudrait voir à pas supprimer ceux qui se font oubliés
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Public Sub NettoyerStyles() For Each oStyle In ActiveDocument.Styles If Not oStyle.BuiltIn Then With ActiveDocument.Content .Find.ClearFormatting .Find.Style = ActiveDocument.Styles(oStyle) If Not .Find.Execute() Then oStyle.Delete: n = n + 1 End If End With End If Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !" End Sub
Heum... je fais qqchose de "pas bien" ou bien y'a un os dans le potage ?
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)
« Le meilleur style est celui qui se fait oublier. »
Ben oui, mais faudrait voir à pas supprimer ceux qui se font oubliés
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
marc
Le froid de l'ALsace est certainement de la petite bière pour un Canadien....
Mais j'ai des inquiétudes concernant ton message suivant sur le bog de la macro ???
Marc
"JièL Goubert" wrote:
Bonjoir(c) marc
Le 25/03/2005 10:45 vous avez écrit ceci :
Pour l'injustice...il n'y a malheureusement pas de solution...à moins de démménager en Alsace...les paysages ne sont-ils pas maginiques ???
Magnifique peut-être, mais il faut pouvoir sortir la tête de la cagoule polaire pour les voirs ;-)))))))))
-- JièL Paul aire en calle son
Le froid de l'ALsace est certainement de la petite bière pour un Canadien....
Mais j'ai des inquiétudes concernant ton message suivant sur le bog de la
macro ???
Marc
"JièL Goubert" wrote:
Bonjoir(c) marc
Le 25/03/2005 10:45 vous avez écrit ceci :
Pour l'injustice...il n'y a malheureusement pas de solution...à moins de
démménager en Alsace...les paysages ne sont-ils pas maginiques ???
Magnifique peut-être, mais il faut pouvoir sortir la tête de la cagoule
polaire pour les voirs ;-)))))))))
