VBA: MSWord инициализация большого массива

Формулировка задачи:

Всем привет.
Работаю с MSWord 2010 - есть большой статический массив типа:

Dim arr_bic(3011)
arr_bic(0) = Array("WORD 1", "1012765", "10000765")
arr_bic(1) = Array("WORD 2", "4525870", "20000870")
arr_bic(2) = Array("WORD 3", "4525186", "80000186")
arr_bic(3) = Array("WORD 4", "9209778", "80000778")
....
arr_bic(3009) = Array("WORD 3010", "6643799", "70000799")
arr_bic(3010) = Array("WORD 3011", "9805719", "70000719")

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

Решение задачи: «VBA: MSWord инициализация большого массива»

textual
                            Листинг программы 
                        

                            ?activedocument.Variables.Count 
 0 
activedocument.Variables("aaa")="zzz"
?activedocument.Variables.Count
 1 
?activedocument.Variables("aaa")
zzz
?activedocument.Variables(1)
zzz
activedocument.Variables(1).Delete 
?activedocument.Variables.Count
 0

                        