Copy data from Excel to Word

[neepshed]

Hello, I am trying to create a macro that will copy a selection from Excel and paste special into Word (unformatted text).
Any thoughts on what I have so far. It fails when I do the paste special.

Thanks in advance.

Sub CreateText()
'
'

'
' COPY Data from Excel
Cells.Select
Selection.Copy

' Create Word Document
Set doc = CreateObject("Word.Application")
doc.Visible = True
doc.Documents.Add

'PASTE DATA
' doc.Documents.Add.Content.Paste
' appWrd.Selection.PasteSpecial DataType:=wdPasteText
' Rng.Select
appWrd.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False

End Sub

 

[fumei]

What does "fail" mean exactly? It does not paste anything at all? It pastes in a way you don't want?

Curious. In your code the Word instance is "doc", as in:

Set [b]doc[/b] = CreateObject("Word.Application")

yet your paste line is

[b]appWrd[/b].Selection.PasteSpecial

Gerry
My paintings and sculpture

 

[neepshed]

I get a run time error 424. Object required.

Yep. I'm not very good at this. So if you've got a solution I'd be very grateful.

 

[PHV]

You may try this:
Sub CreateText()
' COPY Data from Excel
ActiveSheet.Cells.Copy
' Create Word Document
Set doc = CreateObject("Word.Application")
doc.Visible = True
doc.Documents.Add
'PASTE DATA
doc.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Set doc = Nothing
End Sub


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PHV]

And if you haven't referenced the word library:
Sub CreateText()
' COPY Data from Excel
ActiveSheet.Cells.Copy
' Create Word Document
Set doc = CreateObject("Word.Application")
doc.Visible = True
doc.Documents.Add
'PASTE DATA
doc.Selection.PasteSpecial Link:=False, DataType:=2, Placement:= _
0, DisplayAsIcon:=False
Set doc = Nothing
End Sub


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886