如何作繁簡字體轉換

[[category:VFPFAQ]]

====用Word====
[http://blog.blueshop.com.tw/hammerchou/archive/2006/06/21/30014.aspx 繁簡字體轉換 ( 透過 Word 物件 )]
<pre>
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 
</pre>