Word Macro for creature printing

Not sure how anyone else is doing this but I though I’d share as I know one person at least that does something similar to what I do.

I use the Monster Builder to create the player’s foes and then use the Export as Rich Text in the app to get the data.  I paste that into a page in MS Word where it looks all nice and neat.  Unfortunately the monster colors are far from printer friendly (massive green, well cyan and magenta, ink usage) and they’re not all that legible when printed.   It’s impossible to apply a theme to them due their oddities in format so I came up with this macro to strip out all the coloring and set the text all to black.  Now they’re very printer (and eye) friendly.

Sub RemoveShading()
‘
‘ RemoveShading Macro
‘
‘
With Selection.ParagraphFormat.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = -603914241
End With

Selection.Font.Color = -587137025
With Selection.Cells
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = -603914241
End With
End With

End Sub