Coloring certain words in strings based on list....?

change

r.Characters(m.firstindex + 1, m.Length).Font.Color = dic(e)

to

with r.Characters(m.firstindex + 1, m.Length).Font
    .Color = dic(e)
    .bold = true
end with