A way to change the different color for different notes of a text

[tesoke]

Hi, I use word to modify a text and want to change the color of the text with different colors. For example I want to use red for important notes. Green for confusing notes and yellow for my comments. So, I am obligated to change and change continuously the color of the Word file via font color icon. I want to know is there any way to solve this problem? Is there a way, for example a way to add more icons to change the color of fonts. If I can add 3 icon for color, I can choose red for one of them, green for another and yellow for last and change the color of the text via the icons without changing them continuously. Is there such a way or another to solve this problem? Thanks for any help.

[macropod]

You could do this via a set of macros (one for each colour), which you assign to a series of keyboard shortcuts, or a single macro that cycles through each of the possibilities assigned to a single keyboard shortcut.

Alternatively, you might consider using a combination of a single font colour and highlighting. For example, red with yellow highlight might indicate important notes, red alone for confusing content and yellow highlight alone for comments. At most, that's two mouse clicks for any combo (important notes).

[tesoke]

Thanks a lot. I will try it via macros.

[tesoke]

Thank you so much. It worked. That was what I was wanting.

Another thing: I can create macros for highlight the text and it is OK, but I cannot create macro to change the color of the text. I mean the macros witch I created for highlighting work, but coloring do not. Any idea?

Thanks again.

[macropod]

Originally Posted by tesoke

the macros witch I created for highlighting work, but coloring do not. Any idea?

Not without seeing the code.

[tesoke]

So, how can I show you the codes?! Do you mean these: [Macro3 is defined for coloring the text blue but it does not work.]

Sub Macro1()
'
' Macro1 Macro
'
'
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Options.DefaultHighlightColorIndex = wdBlack
Selection.Range.HighlightColorIndex = wdBlack
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
End Sub

[macropod]

Hi tesoke,

With your two macros, Macro1 applies a yellow highlight and Macro2 applies a black highlight; neither applies blue to the font. A macro to apply blue to a font might look like:

Sub Blue()
Selection.Font.ColorIndex = wdBlue
End Sub

PS: When posting code, please use the code tags, indicated by the # button on the posting menu.

[tesoke]

Thank you so much. I used your proposed code and it worked.

So, I did not like this kind of blue for text! and want to use a bluish color. So, how can define a macro with a customized color for text. I did what I did for defining macro for highlighting but it did not worked for coloring the text!

I mean I chosen the text and then click on Record Macro and then I changed the color of the opted text and click on Stop Recording; so it completed, but macro did not work for texts opted after! Also, when I checked the macro -you can see it in the comment 6 that I attached previously- I saw that this macro is not defined properly! Has I done a wrong job?

[macropod]

It seems you haven't recorded the blue colouring correctly. I recorded a macro for a custom blue colour and the macro recorder came up with:

Sub Blue()
'
' Blue Macro
'
'
  Selection.Font.Color = 16724787
End Sub

As you can see, this has nothing to do with highlighting, which is what your macros recorded. All I can conclude is that the macros you posted didn't include anything for making the text blue.

[tesoke]

Thanks a lot. Is my way, that I mentioned previously, is wrong? Would you please explain how you record blue coloring please? I will appreciate you, if you do that

[macropod]

What you described sounds OK, but your code indicates you actually did something else.

For the code in my last post, I simply started the macro recorder, gave the macro the name 'Blue', then recorded setting the font to a blue colour, via Font Color >More colors>Standard, then picked a blue spot near the top right and clicked OK, after which I stopped recording.

[tesoke]

Thank you so much. Finally it worked I used from the Font Color > More colors>Standard and so it worked. Previously I was using Font Color >Theme Colors and it did not work.

Thank you so much macropod! You helped me so much and I am sorry for wasting your time and bothering you with these many questions. Bless you.