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
AB
Bonsoir, La macro ci-après fait le boulot sur le texte sélectionné. Mais elle plantera si tu as des paragraphes vides dans ton texte. Je ne suis pas assez bon en VBA pour faire mieux... AB
Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/11/2005 par AB ' For i = 1 To Selection.Paragraphs.Count With Selection.Paragraphs(i).DropCap .Position = wdDropNormal .FontName = "Tahoma" .LinesToDrop = 2 .DistanceFromText = CentimetersToPoints(0) End With Next i End Sub
"boblebob" a écrit dans le message de news:
bjr,
word xp et autres
est-il possible d'automatiser (via un style ou autre) le fait que chaque paragraphe démarre par une lettrine ?
-- A+
Bob ----
Bonsoir,
La macro ci-après fait le boulot sur le texte sélectionné. Mais elle
plantera si tu as des paragraphes vides dans ton texte.
Je ne suis pas assez bon en VBA pour faire mieux...
AB
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/11/2005 par AB
'
For i = 1 To Selection.Paragraphs.Count
With Selection.Paragraphs(i).DropCap
.Position = wdDropNormal
.FontName = "Tahoma"
.LinesToDrop = 2
.DistanceFromText = CentimetersToPoints(0)
End With
Next i
End Sub
"boblebob" <nosp-00-boblebob@voila.fr> a écrit dans le message de news:
eoBKIm83FHA.2364@TK2MSFTNGP12.phx.gbl...
bjr,
word xp et autres
est-il possible d'automatiser (via un style ou autre) le fait que chaque
paragraphe démarre par une lettrine ?
Bonsoir, La macro ci-après fait le boulot sur le texte sélectionné. Mais elle plantera si tu as des paragraphes vides dans ton texte. Je ne suis pas assez bon en VBA pour faire mieux... AB
Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/11/2005 par AB ' For i = 1 To Selection.Paragraphs.Count With Selection.Paragraphs(i).DropCap .Position = wdDropNormal .FontName = "Tahoma" .LinesToDrop = 2 .DistanceFromText = CentimetersToPoints(0) End With Next i End Sub
"boblebob" a écrit dans le message de news:
bjr,
word xp et autres
est-il possible d'automatiser (via un style ou autre) le fait que chaque paragraphe démarre par une lettrine ?
