Генератор случайных чисел с заполнением строк выделенного фрагмента в MS Word
Представляю Вашему вниманию VBA макрос для заполнения выделенного фрагмента в MS Word случайными числами в пределах заданного значения Public Sub FillTablewithRandomNumbers() Dim a As String a = InputBox("Введите величину напряжения под нагрузкой для элемента/блока, В (целую часть от дробной отделять запятой!)") Dim rng As Range, SelEnd As Long, counter As Long Dim PrevPos As Long '1. Запись в переменную конца выделения. ' С переменной быстрее работать, чем использовать объекты. SelEnd = Selection.End '2. Присваиваем выделенному фрагменту имя "rng". Set rng = Selection.Range '3. Превращаем выделенный фрагмент в курсор (аналогично, как при выделенном фрагменте ' нажать клавишу "стрелка влево"). rng.Collapse Direction:=wdCollapseStart '4. Подсчёт строк. ' Цикл по всем строкам выделенного фрагмента. Do '1) В каждом витке цикла увеличиваем число в