Макрос и таблица

[Тандер]

Добрый день. Существует таблица 1, макрос приведенный ниже успешно генерирует число в заданном диапазоне.
Однако существует таблица 2, в которой данный макрос не работает, так как там цифры проставлены в одном слобце. Как можно модифицировать данный макрос, чтобы он работал?
В примере хорошо видно, что имеется в виду.

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, 60)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue
    Selection.Find.Execute
    i = 3
    j = 2
    MyValue = RandInt(60, 70)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue
    Selection.Find.Execute
    i = 4
    j = 2
    MyValue = RandInt(70, 80)
    Selection.Tables.Item(1).Cell(i, j).Range.Text = MyValue

Спасибо!

[Пименов Александр]

Естественно, Ваш макрос не будет работать, потому что в нем идет конкретное обращение к ячейкам Cell(i, j), в данном конкретном примере у таблицы 1 и 2 параметр i не сходится по строкам......
Второе у Вас в Selection.Find параметр .Text всегда ищет текст "Таблица 1"
Третье тут весь макрос надо переделывать с условиями и циклами.

[Тандер]

Спасибо, но я это знаю и так. Вопрос заключается в том, как это переделать.

[Пименов Александр]

Сообщение от Тандер

Спасибо, но я это знаю и так. Вопрос заключается в том, как это переделать.

Для данного случая переделываю, ждите......

[Пименов Александр]

Вот, написал Вам макрос, называется ГенерацияЧисел, находится во вложении в модуле ThisDocument

[Тандер]

Александр, спасибо большое, но есть проблемка... макрос генерирует числа в таблице, при этом дорисовывает строки. А этого быть не должно...

[Пименов Александр]

Вы имеете ввиду, чтобы в таблице 2 выводились числа в одной ячейке?

[Тандер]

Да именно, если это возможно

[Пименов Александр]

Нет проблем

[Тандер]

Спасибо большое!