RevisedPropertiesMark Property Example

This example causes text with changed formatting to be double-underlined when change tracking is enabled.

Options.RevisedPropertiesMark = _
    wdRevisedPropertiesMarkDoubleUnderline

This example returns the option selected in the Mark box under Changed formatting on the Track Changes tab in the Options dialog box.

temp = Options.RevisedPropertiesMark