Expos=E9 du probl=E8me :
Un document d'une certaine taille avec de nombreux styles.
J'aimerais pouvoir imprimer les noms des styles =E0 partir=20
du moment o=F9 ils apparaissent,=20
un peu comme l'affichage en mode normal avec le nom du=20
style dans la marge ou directement dans le texte.
C'est pour pouvoir traviller sur la pr=E9senattion d'un=20
texte en dehors du bureau.
Si quelqu'un sait faire sans macro, ce serait super,
=E0 d=E9faut s'il y a une macro toute faite, je suis preneur.
Ch'tite précision : je n'ai que des styles de paragraphes.
A+
Guy Moncomble
Bonjour à tous, dans le message <00cd01c39ca3$669503b0$,
| Re | | Ch'tite précision : je n'ai que des styles de paragraphes. | | A+
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/ Largeur de la zone de style. Bémol, ce n'est visible qu'en mode normal ou en mode plan. -- A+
GMO MVP WORD
Bonjour à tous,
dans le message <00cd01c39ca3$669503b0$a101280a@phx.gbl>,
| Re
|
| Ch'tite précision : je n'ai que des styles de paragraphes.
|
| A+
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/
Largeur de la zone de style. Bémol, ce n'est visible qu'en mode normal
ou en mode plan.
--
A+
Bonjour à tous, dans le message <00cd01c39ca3$669503b0$,
| Re | | Ch'tite précision : je n'ai que des styles de paragraphes. | | A+
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/ Largeur de la zone de style. Bémol, ce n'est visible qu'en mode normal ou en mode plan. -- A+
GMO MVP WORD
Geo
Bonsoir Guy Moncomble,
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/ Largeur de la zone de style. Bémol, ce n'est visible qu'en mode normal
ou en mode plan.
C'est bien ça que j'utilise à l'écran, d'où l'idée, mais je voudrais imprimer l'équivalent et vu la taille du document, je ne peux pas raisonnablement faire des copies d'écran.
Si personne n'a ça tout fait, je vais m'y mettre, à la réflexion ce ne doit pas être très long.
Bonne soirée
Bonsoir Guy Moncomble,
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/
Largeur de la zone de style. Bémol, ce n'est visible qu'en mode
normal
ou en mode plan.
C'est bien ça que j'utilise à l'écran, d'où l'idée,
mais je voudrais imprimer l'équivalent et vu la taille
du document, je ne peux pas raisonnablement
faire des copies d'écran.
Si personne n'a ça tout fait, je vais m'y mettre,
à la réflexion ce ne doit pas être très long.
Et l'affichagedes styles ne suffit pas ? Outils/Options/Affichage/ Largeur de la zone de style. Bémol, ce n'est visible qu'en mode normal
ou en mode plan.
C'est bien ça que j'utilise à l'écran, d'où l'idée, mais je voudrais imprimer l'équivalent et vu la taille du document, je ne peux pas raisonnablement faire des copies d'écran.
Si personne n'a ça tout fait, je vais m'y mettre, à la réflexion ce ne doit pas être très long.
On peut savoir ? A mon avis la 'zone de style' n'est pas imprimable ...
C'est ce que je me suis dit aussi... Geo l'anonymous aurait-il trouvé la solution magique... et accepterait-il d'en faire donc à la fakalo ?... ;-))
nuindacil
Anacoluthe « Le style n'est rien, mais rien n'est sans le style. » - RIVAROL
geo
Bonjour à tous
Solution bestiale ou bourrin si vous préférez. Une pt'ite macro insère avant chaque changement de style [Nom du style] + chr(13) dans un style particulier.
Donc pour supprimer cette insertion suffit de remplacer tout caractère de ce style par rien, même pas besoin de macro :-)
L'ennui c'est que mon document passe de 131 pages à 150, j'hésite donc à l'imprimer, mais c'est bien la preuve d'une présentation assez complexe, d'où ma demande.
bonne journée.
PS je me demande si les réponses anonymous comptent pour les stats ? mais là j'avais aussi fait la question, ça compte peut- être pour deux. mdr tout seul
A+
Bonjour à tous
Solution bestiale ou bourrin si vous préférez.
Une pt'ite macro insère avant chaque changement de style
[Nom du style] + chr(13)
dans un style particulier.
Donc pour supprimer cette insertion
suffit de remplacer tout caractère de ce style par rien,
même pas besoin de macro :-)
L'ennui c'est que mon document passe de 131 pages à 150,
j'hésite donc à l'imprimer,
mais c'est bien la preuve d'une présentation assez
complexe, d'où ma demande.
bonne journée.
PS je me demande si les réponses anonymous comptent pour
les stats ?
mais là j'avais aussi fait la question, ça compte peut-
être pour deux.
mdr tout seul
Solution bestiale ou bourrin si vous préférez. Une pt'ite macro insère avant chaque changement de style [Nom du style] + chr(13) dans un style particulier.
Donc pour supprimer cette insertion suffit de remplacer tout caractère de ce style par rien, même pas besoin de macro :-)
L'ennui c'est que mon document passe de 131 pages à 150, j'hésite donc à l'imprimer, mais c'est bien la preuve d'une présentation assez complexe, d'où ma demande.
bonne journée.
PS je me demande si les réponses anonymous comptent pour les stats ? mais là j'avais aussi fait la question, ça compte peut- être pour deux. mdr tout seul
A+
Anacoluthe
Bonjour !
"geo" nous a écrit ...
L'ennui c'est que mon document passe de 131 pages à 150, j'hésite donc à l'imprimer
Tiens une autre piste si tu veux : Mettre les noms de style en commentaires sous forme de bulles dans la marge. Les commentaires en bulles se règlent dans les options de modifications. Ils sont imprimables. Dans la macro il faut mettre un test pour ne commenter que les changements de style, sinon tu as un commentaire à chaque paragraphe (trop moche).
Tous les commentaires s'effacent par la suite facilement avec la barre d'outils Révision
ça donnerait qqch comme ça, vite fait sur le gaz, tu amélioreras à loisir :
Public Sub CommenterStyles() Dim P As Paragraph Dim Debut As Range Dim LeStyle, PrecStyle As String For Each P In ActiveDocument.Paragraphs Set Debut = P.Range Debut.Collapse Direction:=wdCollapseStart LeStyle = P.Style If LeStyle <> PrecStyle Then ActiveDocument.Comments.Add Range:Þbut, Text:=LeStyle PrecStyle = LeStyle End If Next P End Sub
C'est juste une idée, j'attends que tu nous dises comment imprimer la 'zone de style' qui est bien plus pratique que tout ça... ;-)
Anacoluthe « Le mot ne manque jamais quand on possède l'idée. » - Gustave FLAUBERT
PS je me demande si les réponses anonymous comptent pour les stats ? Déjà inquiet pour tes stats ???
Moi j'en n'ai rien à faire nananère ;-)
Bonjour !
"geo" nous a écrit ...
L'ennui c'est que mon document passe de 131 pages à 150,
j'hésite donc à l'imprimer
Tiens une autre piste si tu veux :
Mettre les noms de style en commentaires
sous forme de bulles dans la marge. Les commentaires en
bulles se règlent dans les options de modifications. Ils
sont imprimables. Dans la macro il faut mettre un test
pour ne commenter que les changements de style, sinon tu
as un commentaire à chaque paragraphe (trop moche).
Tous les commentaires s'effacent par la suite facilement
avec la barre d'outils Révision
ça donnerait qqch comme ça, vite fait sur le gaz,
tu amélioreras à loisir :
Public Sub CommenterStyles()
Dim P As Paragraph
Dim Debut As Range
Dim LeStyle, PrecStyle As String
For Each P In ActiveDocument.Paragraphs
Set Debut = P.Range
Debut.Collapse Direction:=wdCollapseStart
LeStyle = P.Style
If LeStyle <> PrecStyle Then
ActiveDocument.Comments.Add Range:Þbut, Text:=LeStyle
PrecStyle = LeStyle
End If
Next P
End Sub
C'est juste une idée, j'attends que tu nous dises comment
imprimer la 'zone de style' qui est bien plus pratique
que tout ça... ;-)
Anacoluthe
« Le mot ne manque jamais quand on possède l'idée. »
- Gustave FLAUBERT
PS je me demande si les réponses anonymous comptent pour
les stats ?
Déjà inquiet pour tes stats ???
L'ennui c'est que mon document passe de 131 pages à 150, j'hésite donc à l'imprimer
Tiens une autre piste si tu veux : Mettre les noms de style en commentaires sous forme de bulles dans la marge. Les commentaires en bulles se règlent dans les options de modifications. Ils sont imprimables. Dans la macro il faut mettre un test pour ne commenter que les changements de style, sinon tu as un commentaire à chaque paragraphe (trop moche).
Tous les commentaires s'effacent par la suite facilement avec la barre d'outils Révision
ça donnerait qqch comme ça, vite fait sur le gaz, tu amélioreras à loisir :
Public Sub CommenterStyles() Dim P As Paragraph Dim Debut As Range Dim LeStyle, PrecStyle As String For Each P In ActiveDocument.Paragraphs Set Debut = P.Range Debut.Collapse Direction:=wdCollapseStart LeStyle = P.Style If LeStyle <> PrecStyle Then ActiveDocument.Comments.Add Range:Þbut, Text:=LeStyle PrecStyle = LeStyle End If Next P End Sub
C'est juste une idée, j'attends que tu nous dises comment imprimer la 'zone de style' qui est bien plus pratique que tout ça... ;-)
Anacoluthe « Le mot ne manque jamais quand on possède l'idée. » - Gustave FLAUBERT
PS je me demande si les réponses anonymous comptent pour les stats ? Déjà inquiet pour tes stats ???
Moi j'en n'ai rien à faire nananère ;-)
Hello geo l'anonymous !
geo wrote: | Bonjour à tous | | Solution bestiale ou bourrin si vous préférez. | Une pt'ite macro insère avant chaque changement de style | [Nom du style] + chr(13) | dans un style particulier. | | | L'ennui c'est que mon document passe de 131 pages à 150,
Et pourquoi la macro n'irait pas jusqu'à mettre le nom du style en style "note dans la marge" ?... Est-ce trop demandé ?... ;-))))
nuindacil
| PS je me demande si les réponses anonymous comptent pour | les stats ? | mais là j'avais aussi fait la question, ça compte peut- | être pour deux. | mdr tout seul
Les réponses non anonymous ne comptent pas, tu le sais bien, alors pourquoi les anonymous compteraient ?.... Je rigole !!!! ;-))) | |
Hello geo l'anonymous !
geo wrote:
| Bonjour à tous
|
| Solution bestiale ou bourrin si vous préférez.
| Une pt'ite macro insère avant chaque changement de style
| [Nom du style] + chr(13)
| dans un style particulier.
| |
| L'ennui c'est que mon document passe de 131 pages à 150,
Et pourquoi la macro n'irait pas jusqu'à mettre le nom du style en style
"note dans la marge" ?... Est-ce trop demandé ?... ;-))))
nuindacil
| PS je me demande si les réponses anonymous comptent pour
| les stats ?
| mais là j'avais aussi fait la question, ça compte peut-
| être pour deux.
| mdr tout seul
Les réponses non anonymous ne comptent pas, tu le sais bien, alors pourquoi
les anonymous compteraient ?.... Je rigole !!!! ;-)))
|
|
geo wrote: | Bonjour à tous | | Solution bestiale ou bourrin si vous préférez. | Une pt'ite macro insère avant chaque changement de style | [Nom du style] + chr(13) | dans un style particulier. | | | L'ennui c'est que mon document passe de 131 pages à 150,
Et pourquoi la macro n'irait pas jusqu'à mettre le nom du style en style "note dans la marge" ?... Est-ce trop demandé ?... ;-))))
nuindacil
| PS je me demande si les réponses anonymous comptent pour | les stats ? | mais là j'avais aussi fait la question, ça compte peut- | être pour deux. | mdr tout seul
Les réponses non anonymous ne comptent pas, tu le sais bien, alors pourquoi les anonymous compteraient ?.... Je rigole !!!! ;-))) | |
Geo
Bonsoir Anacoluthe,
Tiens une autre piste si tu veux : Mettre les noms de style en commentaires sous forme de bulles dans la marge.
J'ai pas trouvé comment les mettre dans la marge, ils s'insèrent après le premier mot du début de paragraphe ni avec ta macro ni avec ma macro modifiée alors que mon point d'insertion est en tête du paragraphe.
Je suis en version 2000.
Dans la macro il faut mettre un test pour ne commenter que les changements de style, sinon tu as un commentaire à chaque paragraphe (trop moche).
Ben oui
Tous les commentaires s'effacent par la suite facilement avec la barre d'outils Révision
Il y a même une macro dans la faq pour ça.
C'est juste une idée, j'attends que tu nous dises comment imprimer la 'zone de style' qui est bien plus pratique que tout ça... ;-)
nian nian nian
PS je me demande si les réponses anonymous comptent pour les stats ? Déjà inquiet pour tes stats ???
Hé !
Merci
Bonsoir Anacoluthe,
Tiens une autre piste si tu veux :
Mettre les noms de style en commentaires
sous forme de bulles dans la marge.
J'ai pas trouvé comment les mettre dans la marge,
ils s'insèrent après le premier mot du début de paragraphe
ni avec ta macro ni avec ma macro modifiée
alors que mon point d'insertion est en tête du paragraphe.
Je suis en version 2000.
Dans la macro il faut mettre un test
pour ne commenter que les changements de style, sinon tu
as un commentaire à chaque paragraphe (trop moche).
Ben oui
Tous les commentaires s'effacent par la suite facilement
avec la barre d'outils Révision
Il y a même une macro dans la faq pour ça.
C'est juste une idée, j'attends que tu nous dises comment
imprimer la 'zone de style' qui est bien plus pratique
que tout ça... ;-)
nian nian nian
PS je me demande si les réponses anonymous comptent pour
les stats ?
Déjà inquiet pour tes stats ???
Tiens une autre piste si tu veux : Mettre les noms de style en commentaires sous forme de bulles dans la marge.
J'ai pas trouvé comment les mettre dans la marge, ils s'insèrent après le premier mot du début de paragraphe ni avec ta macro ni avec ma macro modifiée alors que mon point d'insertion est en tête du paragraphe.
Je suis en version 2000.
Dans la macro il faut mettre un test pour ne commenter que les changements de style, sinon tu as un commentaire à chaque paragraphe (trop moche).
Ben oui
Tous les commentaires s'effacent par la suite facilement avec la barre d'outils Révision
Il y a même une macro dans la faq pour ça.
C'est juste une idée, j'attends que tu nous dises comment imprimer la 'zone de style' qui est bien plus pratique que tout ça... ;-)
nian nian nian
PS je me demande si les réponses anonymous comptent pour les stats ? Déjà inquiet pour tes stats ???
