Engrave Property Example

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

Set myRange = ActiveDocument.Characters(1)
With myRange.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