Copy excel text on a range and paste special to Word

D

Daniel

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
 
J

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
 
D

Daniel

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

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
 
A

Adam_needs_help

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top