oView.ShowHeading (iLevel)

Sub ManageDisplayDocStructure()  
Dim oDoc As Document, oView As View
Dim iLevel  As Integer 
' Auswahl auswerten  
iLevel = CommandBars("DocStructure").Controls("DocLevel").ListIndex - 1
If iLevel = 0 Then Exit Sub 
Set oDoc = ActiveDocument
' Dokumentstruktur einblenden  
ActiveWindow.DocumentMap = True 
Set oView = oDoc.Windows(1).View
oView = wdPrintView
' Dokumentstruktur anpassen  
oView.ShowHeading (iLevel)
Set oView = Nothing 
Set oDoc = Nothing 
End Sub 

Sub MakeSymLeiste()  
Dim cbar As CommandBar  
Dim ctl As CommandBarComboBox  
On Error Resume Next  
' Symbolleiste identifizieren/anlegen  
Set cbar = CommandBars("DocStructure")  
If cbar Is Nothing Then  
  Set cbar = CommandBars.Add("DocStructure", , , True)  
End If  
' ComboBox identifizieren/anlegen  
Set ctl = cbar.FindControl(msoControlComboBox, 1, "DocLevel", True)  
If ctl Is Nothing Then  
  Set ctl = cbar.Controls.Add(Type:=msoControlComboBox)  
End If  
' Einträge festlegen  
With ctl  
  .Tag = "DocLevel"  
  .Caption = "DocLevel"  
  .Clear  
  .AddItem "Ebenen einblenden"  
  .AddItem "Ebene 1"  
  .AddItem "Ebene 2"  
  .AddItem "Ebene 3"  
  .AddItem "Ebene 4"  
  .AddItem "Ebene 5"  
  .AddItem "Ebene 6"  
  .AddItem "Ebene 7"  
  .AddItem "Ebene 8"  
  .AddItem "Ebene 9"  
  .Visible = True  
  .Width = 115  
  .ListIndex = 1  
  ' Makro zuweisen  
  .OnAction = "ManageDisplayDocStructure"  
End With  
On Error GoTo 0  
cbar.Visible = True  
' Aufräumen  
Set ctl = Nothing  
Set cbar = Nothing  
End Sub