UseDiacriticColor Property

       

Returns or sets MsoTriState constant indicating whether you can set the color of diacritics in the specified text range. Read/write.

MsoTriState can be one of these MsoTriState constants.
msoCTrue  Not used with this property.
msoFalse  The color of diacritics cannot be set in the specified text range.
msoTriStateMixed  Return value indicating a combination of msoTrue and msoFalse for the specified text range.
msoTriStateToggle  Set value which toggles between msoTrue and msoFalse.
msoTrue  The color of diacritics can be set in the specified text range.

expression.UseDiacriticColor

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example test the text in the first story of the publication for the state of the UseDiacriticColor property. If it is msoTrue, then the DiacriticColor is set to blue otherwise, a message box is displayed.

Sub UseDiaColor()

    Dim fntDC As Font

    Set fntDC = Application.ActiveDocument.Stories(1).TextRange.Font
    If fntDC.UseDiacriticColor = msoTrue Then
        fntDC.DiacriticColor.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    Else
        MsgBox "The UseDiacriticColor property is set to False"
    End If

End Sub