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é
Bonjour,
Les lettrines ne faisant pas partie des styles, il faudrait une petite macro comme celle-ci qui va mettre une lettrine à tous les paragraphes de la section 1:
sub lettrine() Set masection = ActiveDocument.Sections(1).Range For Each p In masection.Paragraphs On Error Resume Next With p.DropCap .FontName = "nom de la police" .Position = wdDropNormal .LinesToDrop = 3 'nb de lignes sur lequel s'étend la lettrine .DistanceFromText = InchesToPoints(0.2) 'espace entre lettrine et texte en points End With Next p End Sub
Circé
Bonjour
word 2000
Les paragraphes ont une lettrine. Comment reproduire automatiquement ce format à chaque paragraphe de la section ?
Merci
Bonjour,
Les lettrines ne faisant pas partie des styles, il faudrait une petite
macro comme celle-ci qui va mettre une lettrine à tous les paragraphes
de la section 1:
sub lettrine()
Set masection = ActiveDocument.Sections(1).Range
For Each p In masection.Paragraphs
On Error Resume Next
With p.DropCap
.FontName = "nom de la police"
.Position = wdDropNormal
.LinesToDrop = 3 'nb de lignes sur lequel s'étend la lettrine
.DistanceFromText = InchesToPoints(0.2) 'espace entre lettrine et
texte en points
End With
Next p
End Sub
Circé
Bonjour
word 2000
Les paragraphes ont une lettrine. Comment reproduire automatiquement
ce format à chaque paragraphe de la section ?
Les lettrines ne faisant pas partie des styles, il faudrait une petite macro comme celle-ci qui va mettre une lettrine à tous les paragraphes de la section 1:
sub lettrine() Set masection = ActiveDocument.Sections(1).Range For Each p In masection.Paragraphs On Error Resume Next With p.DropCap .FontName = "nom de la police" .Position = wdDropNormal .LinesToDrop = 3 'nb de lignes sur lequel s'étend la lettrine .DistanceFromText = InchesToPoints(0.2) 'espace entre lettrine et texte en points End With Next p End Sub
Circé
Bonjour
word 2000
Les paragraphes ont une lettrine. Comment reproduire automatiquement ce format à chaque paragraphe de la section ?
Merci
Sandy
Bonjour Circé
Ça prend des qualités de programmeur ça.
Merci
Les lettrines ne faisant pas partie des styles, il faudrait une petite macro comme celle-ci qui va mettre une lettrine à tous les paragraphes de la section 1:
sub lettrine()
Bonjour Circé
Ça prend des qualités de programmeur ça.
Merci
Les lettrines ne faisant pas partie des styles, il faudrait une petite
macro comme celle-ci qui va mettre une lettrine à tous les paragraphes de
la section 1:
Les lettrines ne faisant pas partie des styles, il faudrait une petite macro comme celle-ci qui va mettre une lettrine à tous les paragraphes de la section 1:
