Option Explicit 
 
Sub ListAutoText() 
    Dim oAutoText   As Word.AutoTextEntry 
     
    With Application 
         ' \\ Turn screenupdating off
        .ScreenUpdating = False 
         ' \\ Add new document
        .Documents.Add 
         
         ' \\ Loop through all Autotext entries in Normal.dot
        For Each oAutoText In NormalTemplate.AutoTextEntries 
             ' \\ Work with selection
            With .Selection 
                 ' \\ Make all Autotext names Bold
                .Font.Bold = True 
                .TypeText Text:=oAutoText.Name 
                .TypeParagraph ' \\ Insert Para
                 
                 ' \\ Turn of Bold for the Autotext entries
                .Font.Bold = False 
                 ' \\ Insert entry
                oAutoText.Insert Where:=.Range, RichText:=True 
                 
                 ' \\ Insert two paragraphs
                .TypeParagraph 
                .TypeParagraph 
            End With 
        Next 
         
         ' \\ Turn screenupdating back on
        .ScreenUpdating = True 
    End With 
End Sub