RichTextBox 全角引号变成半角解决方法

Private Function ReplaceRtfFullQuotes(ByVal TextRTF As String) As String     Dim sText As String             sText = Replace(TextRTF, "\ldblquote ", "“")     sText = Replace(sText, "\ldblquote", "“")

>>阅读原文<<