Word doesn't work that way. Every point in a Word document is formatted with a style. On top of that style, you can apply direct formatting (bold, italic, blue font, pink font whatever until the cows come home). If you then move to another point (e.g.,
next row). That row text is going to be formatted with a style and any direct formatting previously applied. It will not automatically change for you to blue font or change to red, pink or orange for the guy or gal next door. That very thought that it would
is ludicrous.
If it is too much trouble to apply your custom character style each time you select a new point in the text, then you could use the Builtin selection change event.
Create a new standard module and add:
Option Explicit
Private oCls As clsNormal
Sub AutoExec()
Set oCls = New clsNormal
lbl_Exit:
Exit Sub
End Sub
Create a new class module, name is clsNormal and add:
Option Explicit
Private WithEvents mWordApp As Word.Application
Private Sub Class_Initialize()
Set mWordApp = Word.Application
End Sub
Private Sub mWordApp_WindowSelectionChange(ByVal oSel As Selection)
Selection.Font.ColorIndex = wdBlue
End Sub