Hi, add this: >r.Text = MyReplace(0) r.Font.Color = wdColorAutomatic or r.Font.Color = wdColorBlack -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Vista Small Business, Office XP