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 & " : " & df.Format Next df MsgBox sEnd Sub