Extra spaces between the lines after pasting data to Word

[ramsgarla]

I am trying to copy and paste data from RTF to word document and i find
extra spaces between the lines in word.

I am using below code to paste the data in word.

PwrdPasteDoc.Sections.Last.Range.PasteSpecial(, , , , DataType:=Word.WdPasteDataType.wdPasteRTF)

With PwrdPasteDoc.Styles("Normal").Font


.Name = "Arial"
.Size = 10
End With

How do i avoid these extra spaces between the lines in word.

I checked my word settings and linespacing is set to single.

Anycode snippets would be of great help.

[macropod]

The 'extra' spaces are either in the data or are a result of whatever spacing your 'Normal' Style has.