I tried this code and i am able to see bulleted lists after pasting the content onto word.

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

With PwrdPasteDoc.Styles("Normal").Font
.Name = "Arial"
.Size = 10
End With

But, I can find extra spacing between the lines after pasting the data.

How do you avoid extra spacing between the lines ?

Any code snippet would be great.