j'essaye la possibilité d'avoir une lettrine pour chaque titre de paragraphe
et uniquement ceux-ci
j'ai copié une macro VBE qui devrait (!!) effectuer cette chose, mais j'ai
des erreurs
tel que:
-la lettrine s'applique à chaque début de ligne , pas bon du tout
-elle est basse (le reste du corps de texte en haut et non en bas)
-le texte de la ligne ne suit pas, le texte devient illisible, les hauteurs
de lignes ne suivent pas
voilà ce que j'ai :
Sub creer Lettrine()
Dim p As Paragraph
On Error Resume Next
For Ech p In ActivateDocument.Paragraphs
With p.DropCap
.Ebable
.Position = wdDropNormal
End With
Next
End Sub
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
Anacoluthe
Bonjour !
'Edgard' nous a écrit ...
j'essaye la possibilité d'avoir une lettrine pour chaque titre de paragraphe et uniquement ceux-ci
Votre macro est pleine d'erreurs. Ne placez jamais la ligne <<On Error Resume Next>> dans une macro qui ne marche pas !
-la lettrine s'applique à chaque début de ligne , pas bon du tout -elle est basse (le reste du corps de texte en haut et non en bas) -le texte de la ligne ne suit pas, le texte devient illisible, les hauteurs de lignes ne suivent pas
Est-ce vraiment une lettrine* dans un cadre* que vous voulez ou simplement la première lettre du titre en grand ? :-)
Et si vous aimez les macros superfétatoires, un vague truc dans le genre :
Sub FausseLettrineSurStyleTitre1() Dim P As Paragraph For Each P In ActiveDocument.Paragraphs If P.Style = "Titre 1" Then With P.Range.Characters(1).Font .Size = .Size * 3 End With End If Next P End Sub
Anacoluthe « C'est au pied de la lettre que je l'ai prise et la lettre m'a pris à son tour » - Jacques MARET
Bonjour !
'Edgard' nous a écrit ...
j'essaye la possibilité d'avoir une lettrine pour chaque titre de paragraphe
et uniquement ceux-ci
Votre macro est pleine d'erreurs. Ne placez jamais la
ligne <<On Error Resume Next>> dans une macro qui ne
marche pas !
-la lettrine s'applique à chaque début de ligne , pas bon du tout
-elle est basse (le reste du corps de texte en haut et non en bas)
-le texte de la ligne ne suit pas, le texte devient illisible, les hauteurs
de lignes ne suivent pas
Est-ce vraiment une lettrine* dans un cadre* que vous voulez
ou simplement la première lettre du titre en grand ? :-)
Et si vous aimez les macros superfétatoires,
un vague truc dans le genre :
Sub FausseLettrineSurStyleTitre1()
Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs
If P.Style = "Titre 1" Then
With P.Range.Characters(1).Font
.Size = .Size * 3
End With
End If
Next P
End Sub
Anacoluthe
« C'est au pied de la lettre que je l'ai prise
et la lettre m'a pris à son tour »
- Jacques MARET
j'essaye la possibilité d'avoir une lettrine pour chaque titre de paragraphe et uniquement ceux-ci
Votre macro est pleine d'erreurs. Ne placez jamais la ligne <<On Error Resume Next>> dans une macro qui ne marche pas !
-la lettrine s'applique à chaque début de ligne , pas bon du tout -elle est basse (le reste du corps de texte en haut et non en bas) -le texte de la ligne ne suit pas, le texte devient illisible, les hauteurs de lignes ne suivent pas
Est-ce vraiment une lettrine* dans un cadre* que vous voulez ou simplement la première lettre du titre en grand ? :-)
Et si vous aimez les macros superfétatoires, un vague truc dans le genre :
Sub FausseLettrineSurStyleTitre1() Dim P As Paragraph For Each P In ActiveDocument.Paragraphs If P.Style = "Titre 1" Then With P.Range.Characters(1).Font .Size = .Size * 3 End With End If Next P End Sub
Anacoluthe « C'est au pied de la lettre que je l'ai prise et la lettre m'a pris à son tour » - Jacques MARET
Edgard
Merci "Anacoluthe"
je vais essayer cette macro pour celle que j'avais, c'était une "recopié" de la revue OI du mois de Mars 2004 ! c'est bien une Lettrine , mais comme je tâtonne
bonne journée Edgard
Merci "Anacoluthe"
je vais essayer cette macro
pour celle que j'avais, c'était une "recopié" de la revue OI du mois de Mars
2004 !
c'est bien une Lettrine , mais comme je tâtonne
je vais essayer cette macro pour celle que j'avais, c'était une "recopié" de la revue OI du mois de Mars 2004 ! c'est bien une Lettrine , mais comme je tâtonne
bonne journée Edgard
Edouard
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine de word;1/sélection de la 1° lettre du & où on veut mettre la lettrine en mettant le pointeur devant la lettre et puis clic-glisser vers la droite de cette lettre.2/Choisir ds le menu/format/option lettrine 3/indiquer la place de la lettrine par rapport au paragraphe ds ce cas clic sur "ds le texte" puis 4/double clic ds la zone/ hauteur (lignes)=hauteur de ta lettrine et taper 2 ou ton choix ET enfin 5/clic sur OK *qd on a pris le coup c'est ultra rapide* Bien cordialement @+
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine de
word;1/sélection de la 1° lettre du & où on veut mettre la lettrine
en mettant le pointeur devant la lettre et puis clic-glisser vers la droite
de cette lettre.2/Choisir ds le menu/format/option lettrine
3/indiquer la place de la lettrine par rapport au paragraphe ds ce cas clic sur "ds le texte" puis 4/double clic ds la zone/
hauteur (lignes)=hauteur de ta lettrine et taper 2 ou ton choix ET enfin
5/clic sur OK *qd on a pris le coup c'est ultra rapide*
Bien cordialement @+
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine de word;1/sélection de la 1° lettre du & où on veut mettre la lettrine en mettant le pointeur devant la lettre et puis clic-glisser vers la droite de cette lettre.2/Choisir ds le menu/format/option lettrine 3/indiquer la place de la lettrine par rapport au paragraphe ds ce cas clic sur "ds le texte" puis 4/double clic ds la zone/ hauteur (lignes)=hauteur de ta lettrine et taper 2 ou ton choix ET enfin 5/clic sur OK *qd on a pris le coup c'est ultra rapide* Bien cordialement @+
Edgard
Bonsoir "Edouard" qui a écrit bl...
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine ... *qd on a pris le coup c'est ultra rapide*
Bien cordialement @+ merci bien , ce que je recherche c'est une commande simple
qui permet de mettre en avant une 'Lettrine' et/ou 'FausseLettrine' d'un seul clic pour l'ensemble d'un texte de beaucoup de pages avec plein de Paragraphes. Et ce sont eux que l'on désire mettre en avant.
merci encore à Anacoluthe et Edouard pour vos réponses Edgard
Bonsoir "Edouard" qui a écrit
bl...
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine ...
*qd on a pris le coup c'est ultra rapide*
Bien cordialement @+
merci bien , ce que je recherche c'est une commande simple
qui permet de mettre en avant une 'Lettrine' et/ou 'FausseLettrine'
d'un seul clic pour l'ensemble d'un texte de beaucoup de pages
avec plein de Paragraphes.
Et ce sont eux que l'on désire mettre en avant.
merci encore à Anacoluthe et Edouard pour vos réponses
Edgard
Salut à tous! avec mon word 2000 j'utilise l'outil /Lettrine ... *qd on a pris le coup c'est ultra rapide*
Bien cordialement @+ merci bien , ce que je recherche c'est une commande simple
qui permet de mettre en avant une 'Lettrine' et/ou 'FausseLettrine' d'un seul clic pour l'ensemble d'un texte de beaucoup de pages avec plein de Paragraphes. Et ce sont eux que l'on désire mettre en avant.
merci encore à Anacoluthe et Edouard pour vos réponses Edgard
