要把所有的简体帮助文档转成繁体的，你会怎么做？

本来自己写个简繁转换的东东，想来想去比较麻烦，后来发现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，等多种格式文档，相当的方便哦。

发表于 @ 2006年07月09日　00:48:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:从Excel 单元格定位到Word 文档中指定的位置带来的思考 | 新一篇:My new place