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
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