'   navigationTree -  Indented List from FrontPage Navigation
'   Copyright (C) 2002  Stephen C. Travis
'
'   This program is free software; you can redistribute it and/or modify
'   it under the terms of the GNU General Public License as published by
'   the Free Software Foundation; either version 2 of the License, or
'   (at your option) any later version.
'
'   This program is distributed in the hope that it will be useful,
'   but WITHOUT ANY WARRANTY; without even the implied warranty of
'   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'   GNU General Public License for more details.
'
'   You should have received a copy of the GNU General Public License
'   along with this program; if not, write to the Free Software
'   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'   or visit their website at http://www.fsf.org/licenses/gpl.txt
'
Dim myHTML As String
Sub navigationTree()
If Not FrontPage.ActiveDocument Is Nothing Then
If FrontPage.ActivePageWindow.ViewMode = fpPageViewNormal Then
    Dim thisNode As NavigationNode
    Set thisNode = ActiveWeb.HomeNavigationNode
    myHTML = "<ul>"
    Call getChildren(thisNode)
    myHTML = myHTML & "</ul>"
    Set myRange = ActiveDocument.selection.createRange
    myRange.collapse (True)
    myRange.pasteHTML (myHTML)
End If
End If
End Sub
Private Sub getChildren(thisNode)
    myHTML = myHTML & "<li>"
    myHTML = myHTML & "<a href=""" & MakeRel(ActiveDocument, thisNode.Url) & """>" & thisNode.File.Title & "</a>"
    For i = 0 To thisNode.Children.count - 1
        myHTML = myHTML & "<ul>"
        getChildren (thisNode.Children(i))
        myHTML = myHTML & "</ul>"
    Next
    myHTML = myHTML & "</li>"
End Sub