Public Module Birdshome
   Sub Unicode2Character()
       Dim doc As Document = DTE.ActiveDocument
       Dim docText As TextDocument = doc.Object
       Dim selText As TextSelection = docText.Selection()
       selText.SelectAll()
       Dim text As <?xml:namespace prefix = spanstyle='color />String = selText.Text
       Dim iLength As Integer
       Do
           iLength = text.Length
           Dim m As Match
           Dim strPattern As String = "(?<code>\\[ux][A-F0-9]{2,4})"
           m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
           If m.Success Then
               Dim strValue As String
               strValue = m.Groups("code").Value
               Dim digitLength As Integer = strValue.Length - 2
               text = text.Replace(strValue, "")
               Dimint As Integer
               int = System.Int32.Parse(strValue.Substring(2, digitLength), NumberStyles.HexNumber)
               Dim ch As Char = ChrW(int)
               docText.ReplacePattern(strValue, ch)
           Else
               Exit Do
           End If
           If Not text.Length < iLength Then
               Exit Do
           End If
       Loop
       selText.StartOfDocument()
   End Sub
End Module