Est-il possible d'imprimer les définitions de tous les styles utilisés
dans un document afin de pouvoir les imposer à plusieurs personnes
etobtenir ainsi les mêmes présentations.
Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces
défintions ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Circé
Bonsoir,
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les mêmes styles, de donner le modèle qui contient les styles...
Circé http://faqword.free.fr
Bernd avait énoncé :
Bonsoir,
Est-il possible d'imprimer les définitions de tous les styles utilisés dans un document afin de pouvoir les imposer à plusieurs personnes etobtenir ainsi les mêmes présentations. Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces défintions ?
Par avance merci.
Bonsoir,
Oui, c'est possible via une petite macro que tu trouveras dans la faq:
http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les
mêmes styles, de donner le modèle qui contient les styles...
Circé
http://faqword.free.fr
Bernd avait énoncé :
Bonsoir,
Est-il possible d'imprimer les définitions de tous les styles
utilisés dans un document afin de pouvoir les imposer à plusieurs
personnes etobtenir ainsi les mêmes présentations.
Sinon que peut-on faire pour ne pas devoir recopier à la main toutes
ces défintions ?
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les mêmes styles, de donner le modèle qui contient les styles...
Circé http://faqword.free.fr
Bernd avait énoncé :
Bonsoir,
Est-il possible d'imprimer les définitions de tous les styles utilisés dans un document afin de pouvoir les imposer à plusieurs personnes etobtenir ainsi les mêmes présentations. Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces défintions ?
Par avance merci.
romer
Circé wrote:
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr() ' Macro écrite par Guy Moncomble modifiée Anacoluthe Dim Sty As Style For Each Sty In ActiveDocument.Styles If Sty.BuiltIn = False Then ActiveDocument.Content.InsertAfter vbCr & _ "Style utilisateur " & Sty & " : " & _ Sty.Description & vbCr End If Next Sty End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation aux 3 lignes suivantes :
Oui, c'est possible via une petite macro que tu trouveras dans la faq:
http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr()
' Macro écrite par Guy Moncomble modifiée Anacoluthe
Dim Sty As Style
For Each Sty In ActiveDocument.Styles
If Sty.BuiltIn = False Then
ActiveDocument.Content.InsertAfter vbCr & _
"Style utilisateur " & Sty & " : " & _
Sty.Description & vbCr
End If
Next Sty
End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation aux
3 lignes suivantes :
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr() ' Macro écrite par Guy Moncomble modifiée Anacoluthe Dim Sty As Style For Each Sty In ActiveDocument.Styles If Sty.BuiltIn = False Then ActiveDocument.Content.InsertAfter vbCr & _ "Style utilisateur " & Sty & " : " & _ Sty.Description & vbCr End If Next Sty End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation aux 3 lignes suivantes :
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les mêmes styles, de donner le modèle qui contient les styles...
C'est surtout pour faire faire des exercices à base de styles - donc le modèle tout fait existe et il faut le reproduire à partir du même document non mis en forme et cela en s'aidant des définitions de styles qui seraient imprimées. -- A+
Romer
Oui, c'est possible via une petite macro que tu trouveras dans la faq:
http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les
mêmes styles, de donner le modèle qui contient les styles...
C'est surtout pour faire faire des exercices à base de styles - donc le
modèle tout fait existe et il faut le reproduire à partir du même
document non mis en forme et cela en s'aidant des définitions de styles
qui seraient imprimées.
--
A+
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Mais il me paraît plus simple, s'il s'agit de créer des docs avec les mêmes styles, de donner le modèle qui contient les styles...
C'est surtout pour faire faire des exercices à base de styles - donc le modèle tout fait existe et il faut le reproduire à partir du même document non mis en forme et cela en s'aidant des définitions de styles qui seraient imprimées. -- A+
Romer
Circé
Désolée, il y a qqfois des problèmes dûs aux copier-coller d'une appli à l'autre !!!
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr() ' Macro écrite par Guy Moncomble modifiée Anacoluthe Dim Sty As Style For Each Sty In ActiveDocument.Styles If Sty.BuiltIn = False Then ActiveDocument.Content.InsertAfter vbCr & _ "Style utilisateur " & Sty & " : " & _ Sty.Description & vbCr End If Next Sty End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation aux 3 lignes suivantes :
Oui, c'est possible via une petite macro que tu trouveras dans la
faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr()
' Macro écrite par Guy Moncomble modifiée Anacoluthe
Dim Sty As Style
For Each Sty In ActiveDocument.Styles
If Sty.BuiltIn = False Then
ActiveDocument.Content.InsertAfter vbCr & _
"Style utilisateur " & Sty & " : " & _
Sty.Description & vbCr
End If
Next Sty
End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation
aux 3 lignes suivantes :
Oui, c'est possible via une petite macro que tu trouveras dans la faq: http://faqword.free.fr/articles.php?lng=fr&pgf1
Je viens de l'utiliser telle quel :
Sub DecritStylesUsr() ' Macro écrite par Guy Moncomble modifiée Anacoluthe Dim Sty As Style For Each Sty In ActiveDocument.Styles If Sty.BuiltIn = False Then ActiveDocument.Content.InsertAfter vbCr & _ "Style utilisateur " & Sty & " : " & _ Sty.Description & vbCr End If Next Sty End Sub
Mais elle refuse de fonctionner en faisant une erreur de compilation aux 3 lignes suivantes :
C'est surtout pour faire faire des exercices à base de styles - donc le modèle tout fait existe et il faut le reproduire à partir du même document non mis en forme et cela en s'aidant des définitions de styles qui seraient imprimées.
OK !!! compris ! ;)) Merci pour l'explication !
Circé
Bernd a formulé ce mardi :
C'est surtout pour faire faire des exercices à base de styles - donc
le modèle tout fait existe et il faut le reproduire à partir du même
document non mis en forme et cela en s'aidant des définitions de
styles qui seraient imprimées.
C'est surtout pour faire faire des exercices à base de styles - donc le modèle tout fait existe et il faut le reproduire à partir du même document non mis en forme et cela en s'aidant des définitions de styles qui seraient imprimées.
OK !!! compris ! ;)) Merci pour l'explication !
Circé
romer
Circé wrote:
Désolée, il y a qqfois des problèmes dûs aux copier-coller d'une appli à l'autre !!!
Cette fois ça marche parfaitement - les descriptions de styles se retrouvent au bas du ducument.
Merci de l'aide. -- A+
Romer
Tisane
Bonsoir Bernd,
Est-il possible d'imprimer les définitions de tous les styles utilisés dans un document afin de pouvoir les imposer à plusieurs personnes etobtenir ainsi les mêmes présentations. Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces défintions ?
La macro n'affiche que les styles "utilisateurs". Ceux qui n'ont pas les noms par défaut de Word. Elle n'affiche pas les styles réellement "utilisés" dans le document. Si tu veux les styles *utilisés*, le menu Fichier | Imprimer, Styles permet d'en obtenir la liste.
-- Tisane
Bonsoir Bernd,
Est-il possible d'imprimer les définitions de tous les styles utilisés
dans un document afin de pouvoir les imposer à plusieurs personnes
etobtenir ainsi les mêmes présentations.
Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces
défintions ?
La macro n'affiche que les styles "utilisateurs". Ceux qui n'ont pas les
noms par défaut de Word.
Elle n'affiche pas les styles réellement "utilisés" dans le document.
Si tu veux les styles *utilisés*, le menu Fichier | Imprimer, Styles permet
d'en obtenir la liste.
Est-il possible d'imprimer les définitions de tous les styles utilisés dans un document afin de pouvoir les imposer à plusieurs personnes etobtenir ainsi les mêmes présentations. Sinon que peut-on faire pour ne pas devoir recopier à la main toutes ces défintions ?
La macro n'affiche que les styles "utilisateurs". Ceux qui n'ont pas les noms par défaut de Word. Elle n'affiche pas les styles réellement "utilisés" dans le document. Si tu veux les styles *utilisés*, le menu Fichier | Imprimer, Styles permet d'en obtenir la liste.
