Переполнение функции "Random"

[Arnold9131]

Добрый день, уважаемые форумчани!
Есть готовый макрос, который мне нужно доработать.
С толкнулся со следующей проблемой:
При выполнении макроса значения превышают функции "Random", т.е. больше 32 767.

Open fn For Random As #1 Len = Len(skv) + 100
        Get #1, 1, skv
    Close #1

Подскажите, пожалуйста, как решить данную проблему?

[Aleksandr H.]

Не использовать прямой доступ, а в цикле добираться к нужной записи?

[Arnold9131]

Сообщение от Aleksandr H.

Не использовать прямой доступ, а в цикле добираться к нужной записи?

А можете помочь, это на примере кода показать?

[Aleksandr H.]

А задача перед макросом то какая стоит? Что он в Word'e должен делать?

[Arnold9131]

Сообщение от Aleksandr H.

А задача перед макросом то какая стоит? Что он в Word'e должен делать?

Есть макрос, которые открывает файл с исходными данными, а затем печатает этикетки на основе прочитанных данных.
Если оставить на п.2, как есть 105 штук, то макрос выдаст ошибку, тк.к значения будут превышать максимальное допустимое.

запуск макроса - порядок действий
сам макрос - etik_v3.docm (лежит в архиве, т.к. не дает его загрузить)
Файл исходных данных - Хара-Тумус -КС-1_3.docx

В п.1 загружаем файл Хара-Тумус -КС-1_3.docx