Макрос цвет шрифта 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

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

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

Well, .Font.Color certainly used to work, at least in WD2007 — WD2013. It returned a long value that was either the specific RGB, for non-theme colours, or the equivalent of the HEX value of the combination of theme color and tint (or shade). Tony Jollans wrote a detailed article for Word 2007 that gives all the gory details of theme colours.

.Font.Color is undocumented because it has been deprecated and from testing in Word 365 I can confirm that it no longer works like it used to. It now only returns the theme colour not the tint or shade.

@Cindy Meister suggested .Font.TextColor which sounds as though it should give the values you seek. Unfortunately, although it returns a ColorFormat object complete with .ObjectThemeColor, .Brightness and .TintAndShade properties, the only valid information you will get is from .ObjectThemeColor, so that will not give you what you need.

To get all the information you require you have to set logic aside and examine .Font.Fill.ForeColor. (Like, really?! Font has a fill colour??) This will also return a ColorFormat object but this time all the properties return valid data.

You should therefore change:

rDestinationRange.Font.Color = rSourceColourRange.Font.Color

to:

With rDestinationRange.Font.Fill.ForeColor
    .ObjectThemeColor = rSourceColourRange.Font.Fill.ForeColor.ObjectThemeColor
    .Brightness = rSourceColourRange.Font.Fill.ForeColor.Brightness
End With

For completeness, the .Brightness property returns a value of -1 for 100% (i.e. no tint or shade), 0.6 for 40% lighter, 0.4 for 60% lighter, etc. Negative values are used for shades with -0.75 representing 25% darker and -0.5 50% darker.

It is also possible to set .Brightness to values that don’t correspond to those in the palette, e.g. 0.25 for 75% lighter, or -0.9 for 10% darker.

With Selection.Find
        .ClearFormatting
        .Text = "hello"
        .Replacement.ClearFormatting
        .Replacement.Text = "hi"
        .Replacement.Font.Color = wdColorBlack 'I added this line
        .Execute Replace:=wdReplaceAll, Forward:=True, _
         Wrap:=wdFindContinue
    End With

1 ответ

Лучший ответ

Sub Tester()
    
    ActiveDocument.Content.Font.Color = vbBlack
    
    ColorText ActiveDocument.Content, "breaks", vbRed
    ColorText ActiveDocument.Content, "it", vbBlue
    ColorText ActiveDocument.Content, "with just", vbGreen

End Sub


Sub ColorText(rng As Range, strFind As String, clr As Long)
    With rng.Find
        .Text = strFind
        .Forward = True
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        Do While .Execute()
            rng.Font.Color = clr 'rng is redefined as the found text
        Loop
    End With
End Sub