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