Pilotage de word par excel

[knecmotet]

Bonjour à tous,

je suis entrain de réaliser une macro excel à l'aide du langage vba et j'ai besoin de copier coller une feuille excel sur un document word. Le copier et l'ouverture de word e sais faire via ma macro excel mais je n'arrive pas à coller :

Voici mon code :

Sub docword()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application ")
Dim appWrd As Object
Set appWrd = Wrd.Documents.Add
Wrd.Visible = True
Selection.Paste
ChangeFileOpenDirectory "C:\Macro_Edition\"
ActiveDocument.SaveAs Filename:="Rapport.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False , SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

j'ai une erreur d'éxecution de type "sub non définie"

Pouvez vous m'aider.

Merci d'avance.