Engrave Property

True if the font is formatted as engraved. Returns True, False or wdUndefined (a mixture of True and False). Can be set to True, False, or wdToggle. Read/write Long.

Remarks

Setting Engrave to True sets Emboss to False, and vice versa.

Example

This example formats the first letter in the active document as engraved.

Dim rngTemp As Range

Set rngTemp = ActiveDocument.Characters(1)
With rngTemp.Font
    .Size = 20
    .Engrave = True
End With

This example formats the selection as engraved.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Engrave = True
Else
    MsgBox "You need to select some text."
End If