Excel 2007 VBA erreur 5941

Bonjour,
j'ai un fichier qui tourne parfaitement sous excel 2003 mais sous 2007 ca passe plus, j'ai une erreur d'execution 5941 "le membre de la collection requise n'existe pas.voici le code: je pilote Word via Excel , en gras la ligne qui bloc, je précise que le fichier NomFichier existe bien

Dim LancerWord As Object
    Set LancerWord = CreateObject("Word.Application")
    'Set LancerWord = New Word.Application
    LancerWord.WindowState = wdWindowStateMaximize
    LancerWord.Visible = True
    LancerWord.ScreenUpdating = False
    LancerWord.Documents.Add
    LancerWord.ActiveDocument.SaveAs ThePath & NomFichier
    LancerWord.Documents.Open Filename:=ThePath & "debut.doc"
    LancerWord.Selection.WholeStory
    LancerWord.Selection.Copy
    LancerWord.Windows(NomFichier).Activate
    LancerWord.Selection.PasteAndFormat (wdPasteDefault)
    LancerWord.Windows("debut.doc").Activate
    LancerWord.ActiveWindow.Close

merci pour vos explications