Как рандомизировать шрифт? - VBA

Формулировка задачи:

Создал 2 шрифта, хочу чтобы текст был с рандомным(перемешанным) шрифтом из данных двух. Как это сделать?

Решение задачи: «Как рандомизировать шрифт?»

textual
                            Листинг программы 
                        

                            Sub RandomFont()
Const FNTS = "Times New Roman,Arial,Courier New" 'список шрифтов через запятую
Dim c As Range, aFnts() As String, ub As Long
  Application.ScreenUpdating = False
  aFnts = Split(FNTS, ",")
  ub = UBound(aFnts) + 1
  Set c = ActiveDocument.Characters(1)
  On Error GoTo 1
  Do
    c.Font.Name = aFnts(Int(Rnd * ub))
    Set c = c.Next
  Loop
1 Application.ScreenUpdating = True
End Sub
                        

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы