简繁转换的VBS代码

Class TCSCConverter
Private Word, Doc

Private Sub Class_Initialize()
Set Word = CreateObject("Word.Application")
End Sub

Private Sub Class_Terminate()
Word.Quit
Set Word = Nothing
End Sub

'转化成简体
Public Function TC2SC(str)
Set Doc = Word.Documents.Add
Word.Selection.TypeText str
Doc.Range.TCSCConverter 1, True
TC2SC = Replace(Doc.Range.Text, vbCr, vbCrLf)
TC2SC = Left(TC2SC, Len(TC2SC) - 2)
Doc.Saved = True
Doc.Close
Set Doc = Nothing
End Function

'转化成繁体
Public Function SC2TC(str)
Set Doc = Word.Documents.Add
Word.Selection.TypeText str
Doc.Range.TCSCConverter 0, True, True
SC2TC = Replace(Doc.Range.Text, vbCr, vbCrLf)
SC2TC = Left(SC2TC, Len(SC2TC) - 2)
Doc.Saved = True
Doc.Close
Set Doc = Nothing
End Function

End Class

Set TCSC = New TCSCConverter

WScript.Echo TCSC.SC2TC("我下面给你吃")
WScript.Echo TCSC.SC2TC("我干妹妹的故事")

保存为Translate.vbs，编码类型为ASIN。

转载于:https://www.cnblogs.com/system32/p/simplified-tranditional-vbs-code.html

简繁转换的VBS代码相关推荐

几行代码轻松搞定网页简繁转换
首先在 http://www.chinahtml.com/d/file/programming/3/transform.js处下载用于简繁转换的js文件transform.js,复制到网站目录下,然后 ...
html 简繁文件转换器,几行代码轻松搞定网页的简繁转换
几行代码轻松搞定网页的简繁转换以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 对网页进行简繁字体转换的方法一般有两种 ...
几行代码轻松搞定网页的简繁转换（转载）
对网页进行简繁字体转换的方法一般有两种:一是使用<简繁通>这样的专业软件,另外一种是制作两套版本的网页.显然,这两种方法都较为麻烦,而且专业软件一般不能用于免费的空间.笔者在这里给大家提供 ...
Elasticsearch高级搜索排序（中文+拼音+首字母+简繁转换+特殊符号过滤）(示例代码)
简介这篇文章主要介绍了Elasticsearch高级搜索排序( 中文+拼音+首字母+简繁转换+特殊符号过滤)(示例代码)以及相关的经验技巧,文章约21106字,浏览量320,点赞数5,值得参考! ...
几行代码轻松搞定网页的简繁转换
对网页进行简繁字体转换的方法一般有两种:一是使用<简繁通>这样的专业软件,另外一种是制作两套版本的网页.显然,这两种方法都较为麻烦,而且专业软件一般不能用于免费的空间.笔者在这里给 ...
网站实时简繁转换解决方案
最近由于工作需要做了一个将网站转成繁体呈现给用户的功能,后来参看了许多成功案例,发现思路大体都是相同的,我现在将我具体的实现拿出来讨论一下,因为它不可能是一个百分百覆盖的功能,所以希望大家能多提意见. ...
SQL Server:简繁转换
代码 --全部的简繁对照 declare @jall nvarchar(4000),@fall nvarchar(4000) select @jall=N'啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸 ...
java utf8 简繁转换类库_在Java中进行中文繁体简体转换，基于OpenCC（Open Chinese Convert）方案...
一.OpenCC介绍 OpenCC (Open Chinese Convert,开放中文转换) 是一个用于中文简繁转换的开源项目,支持词汇级别的转换.异体字转换和地区习惯用词转换(中国大陆.台湾.香港 ...
gb2312简繁转换js兼容各种浏览器
HTML 代码: 1 <! DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http: ...

简繁转换的VBS代码

简繁转换的VBS代码相关推荐

最新文章

热门文章