| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
免费IT实战开发视频教程合集分享千里之行 始于足下
共有 402 人关注过本帖
标题:求助: 繁体中文转简体中文VFP代码错误,恳求帮助修正,谢谢!
只看楼主 加入收藏
ken3238
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-5
结帖率:100%
  已结贴   问题点数:20  回复次数:6   
求助: 繁体中文转简体中文VFP代码错误,恳求帮助修正,谢谢!
     本人用繁体中文做文件,但每次均要转成简体给同事用,为简化工作,想到用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


2018-07-08 10:35
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:170
帖 子:7401
专家分:17490
注 册:2012-2-5
  得分:5 
VFP 愛用者社區
http://vfp.sunyear.com.tw/search.php?mode=results&sid=0a938d7786bc4deb487c771d54ddc279
到这里搜索下,应该有你需要的内容。

坚守VFP最后的阵地
2018-07-08 12:08
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:86
帖 子:2576
专家分:6316
注 册:2015-3-25
  得分:5 
* 以下為在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
2018-07-08 12:17
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:30
帖 子:317
专家分:772
注 册:2010-1-11
  得分:5 
直接调用宏也可以
2018-07-08 12:41
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:163
帖 子:6321
专家分:27654
注 册:2014-5-20
  得分:5 
用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
2018-07-08 15:52
ken3238
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-5
  得分:0 
     非常感謝各位版主/大神們的指教,幫助!!!
     謝謝!!!
2018-07-08 16:32
ken3238
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-5
  得分:0 
我的疑問已圓滿解決,再次感謝各位版主的幫助,謝謝!!!
2018-07-09 09:17







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020755 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved