Microsoft Office Forums - View Single Post - Navigation pane Show.Heading level x only

macropod · 05-09-2014, 04:28 AM

The code works equally well for me using:

Code:

Private Sub wdApp_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
Wn.View.ShowHeading 1
Wn.DocumentMap = True
End Sub

or:

Code:

Private Sub wdApp_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
Doc.ActiveWindow.View.ShowHeading 1
Doc.ActiveWindow.DocumentMap = True
End Sub