OLEClass ="sevCommand4.Command"
Class ="sevCommand4.Command"

Public Sub app_SaveAllForms()
    Dim frmX As Object
    Dim strName As String
 
    apiCreateFullPath CurrentProject.Path & "\Forms\"
 
    For Each frmX In CurrentProject.AllForms
        strName = frmX.Name
        Application.SaveAsText acForm, strName, CurrentProject.Path & "\Forms\" _
          & strName & ".txt"
    Next
 
End Sub
 
Public Sub app_ReadAllForms()
    Dim strName As String
    Dim strpath As String
    Dim strFile As String
 
    strpath = CurrentProject.Path & "\Forms\"
    strFile = Dir(strpath & "*.txt")
    If strFile > "" Then
        Debug.Print strFile
        Application.LoadFromText acForm, Split(strFile, ".")(0), strpath & "\" _
          & strFile
        Do
            strFile = Dir()
            If strFile = "" Then Exit Do
            Debug.Print strFile
            Application.LoadFromText acForm, Split(strFile, ".")(0), strpath & _
              "\" & strFile
        Loop
    End If
 
End Sub