Engrave Property

Returns or sets an MsoTriState constant indicating whether the specified text is formatted as engraved. Read/write.

MsoTriState can be one of these MsoTriState constants.

msoCTrue Not used for this property.

msoFalse The specified text is not formatted as engraved.

msoTriStateMixed Return value which indicates a combination of msoTrue and msoFalse for the specified text range.

msoTriStateToggle Set value which toggles between msoTrue and msoFalse.

msoTrue The specified text is formatted as engraved.

expression.Engrave

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

Remarks

Setting Engrave to msoTrue sets Emboss to msoFalse, and vice versa.

Example

This example engraves all the fonts in the first story.

Sub FontEng()

    Dim fntEng As Font

    Set fntEng = Application.ActiveDocument. _
        Stories(1).TextRange.Font

    If fntEng.Engrave = msoFalse Or msoTriStateMixed Then
        fntEng.Engrave = msoTrue
    End If

End Sub