Нужно написать макрос

[lolk]

Недавно дали задание написать макрос. Никак не могу написать. Так как только начали изучать желательно не использовать сложные функции, а также Find. По ссылке есть задание и приблизительный код.

http://rghost.ru/4845065

[Sasha_Smirnov]

А можно не по ссылке?

[lolk]

Дан текст в Microsoft Word. Написать макрос, выделяющий (цветом или стилем шрифта) те слова, которые написаны с большой буквы,
но не являются началом предложения (перед этим словом не стоит точка, вопросительный знак, восклицательный знак или многоточие).
В диалоге с пользователем уточняется тип выделения (различные цвета и/или стиль шрифта).



Option Explicit

Private Sub ComboBox1_Click()

End Sub

Private Sub CommandButton1_Click()
End
End Sub

Private Sub CommandButton2_Click()
Dim coll As Collection
Dim w As Variant
Dim q As Variant
Dim i As Integer
Dim m As Integer



Set coll = New Collection
Selection.Start = ActiveDocument.Range.Start
Selection.End = ActiveDocument.Range.End

For Each q In Selection.Characters
If q = "." Then
coll.Add q
End If
Next q

For Each w In Selection.Words
If (w.Characters(1) > "À") And (w.Characters(1) < "ß") Then
coll.Add w
w.Font.Color = 5
End If
Next w

Selection.Move wdParagraph, -1
i = 1
For Each w In coll
Selection.TypeText i & ":" & w & " "
i = i + 1
Next w
Selection.InsertParagraph

For Each w In coll
coll.Remove 1
Next w

UserForm1.Hide

End Sub


Private Sub UserForm_Initialize()
UserForm1.ComboBox1.AddItem "Êðàñíûé"
UserForm1.ComboBox1.AddItem "Ñèíèé"
UserForm1.ComboBox1.AddItem "Æåëòûé"
UserForm1.ComboBox1.AddItem "Çåëåíûé"
End Sub

[Sasha_Smirnov]

Сообщение от lolk

различные цвета и/или стиль шрифта

Этого пока не достиг. Работает кнопка Highlighting.

И то почему-то только два раза. На всякий случай выложил.

[lolk]

Спасибо хоть за это. Очень помогли. Тогда попробую сам доделать.

[Sasha_Smirnov]

Вот теперь все кнопки выполняют заявленные функции.
А чтобы не использовать Find?!.. Увольте!