expression.Outline
expression Required. An expression that returns a Font object.
Example
This example applies outline font formatting to the first three words in the active document.
Set myRange = ActiveDocument.Range(Start:= _
ActiveDocument.Words(1).Start, _
End:=ActiveDocument.Words(3).End)
myRange.Font.Outline = True
This example toggles outline formatting for the selected text.
Selection.Font.Outline = wdToggle
This example removes outline font formatting from the selection if outline formatting is partially applied to the selection.
Set myFont = Selection.Font
If myFont.Outline = wdUndefined Then
myFont.Outline = False
End If