Sub Test() Dim df As DataField Dim w As Long w = 0 For Each df In ActiveDocument.DataFields w = w + df.FieldWidth Next df MsgBox "Total width of all " & ActiveDocument.DataFields.Count & " data fields is " & w & " units"End Sub