Макрос, чтобы "покрасить" текст в Word-е - VB

Узнай цену своей работы

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

Пытаюсь написать макрос чтобы поменять цвет шрифта для все цифр в документе, сделать их скажем зелеными. В начале пытался использовать [0-9], не разобрался решил прописать для каждой цифры: Записал замену всех цифр 1 (для начала) на такие же но

зеленые

. Однако получившийся макрос не видит цвет, хотя при автозамене руками - все нормально. пробовал добавить строчку
- не помогло.
Буду очень рад идеям.

Решение задачи: «Макрос, чтобы "покрасить" текст в Word-е»

textual
Листинг программы
Sub ColoredDigits()
'
' ColoredDigits Макрос
' Макрос записан 21.07.2011 VirtualLab
'
    Dim i As Long
    Selection.WholeStory
    Application.Browser.Previous
    Debug.Print Selection.StoryLength
    For i = 1 To Selection.StoryLength
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        'If (Asc(Selection.Characters.First) >= 48) And (Asc(Selection.Characters.First) <= 57) Then
        If IsNumeric(Selection.Characters.First) Then
            Debug.Print "Символ: "; Selection.Characters.First
            Debug.Print "ASCI code: "; Asc(Selection.Characters.First)
            Selection.Font.Color = wdColorGreen
        End If
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    MsgBox "Ok!"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4 из 5
Похожие ответы