WordBasic Property Example

This example uses the Word.Basic object to create a new document and insert the available font names. Each font name is formatted in its corresponding font.

With WordBasic
    .FileNewDefault
    For aCount = 1 To .CountFonts()
        .Font .[Font$](aCount)
        .Insert .[Font$](aCount)
        .InsertPara
    Next
End With