Sauter une ligne en fin de phrase VBA
tyneth
-
Lupin -
Lupin -
Bonjour,
J'ai créé une macro sous word 2003 (en piquant des idées à droite à gauche sur les forums !) afin de remplacer les paragraphes de texte en italique par des pointillés. Je précise que je débute tout juste sur VBA
Voilà mon code :
With Selection.Find
.ClearFormatting
.Text = ""
.MatchWildcards = False
.Forward = True
.Font.Italic = 1
.Replacement.Text = "............................................................................................................................"
.Execute Replace:=wdReplaceAll
End With
End Sub
Je voudrais simplement sauter une ligne après et les pointillés... mais je n'y arrive pas ! J'ai essayé d'jouter &"^1", ça ne fonctionne pas et j'ai essayé d'ajouter Selection.TypeParagraph mais la ligne saute avant les pointillés...
Merci de votre indulgence pour une novice !!! ;p
J'ai créé une macro sous word 2003 (en piquant des idées à droite à gauche sur les forums !) afin de remplacer les paragraphes de texte en italique par des pointillés. Je précise que je débute tout juste sur VBA
Voilà mon code :
With Selection.Find
.ClearFormatting
.Text = ""
.MatchWildcards = False
.Forward = True
.Font.Italic = 1
.Replacement.Text = "............................................................................................................................"
.Execute Replace:=wdReplaceAll
End With
End Sub
Je voudrais simplement sauter une ligne après et les pointillés... mais je n'y arrive pas ! J'ai essayé d'jouter &"^1", ça ne fonctionne pas et j'ai essayé d'ajouter Selection.TypeParagraph mais la ligne saute avant les pointillés...
Merci de votre indulgence pour une novice !!! ;p
3 réponses
-
Bonjour,
Replacement.Text = "............................................................................................................................" & Chr$(10) & "Saut de ligne à l'intérieur de la cellule.
Lupin -
Ou sinon la constante vbCrLf.
Cdlt, -
Bonjour,
La constante VbCrLf place un caractère de saut de ligne visible,
elle représente ( Chr$(13) ).
Je recommande plutôt la constante VbLf qui représente ( Chr$(10) ).
Lupin.
