Copy excel text on a range and paste special to Word

[Guest]

How can I do it?

Trying to Copy excel text on a range and paste special (text only) to Word

the same but pasting into the notepad

Thanks

 

[JW]

Sub toWord()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Sheets("Sheet1").Range("A1:C4").Copy
objWord.Documents.Add
objWord.Selection.PasteSpecial '.Paste
Application.CutCopyMode = False
Set objWord = Nothing
End Sub

 

[Guest]

JW,
thanks, however it paste a table in Word instead of unformatted text as I
want it, any ideas?
Daniel

 

[JW]

This "should" work, but for some reason it is still copying the table
structure. I'll keep fooling around with it.
Sub toWord()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Sheets("Sheet1").Range("A1:C4").Copy
objWord.Documents.Add
objWord.Selection.PasteSpecial Link:=False, _
DataType:=wdPasteText, Placement:=wdInLine, _
DisplayAsIcon:=False
Application.CutCopyMode = False
Set objWord = Nothing
End Sub

 

[Adam_needs_help]

Did this ever get solved, I am looking for the same solution

 

[Adam_needs_help]

Should have tried the code first, it worked for me! (no table format, just
text)