Word 2013

[cday]

In my Office 2013 MS Word the macro will not record the font color change. It will record the change in font type, size, and position, but not the color change. Has something changed in the new version of Word?

[NeilSC]

I recorded a macro in Word 2013 to change the font color to red.

Notice the recorded line:
.Color = wdColorRed

Sorry, but I have no explanation why this line does not appear when you record the macro.

With Selection.Font
.name = "Times New Roman"
.Size = 11
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorRed
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.Ligatures = wdLigaturesNone
.NumberSpacing = wdNumberSpacingDefault
.NumberForm = wdNumberFormDefault
.StylisticSet = wdStylisticSetDefault
.ContextualAlternates = 0
End With

[Stefan Blom]

The macro recorder has limitations, that is, recording is never perfect. (But note that in some respects recording is less useful than it was in older versions of Word.)

Which change are you trying to make? If you just want to apply a standard color to the selection, you can use:

Selection.Font.ColorIndex = wdBlue

You can see a list of WdColorIndex constants if you press F2 to display the Object browser in the Visual Basic Editor (Alt+F11).

[NeilSC]

In Windows only (not Mac), you can also specify any color.

For example:
Selection.Font.Color = 13130340


Another example:


Selection.Font.Color = RGB(64, 128, 192)

[cday]

Originally Posted by Stefan Blom

The macro recorder has limitations, that is, recording is never perfect. (But note that in some respects recording is less useful than it was in older versions of Word.)

Which change are you trying to make? If you just want to apply a standard color to the selection, you can use:

Selection.Font.ColorIndex = wdBlue

You can see a list of WdColorIndex constants if you press F2 to display the Object browser in the Visual Basic Editor (Alt+F11).

This is the fix I used in Visual Basic to make it work. Thanks for the help.