Макрос изменения цвета заглавных букв в тексте

Комментариев: 6

1. 

   Ольга
   13.12.2007 в 22:50 | #1

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

   Sub colorAllBig() Dim fChar As Range Dim seltext As Range Dim i As Long Set seltext = Selection.Range If Selection.Type = wdSelectionIP Then     MsgBox "А текст какой?" Else     For Each fChar In seltext.Words             For i = 1 To fChar.Characters.Count                 If fChar.Characters(i).Case = wdUpperCase Then                     fChar.Characters(i).Font.Color = wdColorRed                     Else                     fChar.Characters(i).Font.Color = wdColorBlack                 End If             Next i     Next fChar End If End Sub
2. 

   Админ
   13.12.2007 в 23:18 | #2

   Ольга, спасибо. Все отлично работает.
3. 

   Андрей
   07.01.2008 в 00:38 | #3

   Благодарю вас. Пригодится в работе.
4. 

   Александр
   09.04.2009 в 16:00 | #4

   а если необходимо изменить цвет текста в таблице ( к примеру .Tables(1) ) как это реализовать

   пробовал .Tables(1).cell(1,1).range.font.color не работает. кто знает как это делается ?
5. 

   Александр Витер
   09.04.2009 в 16:30 | #5

   Почему не работает? Все работает. Только что эту строку набрал в окне Immediate и получил зеленый цвет в первой ячейке.

   1	ActiveDocument.Tables(1).Cell(1,1).Range.Font.Color=wdColorBrightGreen
6. 

   Александр Витер
   09.04.2009 в 16:59 | #6

   Не могу удержаться, чтобы не предъявить на суд свой макрос. В отличие от предыдущих он работает намного быстрее за счет использования поиска и замены.

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

   'Изменение цвета букв в зависимости от регистра. Sub RepaintLetters()   If Selection.Type = wdNoSelection Then Exit Sub   With Selection.Range.Find     .ClearFormatting: .Replacement.ClearFormatting     .Text = "[a-zа-яё]{1;}": .MatchWildcards = True     .Replacement.Text = "^&": .Replacement.Font.Color = wdColorAutomatic     .Execute Replace:=wdReplaceAll   End With   With Selection.Range.Find     .ClearFormatting: .Replacement.ClearFormatting     .Text = "[A-ZА-ЯЁ]{1;}": .MatchWildcards = True     .Replacement.Text = "^&": .Replacement.Font.Color = wdColorAutomatic     .Execute Replace:=wdReplaceAll   End With End Sub