如何作繁簡字體轉換

出自VFP Wiki

在2006年11月15日 (三) 08:30的最新修訂版本

用Word

繁簡字體轉換 ( 透過 Word 物件 )

Procedure TranslateTS
    lparameter strData
    local objWord
    local strResult
    objWord = CreateObject("Word.Document")
    with objWord
        .Content = strData
        .Range.TCSCConverter bytOption, True, True
        strResult = .Content
        .Close False
    EndWith
    return strResult
endproc