Pastespecial from Excel 2010 to Word 2010

[joyrock37]

Thank you for readingray:
I want to copy a range from Excel containing formatted text in cells to Word.
This is what I have so far:

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!

 

[Andrew Poulsom]

If you are late binding you can't use Word constants like wdPasteText. Use the value of the constants instead (2). It happens that wdInLine is OK because its value is zero.

 

[joyrock37]

Thank you so much! You have no idea...
And lightning fast , too. You rock!