請選擇 進入手機版 | 繼續訪問電腦版

简帛网

 找回密碼
 立即注册
查看: 10169|回復: 1

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

[複製鏈接]
發表於 2005-12-6 20:59 | 顯示全部樓層 |閱讀模式
在“[分享]Word简繁转换中易错字识别(更正)工具”一帖中,辄止建议GreatWalker谈友开发简繁体标点转换的插件,以转换书名号(含《》、〈〉)、引号(含“”与「」以及‘’与『』。GreatWalker兄推荐使用ConvertZ 7.0,指出:“一切问题可是剪帖板中完成,再开发其他的有此多余了。”辄止下载这个软件的最新版(8.02),发现确实好用。对于DOC文档,能同时转换注释号和注释文字,并且能保持原来的格式、保存原有的贴图。不过,这个程序也有明显的问题。第一,它把脚注统统变成了尾注。第二,对于有的字不支持,比如从糸从式的字。大概目前只支持GBK,不支持在这以外的字符。仅就此二者而言,这个软件还是比较麻烦。GreatWalker兄若能出手,作一个直接在WORD中使用的转换插件,当方便得多。辄止翘首以盼。
發表於 2005-12-8 16:48 | 顯示全部樓層
以下是本人编的一段 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
您需要登錄後才可以回帖 登錄 | 立即注册

本版積分規則

簡帛網|手机版|小黑屋|

GMT+8, 2024-3-29 20:19 , Processed in 0.034922 second(s), 14 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表