Copy excel text on a range and paste special to Word
 

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

Copy excel text on a range and paste special to Word
 

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

Daniel wrote:
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

Copy excel text on a range and paste special to Word
 

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

"JW" wrote:

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

Daniel wrote:
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

Copy excel text on a range and paste special to Word
 

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

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

"JW" wrote:

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

Daniel wrote:
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

Copy excel text on a range and paste special to Word
 

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

"JW" wrote:

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

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

"JW" wrote:

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

Daniel wrote:
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

Copy excel text on a range and paste special to Word
 

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

"JW" wrote:

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

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

"JW" wrote:

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

Daniel wrote:
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