Help with pasting into Word

[McLaren]

Greetings everyone, I was hoping someone could help me out. I have some excel files that use VBA to paste information into word which worked fine with older versions of Office. Now I am on a new computer with Office 2007 and everything got hosed. The file is still being created on the desktop, but now there is nothing in it. If I try to paste into notepad a blank line shows up with nothing else, however if I try to paste back into excel the data is there.

Thank you in advance for your time, any replies are appreciated.

    Dim appWD As Word.Application
    Set appWD = CreateObject("Word.Application.8")
    appWD.Visible = False
    Sheets("Calculator").Select
        Sheets("Template").Range("A2").Value = Range("J1").Value
        Sheets("Template").Range("A39").Value = Range("J20").Value
        Sheets("Template").Select
        Range("A1:A49").Copy
appWD.Documents.Add
appWD.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
appWD.ActiveDocument.SaveAs FileName:="C:\Documents and Settings\All Users\Desktop\cans.nc", FileFormat:=wdFormatText
appWD.ActiveDocument.Close
appWD.Quit
Sheets("Calculator").Select

 

[McLaren]

First test looks like it's working like a champ! Thanks a ton ZVI. I'm going to do some more testing.