在VISIO做的流程圖,因為VISIO本身沒有繁轉簡的功能,只能將流程圖文本框內的中文字COPY出來,在WORD文檔轉為簡體,再COPY回去,一個字:煩...
    上次得版主的指點,在VFP程序下用代碼成功將WORD文檔轉繁為簡,遂依樣畫葫蘆,點知卻是失敗!!在此,再請版主幫助,看能否在VFP程序下將VISIO文檔繁為簡,非常感謝!



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

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

      *下句不能實現

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



    期望各位大神指教,謝謝!!!

估计朋友来自　港澳台
所以用繁字。
我从来只用简化字。所以不能帮助啊。。。

*感謝感謝!!(其實我是廣東人氏,只是一直用繁體中文,不會用簡體中文,汗顏!!!)

可以参考前几天类似的贴：
https://bbs.bccn.net/viewthread.php?tid=488460&extra=page%3D1%26amp%3Bfilter%3D0%26amp%3Borderby%3Dlastpost%26amp%3Bascdesc%3DDESC

謝謝版主指點,我參考下!!

VFP 愛用者社區(此社區大都是用繁體字) 也搜索過了,沒有相似的需求

[此贴子已经被作者于2018-7-16 16:24编辑过]

放张流程图上来，别人好调用调试。试一试直接用宏来改字体。

感謝提醒,即放,謝謝!