Sub Test() Dim df As DataField For Each df In ActiveDocument.DataFields If df.FormatType = cdrFormatNumeric Then df.Format = "#,##0 K" End If Next dfEnd Sub