Option Compare Database
Option Explicit
Const SyncFolder As String =  "C:\Мои документы\Juice\PalmSync" 

Sub WriteModule()
Dim mdl As Access.Module, mdb As Database, obj As AccessObject
Dim strM As String
Set mdb = CurrentDb
'Сначала модули класса (уже загружены)
For Each obj In Application.CurrentProject.AllModules
    strM = obj.Name
    SaveCode strM, True
Next
Set obj = Nothing
Set mdb = Nothing
ConvertTextToDoc
End Sub

'Запись кода в файл
'Второй аргумент Истина - для модуля класса, иначе - модуль формы
'(она должна быть открыта)
Sub SaveCode(strN As String, Optional bM As Boolean)
Dim mdl As Access.Module, frm As Form, i As Integer, f As Integer
If bM Then
    On Error GoTo  7961 
    Set mdl = Modules(strN)
    On Error GoTo  0 
Else
    Set frm = Forms(strN)
    Set mdl = frm.Module
End If
'СОЗДАНИЕ ФАЙЛА ДЛЯ МОДУЛЯ ИЛИ ОТКРЫТИЕ - ДЛЯ ФОРМЫ
f = FreeFile
ChDir SyncFolder
If bM Then
    Open "m_" & strN & ".txt" For Output As #f
Else
    Open "f_" & strN & ".txt" For Output As #f
End If

For i = 1 To mdl.CountOfLines
    Print #f, mdl.Lines(i, 1)
Next i
Close #f
Set frm = Nothing
Set mdl = Nothing
Exit Sub

7961:
If Err.Number = 7961 Then
    DoCmd.OpenModule strN
    Resume
End If
End Sub

Sub WriteToModule(strMod As String, strText As String, blnForm As Boolean)
Dim mdl As Access.Module
If blnForm Then
    Set mdl = Forms(strMod).Module
Else
    On Error GoTo 7961
    Set mdl = Modules(strMod)
    On Error GoTo 0
End If
mdl.AddFromString strText
Exit Sub

7961:
If Err.Number = 7961 Then
    DoCmd.OpenModule strMod
    Resume
End If
End Sub

Sub CloseAllModules()
Dim mdl As Access.Module, mdb As Database, obj As AccessObject
Dim strM As String
Set mdb = CurrentDb
'Сначала модули класса (уже загружены)
For Each obj In Application.CurrentProject.AllModules
    strM = obj.Name
    On Error Resume Next
    DoCmd.Close acModule, strM
Next
Set obj = Nothing
Set mdb = Nothing
End Sub

MyModule.AddFromString

MyModule.AddFromFile