Цвет в макросах word

Меню сервис — макрос — запись макроса.
Выделяете текст, применяете к нему другой цвет, другой стиль, меняете его размер. Останавливаете запись макрорекордера.
Открываете редактор VBA (alt + F11), находите там записанный вами макрос и читаете его код
например,

1
2
3
4
5
6

    Selection.Range.HighlightColorIndex = wdRed
    Selection.Style = ActiveDocument.Styles("Заголовок 2 Знак")
    Selection.Font.Size = 9
    Selection.Font.Color = wdColorPlum
    Selection.Font.Color = wdColorGreen
    Selection.Font.Color = wdColorGray80

первые три строки меняют: цвет выделения на красный, затем стиль выделенного фрагмента на «Заголовок 2 Знак», затем меняют размерность шрифта («кегль») на 9
команда Selection.Font.Color = …. задает цвет выделенного текста.
Так, воспользовавшись макрорекордером, вы

постигнете дзен

начинаете разбираться в VBA!
Теперь дело за рутиной — там же, в редакторе VB создать форму и положить на неё все нужные кнопки, двойной щелчок по кнопке откроет редакцию её кода, здесь вам и пригодится то, что найдено рекордером!
Подскажу: чтоб при открытой форме можно было продолжать щелкать курсором по тексту, у формы должно быть установлено значение showmodal = false
Чтобы вызвать созданную в редакторе форму, ложите на лист ворда кнопку, в её коде пишете «userform1.show», где «userform1» — имя вашей формы.
кнопка выхода из формы: весь код кнопки состоит из трех букв «end»
кнопка выхода из ms word: код кнопки «Application.Quit»

Это было вкратце что да как. Пробуйте, несите сюда уточняющие вопросы.

АрхивОфис

К сожалению, в редакторе отсутствует возможность использовать две кнопки выбора цвета шрифта. Простейший макрос, который создается буквально за пару секунд, решает эту проблему.

Текстовый редактор Word позволяет раскрасить текст документа шрифтами разного цвета. Как правило, это делается для того, чтобы обратить внимание читателей на фрагменты текста или отдельные слова в документе

Стандартно в редакторе задан черный цвет шрифта, но эти установки можно изменить на свои собственные. Для этого в меню «Формат» выберите команду «Шрифт» или нажмите сочетание клавиш «CTRL+D». Откроется вот такое диалоговое окно:

В поле «Цвет текста» уже установлен параметр «Авто». Вы можете выбрать иной цвет, кликнув мышкой на любой значок цвета из открывающегося списка. Если вы хотите установить выбранный вами цвет для всех документов, которые вы будете создавать в дальнейшем, вы можете нажать кнопку «По умолчанию». В этом случае сделанные вами настройки шрифта сохранятся в шаблоне Normal.dot. Именно на основе данного шаблона создаются все документы в редакторе Word (стандартный режим).

Как только вы нажмете кнопку ОК для подтверждения изменения цвета шрифта, весь новый текст, который вы введете, будет отображен уже этим новым цветом. Если вы захотите вернуть черный цвет шрифта, вы можете либо вновь изменить настройки в диалоговом окне «Шрифт» либо, что гораздо быстрее, нажать сочетание клавиш «CTRL+Пробел».

Чтобы ускорить выбор цвета шрифта, на панели инструментов «Форматирование» находится соответствующая кнопка:

Ее действие аналогично действию выбора цвета шрифта с помощью диалогового окна. Кроме того, вы можете визуально наблюдать на кнопке выбранный вами в данный момент цвет, а при наведении на эту кнопку курсора мыши появится всплывающая подсказка с указанием цвета.

К сожалению, в редакторе отсутствует возможность использовать две кнопки выбора цвета шрифта и использовать каждую для своего цвета. Например, если в документе нужно один текст напечатать синим цветом, а другой — зеленым, то используя лишь одну стандартную кнопку выбора цвета шрифта, придется все время переключаться с одного цвета на другой. К тому же велика вероятность спутать похожие цвета. А если вывести на панель инструментов дубликат кнопки, то выбор цвета в одной кнопке автоматически приводит к установлению такого же цвета в другой кнопке. Замкнутый круг?

Нет, если создать простейший макрос и вывести его кнопку на панель инструментов. Итак, начнем.

1. Создайте пустой документ в Word.

2. Зайдите в меню «Сервис» (Tools), выберите команду «Макрос» (Macro) и из открывшегося списка выберите команду «Начать запись» (Record New Macro). Появится диалоговое окно, в котором следует назначить макросу имя (пусть будет FontColor) и щелкнуть на кнопке с изображением молотка. Если вы не хотите выводить кнопку макроса на панель инструментов, а желаете пользоваться сочетаниями клавиш, то можете кликнуть на кнопке с изображением клавиатуры:

3. Откроется новое диалоговое окно, в котором вам следует перейти на вкладку «Команды» и из правого поля перетащить на панель инструментов ваш новый макрос с названием Normal.NewMacros.FontColor. Кстати, позже или прямо сейчас вы можете изменить стиль кнопки, убрав текст и назначив для кнопки какое-нибудь подходящее изображение.

4. После этого на рабочем окне документа появится панелька с управляющими кнопками для записи макроса, как на скриншоте ниже:

5. Теперь будьте аккуратны, так как макрос уже пишется. Повторите действия по выбору цвета шрифта из диалогового окна «Шрифт», которые были описаны выше, или же выберите кнопкой «Цвет текста» на панели инструментов нужный вам цвет (в данном случае — синий).

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

Всё. Можете закрыть этот документ без сохранения.

Теперь для того, чтобы вводимый текст отображался синим цветом, достаточно нажать кнопку созданного вами макроса. Для установления другого цвета шрифта, выберите нужный с помощью стандартной кнопки выбора цвета.

Для тех читателей, которые знают как работать со встроенным в Microsoft Word редактором Visual Basic, я просто приведу единственную строчку из кода макроса:

Selection.Font.Color = wdColorBlue

Аналогично можно поступить и в случае, если вам нужно выделять текст (не шрифт!) разными цветами, как это обычно делается фломастером.

I have been searching off and on, high and low, for many months, to no avail, for VBA code that I can include in my macros to highlight text using the current default highlight color. I have looked through my personal resource books and all up and down the land of Google, including here.

I have a bazillion macros created that highlight text every which way to Sunday, in every possible (basic) color, and they all work great. But sometimes I have a scenario where I want to highlight random text in an ongoing manner, multiple times, in a particular color. Then I’ll want to switch colors … for a while. And switch again … for a while.

I have keyboard shortcuts (many) for a lot of highlighting options, including the built-in command shortcut to highlight text that I have selected manually. So, for example, I can manually select three words to my left, and use Ctrl+Alt+H to invoke the built-in Highlight command, and it will use the current default color.

But I’m unable to automate that further with a macro. For example, I have used numerous different iterations of macros to highlight text as I’m typing it, or to automatically highlight X number of words to my left, or a line or sentence or paragraph. But with each of those macros, I’m forced to declare a specific color. That means that I then have to have voluminous series of macros to be able to do the same thing with each (basic) color variation. That’s fine if I just want to infrequently highlight text in a specific color. But when I know I will be using a specific color for the next, say, 20 or 40 highlights, I’d love to set a default color and then just use a generic highlight command rather than a color-centric command (which is more steps).

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

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

    Sub Покрасить_с_подстановочными_знаками(ByVal что As String)
        'Запуская этот макрос из другого макроса, ему можно передать атрибут "что". Это очень удобно для поиска и замены разных слов и словосочетаний.

        'сбить выделение, чтобы макрос распространялся на весь документ
        Application.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1)

        'очистить формат поиска и замены
        Application.Selection.Find.ClearFormatting()
        Application.Selection.Find.Replacement.ClearFormatting()

        'настроить формат замены (используестя последний использованный цвет подсветки)
        Application.Selection.Find.Replacement.Highlight = True

        'параметры поиска
        With Application.Selection.Find
            .Text = что
            .Replacement.Text = "" 'в данном случае текст не будет удаляться или заменяться ничем. К нему будет применён формат поиска
            .Forward = True '
            .Wrap = WdFindWrap.wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With

        'выполнить
        Application.Selection.Find.Execute(Replace:=WdReplace.wdReplaceAll)

    End Sub

Например:

Sub Подсветка

   'подсветка скобок
   Покрасить_с_подстановочными_знаками("[()]") 'в кавычках передаётся строковый параметр - искомый текст

   'подсветка знака номер
   Покрасить_с_подстановочными_знаками("№") 

End sub

Sub Одинаковые_слова()
 
    Dim j As Object
    
    'отключение смены экрана (чтобы не моргало во время выполнения макроса)
    Application.ScreenUpdating = False
    
    'для каждого слов в тексте
    For Each j In ActiveDocument.Words
    
        'если слово есть во всех предложениях
        If проверка(j.Text) Then
        
            'сделать красным
            j.Font.Color = WdColor.wdColorDarkRed
                    
        End If
        
    Next
    
    'сообщить о завершении выполнения
    MsgBox "Готово"
    
End Sub
Function проверка(ByRef слово As String) As Boolean
 
    Dim j As Object
    
    'для каждого предложения в тексте
    For Each j In ActiveDocument.Sentences
    
        'если слова нет в этом предложении (учитывается регистр)
        If InStr(j, слово) = 0 Then
        
            'выход из функции (будет возвращён отрицательный результат)
            Exit Function
        
        End If
        
    Next j
    
    'возврат положительного результата
    проверка = True
    
End Function