Sub Test() Dim s As String Dim df As DataField s = "Data Fields available:" & vbCr For Each df In ActiveDocument.DataFields s = s & vbCr & df.Name & " = " & ActiveShape.ObjectData(df.Index).Value Next df MsgBox sEnd Sub