Sauter une ligne en fin de phrase VBA

tyneth -  
 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

A voir également:

3 réponses

Lupin
 
Bonjour,

Replacement.Text = "............................................................................................................................" & Chr$(10) & "Saut de ligne à l'intérieur de la cellule.


Lupin
0
fiddy Messages postés 11069 Date d'inscription   Statut Contributeur Dernière intervention   1 846
 
Ou sinon la constante vbCrLf.
Cdlt,
0
Lupin
 
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.
0