Adding empty row to word from excel

[Cello]

Hi, I hope someone could answer this simple question. I´m trying to paste text to word from excel cells. It works fine except for one small (but significant) factor. The word paragraphs should be separated by one empty line (or paragraph). I cannot do this. The paragraphs follow each other no matter what. That is, they are separata paragraphs but without that empty line between them.

Here´s the code. What should I add in order to get an empty line or paragraph to separate pasted paragraphs?

--------

Dim AppWD As Word.Application
Dim DocWD As Word.Document
Dim RangeWD As Word.Range

Set AppWD = CreateObject("Word.Application.10")
AppWD.Visible = True

Set DocWD = AppWD.Documents.Add
With DocWD
Set RangeWD = .Range
Sheets("T").Select
Range("A15").Select
Selection.Copy
With RangeWD
.PasteSpecial
Sheets("T").Select
Range("A17").Select
Selection.Copy
With RangeWD
.PasteSpecial
End With
End With

End With

End Sub

 

[Cello]

Does not improve the situation.

With that code, they (A15 and A17) end up on the same row.

Is this really this tricky or am I doing something wrong...