Поменять цвет и размер каждого слова

@Анна Голованова · Регистрация: 10.06.2015

Прошу помощи, не могу никак разобраться. У меня программа меняет цвет и размер каждой буквы, ну и также переворачивает слова. Мне нужно, чтобы менялся цвет и размер не отдельной буквы, а отдельного слова.например одно слово 14 шрифтом и красным цветом, другое 30 шрифтом зеленого цвета.

Visual Basic

Sub Proga()
'
' Proga nnn
'
 
ActiveDocument.Paragraphs(1).Range.Select
Selection.Font.Bold = True
 
Dim A() As String
Dim i As Integer
Dim s1 As String
Dim s2 As String
Const c = 256# * 256 * 256
Dim x
 
 
s1 = Trim(Selection.Text)
If Asc(Right(s1, 1)) = 13 Then s1 = Left(s1, Len(s1) - 1)
Arr = Split(s1, " ")
For i = 0 To UBound(Arr)
s2 = s2 & StrReverse(Arr(i)) & " "
Next i
Selection.Text = Trim(s2)
 
For Each x In Selection.Characters
    x.Font.Color = Int(c * Rnd)
    x.Font.Size = Int((10 - 16 + 1) * Rnd + 16)
Next
 
 
 
End Sub

@Vovchikvsb · 10.06.2015, 22:08

Сообщение от Анна Голованова

Мне нужно, чтобы менялся цвет и размер не отдельной буквы, а отдельного слова

Строчки с 25 о 28 замените на

Visual Basic

Dim temp As Integer, mas() As String
temp = 1
mas = Split(Selection.Text, " ")
For i = LBound(mas) To UBound(mas)
    Selection.Characters(temp, Len(mas(i))).Font.Color = Int(c * Rnd)
    Selection.Characters(temp, Len(mas(i))).Font.Size = Int((10 - 16 + 1) * Rnd + 16)
    temp = temp + Len(mas(i)) + 1
Next i

Опции темы