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

 

[Bruno_x]

Hi Cello,

Add this line to add a extra -empty- paragraph :
Selection.TypeParagraph

 

[Cello]

Thanks for helping, but I guess that won´t work.

I´ve tried to add this line there

AppWD.Selection.Paragraphs(1).Range.InsertParagraphBefore

and even this line instead of that

AppWD.Selection.Paragraphs(1).Range.InsertParagraphAfter

Now, since there are two cells that are copied from Excel, the added paragraph should be placed between those paragraphs. The first line inserts it before both paragraphs, and the second line after both paragraphs.

I can´t place it where it belongs, between the paragraphs. Any ideas?

 

[Cello]

And to be exact, I´ve added those two lines after these

Range("A17").Select
Selection.Copy

 

[Bruno_x]

...
Range("A15").Select
Selection.Copy
With RangeWD
.PasteSpecial

'add this line
AppWD.Selection.Paragraphs(1).Range.InsertParagraphAfter

Sheets("T").Select
Range("A17").Select
Selection.Copy
...

 

[Cello]

Hi, still same result. The added paragraph goes either on line 1 (insertparagraphbefore) or after the two paragraphs (insertparagraphafter), but not between them.

This is driving me crazy.

 

[Bruno_x]

Strange, the code works fine for me...

You've put the extra code after the first .PasteSpecial and before the second .PasteSpecial ?

 

[Cello]

Hmm...this is strange.

Your result in Word looks like this?

---------
This is the first line (Range A15) from excel.

This is the second line (Range A17) from excel.
---------

My code gives this result:

---------
This is the first line (Range A15) from excel.
This is the second line (Range A17) from excel.
---------

It lacks the empty row.

 

[Cello]

And yes, thats where I put it, between the first Pastespecial and the second Pastespecial.

 

[Bruno_x]

Ok now I see the difference
Try this code

...
Set AppWD = CreateObject("Word.Application")
With AppWD
    .Visible = True
    .Documents.Add
    .Selection.Paragraphs(1).Range.InsertAfter _
        Sheets("T").Range("A15").Value
    .ActiveDocument.Content.InsertAfter _
        Sheets("T").Range("A17").Value
    .Selection.Paragraphs(1).Range.InsertAfter Chr$(13)
End With
...