Window.StyleAreaWidth (Word)

Returns or sets the width of the style area in points.

When the StyleAreaWidth property is greater than 0 (zero), style names are displayed to the left of the text. The style area isn't visible in print layout or Web layout view.

With ActiveDocument.ActiveWindow 
 .View.Type = wdNormalView 
 .StyleAreaWidth = InchesToPoints(1) 
End With