Sub Test() Dim s As String Dim df As DataField s = "Field" & vbTab & "Summarize" & vbCr s = s & "------" & vbTab & "--------------" & vbCr For Each df In ActiveDocument.DataFields s = s & vbCr & df.Name & vbTab If df.SummarizeGroup Then s = s & "Yes" Else s = s & "No" Next df MsgBox s End Sub