Macro de saut de ligne dans Word

Bonjour,

Je cherche depuis plusieurs jours à obtenir un résultat qui me semblait pourtant simple, mais je n'y arrive pas.

Chaque semaine, lorsque je rédige mes newsletter sur word avant de les transférer dans un autre éditeur, je dois faire un saut de ligne après chaque paragraphe pour que l'éditeur HTML de mon outil de newsletter ait un rendu satisfaisant pour moi.

Aussi, j'ai cherché à automatiser ce processus pénible, qui consiste donc à sauter une ligne après chaque paragraphe du document Word.

Voici en pièce jointe le résultat que je souhaite obtenir.

Si vous pouviez m'aider avec un petit bout de code, je vous en serais immensément reconnaissant :-)

Bonjour,

A tester.

Option Explicit

Sub InsererUnParagraphe()

Dim I As Integer
Dim WdDoc As Document

    Set WdDoc = ActiveDocument
    With WdDoc
         For I = .Paragraphs.Count To 2 Step -1
             .Paragraphs(I).Range.Select
             .Paragraphs.Add Range:=Selection.Range
         Next I
    End With
    Set WdDoc = Nothing

End Sub

Eric tu es un génie !!!

Si tu savais comme je suis heureux de ce bout de code, chaque semaine je penserai à ton aide qui va m'éviter de fastidieuses minutes à sauter des dizaines de lignes avant de publier mes newsletter.

Ce code fonctionne à merveille, encore merci pour ton si rapide et efficace