[WD-2007] Récupérer des liens OLE définis dans des zones de texte

[jejedi]

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.