remove bold formatting from chars in WORD

Question

I use the following code in order to remove formating, somehow it does not work

Sub rep_test()
Dim TempS As String

TempS = Replace_chars("]", "