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.
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 :
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.
Partager