function ListLandscapeFonts() {
    let docNew = Documents.Add()
    docNew.Content.InsertAfter("Landscape Fonts" + "\n")

    for(let i = 1; i <= LandscapeFontNames.Count; i++) {
        docNew.Content.InsertAfter(LandscapeFontNames.Item(i) + "\n")
    }
                                    
    docNew.Range(docNew.Paragraphs.Item(2).Range.Start, docNew.Paragraphs.Item(docNew.Paragraphs.Count).Range.End).Select()
                                    
    Selection.Sort()
}