WD2000: Cannot Switch to Navigation Pane in Document Map View (212662)

ActiveWindow.ActivePane.Next.Activate
				

WORKAROUND

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
To programmatically navigate a document by headings, use one of the following examples:

To Move to the Next Browse Target

With Application.Browser
   .Target = wdBrowseHeading
   ' Move to next Browse Heading
   .Next
End With

				

To Move to the Previous Browse Target

With Application.Browser
      .Target = wdBrowseHeading
      ' Move to previous Browse Heading
      .Previous
   End With
				

Before ending the macro, you may want to return to the browsing target that was in use prior to and after changing the browsing target. The following example demonstrates how to do this:

Sub BrowseByHeading()
   Dim iCurrentBrowse As Integer
   'Store current browse mode
   iCurrentBrowse = Application.Browser.Target
   'Set new browse mode
   With Application.Browser
      .Target = wdBrowseHeading
      ' Move to next Browse Heading
      .Next
   End With
   'Return to stored browse mode
   Application.Browser.Target = iCurrentBrowse
End Sub