expression.FormatDescription
expression Required. An expression that returns a Revision object.
Example
This example displays a description for each of the formatting changes made in a document with tracked changes.
Sub FmtChanges()
Dim revFmtRev As Revision
For Each revFmtRev In ActiveDocument.Revisions
If revFmtRev.FormatDescription <> "" Then
MsgBox "Format changes made : " & revFmtRev.FormatDescription
End If
Next
End Sub