Ajoute Zone de texte dans un Word à partir du VBA Excel

Bonjour,

Je souhaite ajouter une zone de texte dans un document Word généré à partir du VBA Excel. Le code que j'utilise est :

Dim MonBeauWord As Object, mydoc As Object

Set MonBeauWord = CreateObject("Word.Application")

MonBeauWord.Visible = True

Set mydoc = MonBeauWord.Documents.Add

' je mets du texte dans MonBeauWord et après ce texte j'ajoute un TextBox

Dim txtBx As Shape

txtBx = mydoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 500, 200)

L'erreur que j'ai est : 'La valeur tapée est en dehors des limites'.

Quelqu'un aurait une idée comment résoudre ce problème?

Merci

J'ai coché dans Outils/Références MicrosoftOffice 14.0 ObjectLibrary et je n'ai plus cette erreur, mais une autre qui arrive à la même ligne que la précédente : Variable objet ou variable de bloc With non définie