It definitely does not. Even if I change to Outline view ...
Code:
Wn.View.Type = wdOutlineView
Wn.View.ShowHeading 1
Wn.DocumentMap = True
... in Outline view itself, only heading level 1 ist displayed, but
within the Navigation Pane still all levels.
NP