Visual Basic para Aplicaciones - Cambiar color de palabras de Word con macro

Hola, estoy aprendiendo las macros de Excel, pero no se las de word, y tengo varios archivos de word con varias hojas a las que tengo que cambiarle el color a las palabras (escritas en fuente color rojo) por color negro y en negrita. Y si me recomiendan un buen libro que trate de las macros de Word les agradezco por mil !! Gracias!!

Sub Cambio_letra_roja_por_letra_negra()
'DESDE TECLADO Control+X
'final = InputBox("Ingrese la posicion final del caracter del parrafo:", "Para ejecutar macro:", "Numero entero, 500 por ejemplo")

Do
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Font.Color = wdColorRed Then
Selection.Font.Color = wdautomatic
Selection.Font.Bold = wdToggle
End If
i = i + 1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop Until i = final

End Sub

Yo tengo una consulta adicional, como puedo hacer para que hasta cierto caracter (por ejemplo: #) en una linea, se muestre el texto de un cierto color (rojo x ejemplo) y a partir del siguiente caracter, en la misma línea, el color sea otro (azul por ejemplo)?? Y que siempre al inicio de cada nuevo párrafo siempre se empiece con rojo pero cuando se obtenga el caracter # siempre cambie a azul??
El detalle es que necesito digitar grandes configuraciones de routers y quiero diferenciar el código del nombre de línea.... Muchas gracias de antemano...

hola, quisiera saber si hay una macro para 3 colores en especifico no la encuentro y no he podido crearla, no se si puedas ayudarme, los colores que necesito son amarillo, azul y rojo en cada palabra que escriba, en cada letra