Sub Autokorrektur_Export()
    Dim a As AutoCorrectEntry
    Selection.ParagraphFormat.Space1
    Selection.TypeText "#IfWinNotActive ahk_exe WINWORD.EXE" & vbCr & vbCr
    For Each a In Application.AutoCorrect.Entries
        Selection.TypeText "::" & a.Name & "::" & a.Value & vbCr
    Next
    Selection.TypeText "#IfWinActive" & vbCr
End Sub