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.