[建议]请GreatWalker.兄开发简繁体标点转换的插件

浅尝辄止

在“[分享]Word简繁转换中易错字识别（更正）工具”一帖中，辄止建议GreatWalker谈友开发简繁体标点转换的插件，以转换书名号（含《》、〈〉）、引号（含“”与「」以及‘’与『』。GreatWalker兄推荐使用ConvertZ 7.0，指出：“一切问题可是剪帖板中完成，再开发其他的有此多余了。”辄止下载这个软件的最新版（8.02），发现确实好用。对于DOC文档，能同时转换注释号和注释文字，并且能保持原来的格式、保存原有的贴图。不过，这个程序也有明显的问题。第一，它把脚注统统变成了尾注。第二，对于有的字不支持，比如从糸从式的字。大概目前只支持GBK，不支持在这以外的字符。仅就此二者而言，这个软件还是比较麻烦。GreatWalker兄若能出手，作一个直接在WORD中使用的转换插件，当方便得多。辄止翘首以盼。

GreatWalker

以下是本人编的一段 Word 宏，可用于将繁体引号批量转换成简体引号，范围是编辑点所在段落内（仅限一段）的。目前尚无时间开发出功能强大的、界面友好的插件，有兴趣者不妨以下段的代码为例，自行解决手头的一些问题。------------------------------------------------Sub TQuotation_SQuotation()    Dim selText, NewText As String    Dim charLng As Long    NewText = \",\"        With Selection        .Collapse \'将选择缩至插入点        .Expand unit:=wdParagraph \'选择扩展为一段        .End = .End - 1 \'不选尾部的段落标志        selText = .Text        Dim i As Integer        For i = 1 To Len(selText)            charLng = AscW(Mid(selText, i, 1))            Select Case charLng            Case &H300C \'繁体左引号                NewText = NewText & ChrW(&H201C)            Case &H300D \'繁体右引号                NewText = NewText & ChrW(&H201D)            Case &H300E \'繁体内左引号                NewText = NewText & ChrW(&H2018)            Case &H300F \'繁体内右引号                NewText = NewText & ChrW(&H2019)            Case Else                NewText = NewText & ChrW(charLng)            End Select        Next        .Text = NewText    End WithEnd Sub