Word. Расставить случайные числы в начале абзаца

[Maxxusha]

Всем Привет!

Возникла необходимость написать простенький макрос, может кто подскажет. Существует текст, состоящий из нескольких абзацев. Нужно расставить случайные числа (целые в заданном диапазоне) в начале каждого абзаца, за исключением абзацев, начинающихся с символов "#$%". Расстановка по сочетанию клавиш, то есть каждый абзац обрабатывается нажатием клавиш. Единственная тонкость - случайные числа соседних абзацев должны быть разные (абзац "#$%" выступает как любая другая цифра). Диапазон случайных чисел можно задать в любом формате в начале документа.

Пример.

Существующий файл:

Абзац1
Абзац2
Абзац3
#$%Абзац4
Абзац5
Абзац6
#$%Абзац7
Абзац8

Файл после обработки:

1Абзац1
4Абзац2
3Абзац3
#$%Абзац4
5Абзац5
8Абзац6
#$%Абзац7
4Абзац8

На данном этапе сейчас дошел только до того, что генерирует случайные числа в заданном диапазоне и ставит в начало абзаца. А переходы с сравнением предыдущей цифры пока не получаются.
Заранее спасибо.

[Serge_Bliznykov]

просто совет (как вариант) сразу нагенерите чисел с запасом так, чтобы соседние отличались. Сохраните их в массив (или в коллекцию). А потом доставайте по очереди по мере необходимости..

p.s. в программирования на VBA под Word не силён, поэтому конкретным кодом не могу помочь...

[Maxxusha]

ИМХО, таким образом не совсем оптимально будет - дольше и памяти больше нужно. Тут алгоритм прозрачен, но возникают сложности с синтаксисом, так как напрямую с VBA очень мало имел дело.

[Serge_Bliznykov]

ИМХО, таким образом не совсем оптимально будет - дольше и памяти больше нужно.

согласен. Ну я же говорю - просто, как вариант... \

Погодите, Вам же нужно, чтобы не совпадали цифры в текущем и предыдущем абзацах?!
Так допустимо? :

1Абзац1
4Абзац2
1Абзац3

тогда достаточно хранить в одной глобальной переменной предыдущее значение. и всё. Генерить пока случайное значение совпадает с предыдущим.

Тут алгоритм прозрачен, но возникают сложности с синтаксисом, так как напрямую с VBA очень мало имел дело.

вот, вот... та же беда.. Вот именно поэтому я и пытаюсь придумать "зрзац"-алгоритм...

[viter.alex]

Так подойдёт?

Sub InsertRandomNumberBeforeParagraph()
  Dim opar As Paragraph
  Set opar = ActiveDocument.Paragraphs.First
  Dim nPrevNum As Integer
  Dim nLBound As Integer
  Dim nUBound As Integer
  
  nLBound = 1
  nUBound = ActiveDocument.Paragraphs.Count
  
  Do Until opar Is Nothing
    If Left(opar.Range.Text, 3) <> "#$%" Then
      nPrevNum = GenRndNumber(nLBound, nUBound, nPrevNum)
      opar.Range.InsertBefore nPrevNum
    End If
    Set opar = opar.Next
  Loop
End Sub

'Функция для генерации случайного целого числа в заданных пределах
Function GenRndNumber(Lower As Integer, Upper As Integer, NotEqual As Integer) As Integer
  Randomize
  GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower%)
  Do While GenRndNumber = NotEqual
    GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower%)
  Loop
End Function

[Maxxusha]

Спасибо за код, работает моментально, единственный момент, там по комбинации клавиш нужна одна цифра в начале абзаца, затем курсор ставится на начало следующего. Цикл убрал, курсор перевел, но по нажатию клавиш цифра ставится каждый раз в начало первого абзаца. Не подскажите синтаксис как переменной "opar" присваивать текущий параграф?

[viter.alex]

Set opar = Selection.Paragraphs.First

[Maxxusha]

Супер, спасибо. Попробую. Надеюсь доделать дальше сам.

[Maxxusha]

Попробовал. Не получилось сделать, не хочет работать так, как нужно Никак не хочет делать вот такой алгоритм:

Курсор находится в начале любого абзаца
Нажимается сочетание клавиш, вызывающих данную подпрограмму.

Если:
начало текущего абзаца "#$%", переход к началу следующего абзаца, генерация числа, переход к началу следующего абзаца -> конец подпрограммы
Иначе:
смотрим предыдущий абзац
Если:
в начале "#$%", то генерация числа в текущем абзаце, переход к следующему абзацу -> конец подпрограммы
Иначе:
запоминаем номер в начале предыдущего абзаца, в текущем генерируем число, отличное от него, переход к следующему абзацу -> конец подпрограммы

Конец если
Конец если

Заранее спасибо

[viter.alex]

Алгоритм неверный.

Иначе:
смотрим предыдущий абзац
Если:
в начале , то генерация числа в текущем абзаце, переход к следующему абзацу -> конец подпрограммы
Иначе:
запоминаем номер в начале предыдущего абзаца, в текущем генерируем число, отличное от него, переход к следующему абзацу -> конец подпрограммы

Конец если

Эта часть выполняется, если в начале абзаца стоят символы "#$%". Ты проверяешь первые символы в начале предыдущего абзаца, и, если они там тоже есть, генерировать номер в текущем абзаце. Но ведь в нём эти символы стоят!

Думай дальше. Или опиши подробнее, что ты хочешь. Ставить случайное число в начале текущего абзаца, а если в начале текущего абзаца стоят символы "#$%", то число вставлять в следующий?