Option Explicit 
 
Sub ListAutoCorrect() 
    Dim oEntry   As Word.AutoCorrectEntry 
     
    With Application 
         ' \\ Turn screenupdating off
        .ScreenUpdating = False 
         ' \\ Add new document
        .Documents.Add 
         
         ' \\ Loop through all AutoCorrect entries
        For Each oEntry In AutoCorrect.Entries 
             ' \\ Work with selection
            With .Selection 
                 ' \\ Make all AutoCorrect names Bold
                .Font.Bold = True 
                .TypeText Text:=oEntry.Name 
                .TypeParagraph ' \\ Insert Para
                 
                 ' \\ Turn of Bold for the AutoCorrect values
                .Font.Bold = False 
                 ' \\ Insert entry
                .TypeText Text:=oEntry.Value 
                 
                 ' \\ Insert two paragraphs
                .TypeParagraph 
                .TypeParagraph 
            End With 
        Next 
         
         ' \\ Turn screenupdating back on
        .ScreenUpdating = True 
    End With 
End Sub