Diagramme per vba in word ansprechen

hallo www gemeinde,

kann mir jemand verraten wie folgendes funktioniert???

würde gern folgenden code implementieren:

Code:
Sub Makro2()
Dim a As String
’ Makro2 Makro

Set myTable = ActiveDocument.Tables(1)
If myTable.Cell(7, 1) = „Nominaldruck“ Then
'Schau nach in allen Diagrammen in diesem word dokument welches den Titel Nominaldruck hat und setze
'es in Cell(7, 5) ein. und das sollte als schleife oder loop funktionieren
'Geht das???

End If

End Sub

gruss