請教各位老師: Visio文件 在 VFP程序下 繁体中文转简体中文问题,谢谢!!

Question

      在VISIO做的流程圖,因為VISIO本身沒有繁轉簡的功能,只能將流程圖文本框內的中文字COPY出來,在WORD文檔轉為簡體,再COPY回去,一個字:煩...

     按WORD文檔轉繁為簡的方法,卻是失敗!!在此,請教各位老師,能否在VFP程序下將VISIO文檔 轉繁為簡,非常感謝!

*嚐試寫的VFP9.0程序代碼
      
*1)設定對象
            public oVisio
            oVisio=Createobject("Visio.Application")   
 
*2)打開Visio文檔

     ovsd=oVisio.Documents.Open("D:\流程圖\生產流程圖.vsd")
      oVisio.Visible=.F. &&不顯示文檔

      *下句不能實現

     oVisio.VisioBasic.ToolsTCSCTranslate(0,0,0)  && 繁轉簡
      *上句出錯附圖
 

 

Answer 1

上面是简转繁

需要修改成

oWord.WordBasic.ToolsSCTCTranslate(0,0,0)

oWord.WordBasic.ToolsTCSCTranslate(0,0,0)