Sub aaa()
Dim TDM, fld As Field, TM1 As String, TM2 As String
Set TDM = wordDoc.TablesOfContents(1)
For Each fld In TDM.Range.Fields
If fld.Type = wdFieldHyperlink Then
If fld.Result.Style = "TM 1" Then
TM1 = fld.Result.Text
ElseIf fld.Result.Style = "TM 2" Then
TM2 = fld.Result.Text
End If
If fld.Result.Text Like "*Liste*" Then
MsgBox fld.Result.Text & "//" & TM1 & "//" & TM2
End If
End If
Next
End Sub