создать набор букв и цифр

[horpenst]

Уважаемые программисты!
Помогите сделать следующее задание:
на листе А4 необходимо создать набор букв русского алфавита в случайном порядке, занимающем все свободное пространство листа.
Это должно выглядеть так:

флсшькаг
ыдавшлкз
лмщпадбп
пдещдртз
жызщцудл

Спасибо!

[Ципихович Эндрю]

проблема то в чём? не знаете что такое рандомно?

[Казанский]

'asc("я")= 255
'asc("а")= 224
'asc("ё")= 184

Const N& = 50 'по сколько символов писать

Sub bb()
Dim i&, j&, s As String * N
Do
    For j = 1 To N
        i = 223 + Rnd * 32
        If i = 223 Then i = 184
        Mid(s, j) = Chr$(i)
    Next
    Selection.TypeText s
Loop Until Selection.Information(wdActiveEndPageNumber) > 1
Do
    Selection.Delete , -1
Loop Until Selection.Information(wdActiveEndPageNumber) = 1
End Sub

[Ципихович Эндрю]

тут ещё над этим
>занимающем все свободное пространство листа
надо думать, то есть шрифт подбирать чтобы строго весь А4 заполнить?

[Sasha_Smirnov]

А уже подумали, Эндрю. Не соблаговолите испытать, а?

[Ципихович Эндрю]

ага, попробовал -3767 знаков, я подумал, что надо 33 буквы на лист А4 рандомно вывести и строго на лист, а значит надо было другое...
Люди разные... задачи разные...