Новый модуль можно создать методом RunCommand объекта Аррlication. Следующая строка кода создает модуль и открывает его в режиме Design (Конструктор). Заметьте, что этот код работает не во всех режимах.

RunCommand acCmdNewObjectModule

Вам может понадобиться создать модуль с помощью Visual Basic, чтобы добавить текст из файла. Вот пример, в котором текст добавляется в новый модуль методом AddFromFile (процедура сохраняет новый модуль под тем же именем, что и текстовый файл):

Function AddFromTextFile(strFileNam) As Boolean
═════Dim strModuleName As String, intPosition As Integer
═════Dim intLength As Integer
═════Dim mdl As Module

═════? сохраняем имя файла в переменной
═════strModuleName = strFileName

═════? удаляем из строки путь
═════Do
══════════? ищем в строке символ \
══════════If intosition = lnStr(strModuleName, "\")
══════════If intPosition = 0 Then
═══════════════Exit Do
══════════Else
═══════════════intLength = Len(strModuleName)
═══════════════? удаляем из строки путь
═══════════════strModuleName = Right(strModuleName, Abs(intLength - intPosition))
══════════End If
═════Loop

═════? удаляем из строки расширение имени файла
═════intPosition = lnStr(strModuleName, ".")
═════If intPosition > 0 Then
══════════intLength = Len(strModuleName)
══════════strModuleName = Left(strModuleName, intPosition - 1)
═════End If

═════' создаем новый модуль
═════RunCommand acCrndNewObjectModule
═════' сохраняем модуль под именем текстового файла без пути и расширения
═════DoCmd .Save . strModuleName
═════' получаем ссылку на объект Module
═════Set mdl = Modules(strModuleName)
═════' добавляем содержимое текстового файла
═════AddFromFile strFileName
═════' сохраняем модуль с новым текстом
═════DoCmd. Save
End Function

При работе с этой процедурой избегайте режима пошагового выполнения в строке, впервые сохраняющей модуль. Если при пошаговом выполнении этой строки Вы войдете в точку прерывания, в фокусе окажется модуль, содержащий этот код, а не тот модуль, который был только что им создан. А потом Visual Basic попытается сохранить модуль, содержащий выполняемый в данный момент код.

Учтите также, что при создании нового модуля методом RunCommand в меню Insert (Вставка) должна быть доступна команда Module (Модуль).

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997