Récupérer des liens OLE définis dans des zones de texte

Bonjour à tous ,

Je viens vers vous car je suis un peu bloqué sur ma macro Word
Le but est de récupérer des valeurs OLE qui sont définis dans une zone de texte.

J'ai un code qui marche très bien lorsqu'on trouve les liens OLE dans des tableaux sous Word.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim nbOle As Integer   nbOle = ActiveDocument.Fields.Count   'On récupère les valeurs dans les objets OLE spécifiques For i = 1 To nbOle   If ActiveDocument.Fields(i).Type = wdFieldLink Then If ActiveDocument.Fields.Item(i).OLEFormat.Label Like "*Document.DRAW.DOKNR*" Then get_plnnr = Left(ActiveDocument.Fields.Item(i).result.Text, 9) Exit Function End If End If   Next i

---

Par contre je ne sais pas du tout comment m' y prendre lorsque j'ai des références de ce type mais définies dans des zones de texte notamment en en-tête de page.

J'arrive à récupérer tout le contenu de la zone de texte :

Code:

---

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(2).TextFrame.TextRange

---

mais je ne sais pas comment faire pour récupérer juste la partie qui m'interresse c.a.d le lien OLE de type Document.DRAW.DOKNR

Je met en PJ un template des documents Word que je dois traiter, la zone de texte est définie en haut a gauche en en-tete de page.

Merci beaucoup pour vos réponses car je séche vraiment.