Selection.Type (Word)

Retorna o tipo de seleção. Somente leitura WdSelectionType. Aqui você pode encontrar os valores possíveis para WdSelectionType.

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