本人用繁体中文做文件,但每次均要转成简体给同事用,为简化工作,想到用VFP写个小程序来代替,在WORD下,录制了繁转简的宏代码,但在VFP程序引用,提示’语法错误’,恳请各位大神帮忙,不胜感激!!


      *2018-07-08

*在WORD錄制的宏代碼

Sub 宏99()
'
' 宏99
' 繁體中文轉成簡體中文
'
    WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
End Sub

*以下為在VFP6.0下寫的小程序

    *1設定對象
     public oWord
     oWord=Createobject("Word.Application")      
      
    *2打開文檔
    oDoc=oWord.Documents.Open("D:\9001\word-all\12.docx")
    oWord.Visible=.f. &&不顯示文檔
 
  *3轉繁體中文為簡體中文      
oWord.WordBasic.ToolsTCSCTranslate Direction:=0,Varients:=0,TranslateCommon:=0

    *上句(oWord....)會提示: ‘語法錯誤’ /2018-07-08

    oWord.Visible=.T. &&顯示文檔

 *4存檔,退出        
                oDoc.save
                oDoc.Close
                oWord.Quit      
 
     *2018-07-08

VFP 愛用者社區
http://vfp.
到这里搜索下，应该有你需要的内容。

* 以下為在VFP6.0下寫的小程序

* 1.設定對象
PUBLIC oWord
oWord=Createobject("Word.Application")      

* 2.打開文檔
oDoc=oWord.Documents.Open("E:\信用卡管理\zhuan.docx")
oWord.Visible=.f. &&不顯示文檔
 
* 3.轉繁體中文為簡體中文      
oWord.WordBasic.ToolsTCSCTranslate(0,0,0)  && 繁转简
* oWord.WordBasic.ToolsSCTCTranslate(0,0,0)  && 简转繁
oWord.Visible=.T. &&顯示文檔

* 4.存檔,退出        
* oDoc.save
* oDoc.Close
* oWord.Quit

直接调用宏也可以

用API模拟函数
DECLARE LONG LCMapString IN Kernel32 LONG, LONG, STRING, LONG, STRING@, LONG
? "臺灣-->",ToolsTCSCTranslate("臺灣")
? "台湾-->",ToolsSCTCTranslate("台湾")

FUNCTION ToolsTCSCTranslate(cSource)
    LOCAL nLen
    nLen = LEN(cSource)
    cDest = SPACE(nLen)
    LCMapString(0x800, 0x2000000, @cSource, nLen, @cDest, nLen)
    RETURN cDest
ENDFUNC

FUNCTION ToolsSCTCTranslate(cSource)
    LOCAL nLen
    nLen = LEN(cSource)
    cDest = SPACE(nLen)
    LCMapString(0x800, 0x4000000, @cSource, nLen, @cDest, nLen)
    RETURN cDest
ENDFUNC

     非常感謝各位版主/大神們的指教,幫助!!!
     謝謝!!!

我的疑問已圓滿解決,再次感謝各位版主的幫助,謝謝!!!