要把所有的简体帮助文档转成繁体的,你会怎么做?
本来自己写个简繁转换的东东,想来想去比较麻烦,后来发现Word中集成简繁转换功能,于是拿来使用,有了下面这个类
'************************************************************
'版权所有: qjwxsd workroom(flydream)
'************************************************************
'类名称 : CConversion -- @@@类
'目的描述: @@@
'注意 : 无
'我引用谁 -> 无
'谁引用我 <- 无
'撰写人 : qjwxsd
'建立日期 : 2006-07-09 上午 12:37:58 Sunday
'修改历史 : 无
'************************************************************
''<API 宣告,API 常数>
''<接口,事件,类型,枚举类型,常数>
''<数据库变量>
''<对象变量>
''<一般变量>
Public Function Convert(sFileName As String, sNewPath As String) As Boolean
Dim a As Word.Application
On Error GoTo errTrap
Set a = GetObject(, "Word.Application")
If a Is Nothing Then
Set a = CreateObject("Word.Application")
End If
a.Documents.Open sFileName
a.Visible = True
a.Activate '前台显示Word窗体
a.Selection.WholeStory
a.Selection.Range.TCSCConverter wdTCSCConverterDirectionSCTC, True, True
'* 保存更改后的
'ChangeFileOpenDirectory sNewPath
Dim sFile As String
Dim sExt() As String
sExt = Split(sFileName, "/")
sFile = sExt(UBound(sExt))
'a.ChangeFileOpenDirectory sNewPath & "/"
'* 这个以后再实现吧,选直接保存.
' ActiveDocument.SaveAs sFileName, _
' wdFormatHTML, False, "", True, _
' "", False, False, _
' False, False, _
' False
ActiveDocument.Save
a.ActiveDocument.Close
'Set a = Nothing
Convert = True
Exit Function
errTrap:
Convert = False
Err.Clear
End Function
其中红色代码是值得注意的地方,使用Word的简繁,可能对HTML,TXT,DOC,等多种格式文档,相当的方便哦。