Можете додати код модулу без употребе посебне текстуалне датотеке која садржи код.
Доњи макро приказује како се то може учинити. Макро мора бити прилагођен тако да садржи код који желите да додате:
Суб ИнсертПроцедуреЦоде (БиВал вб Као радна свеска, БиВал ИнсертТоМодулеНаме Ас Стринг) 'убацује нови код у модул под називом ИнсертМодулеНаме у вб' треба прилагодити у зависности од кода за уметање Дим ВБЦМ као кодни модул Дим ИнсертЛинеИндек као дуго укључено Грешка Настави Следећи Сет ВБЦП = вБЦМ = .ВБЦомпонентс (ИнсертТоМодулеНаме) .ЦодеМодуле Ако није ВБЦМ ништа, тада помоћу ВБЦМ ИнсертЛинеИндек = .ЦоунтОфЛинес + 1 'прилагодите следеће редове у зависности од кода који желите да уметнете. = ИнсертЛинеИндек + 1 .ИнсертЛинес ИнсертЛинеИндек, _ "Мсгбок" "Хелло Ворлд!" ", ВбИнформатион," "Титле Бок Бок Титле" "" & Цхр (13) ИнсертЛинеИндек = ИнсертЛинеИндек + 1 .ИнсертЛинес ИнсертЛинеИндек, "Енд Суб" & Цхр 13) 'нема потребе за додатним прилагођавањем Енд Витх Сет ВБЦМ = Ништа се не завршава ако је грешка Иди на 0 Прекини Суб
Пример:
ИнсертПроцедуреЦоде радне свеске ("ВоркБоокНаме.клс"), "Модул 1"