Thank you for reading
ray: 
I want to copy a range from Excel containing formatted text in cells to Word.
This is what I have so far:
Here is the problem:
The parameter wdPasteText creates an embedded Excel Object.
So I tried other parameters, wdpasteRTF, wdpasteHTML, wdpasteEnhancedMetafile all with the same result!
What am I doing wrong?
Thanks for helping!


I want to copy a range from Excel containing formatted text in cells to Word.
This is what I have so far:
Code:
Sub ExcelToWord()
Dim wdApp As Object
Dim wdDoc As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
wdApp.Visible = True
'Setup page
With wdDoc.PageSetup
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
End With
'Page 1
ThisWorkbook.Sheets(1).Range("A1:S39").Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:=wdInLine, DisplayAsIcon:=False
wdApp.Selection.Characters.Last.Select
wdDoc.Close
wdApp.Quit
Set wdApp = Nothing
End Sub
Here is the problem:
The parameter wdPasteText creates an embedded Excel Object.
So I tried other parameters, wdpasteRTF, wdpasteHTML, wdpasteEnhancedMetafile all with the same result!
What am I doing wrong?
Thanks for helping!
