Sub Del() Dim Str$, oj As Object Str = ThisDocument.Content Set oj = CreateObject("ScriptControl"): oj.Language = "JScript" oj.Eval "function reg(str){return str.replace(/(\[|\])/g,'')}" ThisDocument.Content = oj.codeobject.reg(Str)End Sub