Copier Texte d'un Objet Shape VBA Word

Bonjour,

Je souhaite copier le texte d'un rectangle arrondi (Forme automatique => Forme de base....) et le copier sur un document excel.
J'ai essayé avec :

NomDossier = ("C:\Test\")
Fi = Dir(NomDossier & "*.doc")

set myfiles = NomDossier + Fi
set WordDoc = WordApp.Documents.Open(myfiles)

WordDoc.Shapes("ShapeRoundedRectangle 1").Select
Selection.Characters.Text

With WordApp
.Selection.Copy
End With

Range("A1").Select
ligne = 1
Do
ligne = ligne + 1

Loop Until Range("A" & ligne) = Empty
Range("A" & ligne).PasteSpecial xlPasteValues

lorsque je lance la macro j'ai un message me disant : " l'élément portant ce nom est introuvable "

Comment faire pour mettre la Forme Auto en Variable car je ne connais pas le nom du shape ni son numeros.

Dim ParamShape as Variant

WordDoc.shapes(ParamShape).select
Ect...

Merci