Выгрузка списка макросов (или всего кода целиком) из проекта VBA в текстовый файл

Sub print_all_sub_and_function_names_of_current_project()
    ' пишет названия функций программы в файл c:\output.txt
    On Error Resume Next
    sub_list = "": Set iVBComponents = ThisWorkbook.VBProject.VBComponents
    For Each iVBComponent In iVBComponents
        Select Case iVBComponent.Type
            Case 1 To 100:
                With iVBComponent.CodeModule
                    sub_list = sub_list & "==============" & vbNewLine & .Name & vbNewLine & "==============" & vbNewLine
                    For i = 1 To .CountOfLines
                        If InStr(1, .Lines(i, 1), "Sub ") And InStr(1, .Lines(i, 1), "Exit ") = 0 And _
                           (InStr(1, .Lines(i, 1), "End Sub") > 15 Or InStr(1, .Lines(i, 1), "End Sub") = 0) Then
                            sub_list = sub_list & .Lines(i, 1) & vbNewLine
                        End If
                        If InStr(1, .Lines(i, 1), "Function ") And InStr(1, .Lines(i, 1), "Exit ") = 0 And _
                           (InStr(1, .Lines(i, 1), "End Function") > 15 Or InStr(1, .Lines(i, 1), "End Function") = 0) Then
                            sub_list = sub_list & .Lines(i, 1) & vbNewLine
                        End If
                    Next
                End With
        End Select
    Next
    Dim FSO As FileSystemObject, ts As TextStream, fil As File
    Set FSO = CreateObject("scripting.filesystemobject")
    If FSO.FileExists("c:\output.txt") Then Kill "c:\output.txt"
 
    Set ts = FSO.OpenTextFile("c:\output.txt", 8, True)
    ts.Write sub_list: ts.Close: Set ts = Nothing: Set FSO = Nothing
End Sub

Sub print_all_code_of_current_project()
    ' пишет весь код данной программы в файл c:\code.vb
    On Error Resume Next
    sub_list = "": Set iVBComponents = ThisWorkbook.VBProject.VBComponents
    For Each iVBComponent In iVBComponents
        Select Case iVBComponent.Type
            Case 1 To 100:
                With iVBComponent.CodeModule
                    sub_list = sub_list & "==============  " & .Name & "  ==============" & vbNewLine
                    For i = 1 To .CountOfLines
                        codeline = Trim$(.Lines(i, 1))
                        If Len(codeline) > 0 Then sub_list = sub_list & codeline & vbNewLine
                    Next
                End With
        End Select
    Next
 
    Dim FSO As FileSystemObject, ts As TextStream, fil As File
    Set FSO = CreateObject("scripting.filesystemobject")
    If FSO.FileExists("c:\code.vb") Then Kill "c:\code.vb"
 
    Set ts = FSO.OpenTextFile("c:\code.vb", 8, True)
    ts.Write sub_list: ts.Close: Set ts = Nothing: Set FSO = Nothing
End Sub