I'm trying to paste paragraphs from Excel to Word. I want to be able to paste "keep text only" so long sentences would naturally go to a second line instead of disappearing in Word. I have tried to modify the paste statement with no lucks. Thank you for your help.
Sub export_excel_to_word()
Set obj = CreateObject("Word.Application")
obj.Visible =True
Set newObj = obj.Documents.Add
ActiveSheet.UsedRange.Copy
newObj.Range.Paste
Application.CutCopyMode =False
obj.Activate
newObj.SaveAs Filename:=Application.ActiveWorkbook.Path &""& ActiveSheet.Name
EndSub