Неправильный рандом

[Тандер]

Добрый день. Есть набор макровсов, генерующих случайные числа и вставляющие их в таблицы. Цифры генерируются случайные, но как оказалось, если закрыть документ, и запустить макрос заново - цифры будут генерироваться точно такие же! Случайный, но точно такие же, как в предыдущий раз!
Что можно сделать?

Function RandInt(min, max) As Integer
RandInt = (max - min) * Rnd + min
End Function

Sub MK()

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Таблица 1"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    i = 2
    j = 2
    MyValue = RandInt(50, 200)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue

End Sub

Спасибо!

[Serge_Bliznykov]

хелп не пробовали посмотреть?

цитирую

To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.

т.е. попробуйте вначале (например, на загрузке документа) вызывать один раз функцию Randomize;

[Тандер]

Спасибо! То есть сделать так:

Function RandInt(min, max) As Integer
Randomize
RandInt = (max - min) * Rnd + min
End Function

Правильно?

[Serge_Bliznykov]

ну, имхо, можно и так.

но я бы (если есть возможность, конечно!) вынес вызов Randomize.
в любую процедуру, которая вызывается один раз при загрузке MS Word'а или при загрузке документа (на создание нового документа или на открытие документа Document_New или Document_Open ).
Чтобы процедура Randomize отработала один раз.

[Тандер]

Спасибо за совет. Можно показать как это корректно сделать?

[Serge_Bliznykov]

ну, я же сказал:
"если есть возможность, конечно"!


тут всё зависит от того, как и где Вы храните Ваши макросы, как их запускаете на выполнение и прочие КОНКРЕТНЫЕ детали.

а проиллюстрировать свои слова я хочу примером файлика, где макрос назначен на открытие документа.
ВНимание! Макросы должны быть включены!