返回列表 上一主題 發帖

[發問] (已解決)VBA簡體轉繁體

[發問] (已解決)VBA簡體轉繁體

本帖最後由 freeffly 於 2012-2-22 17:07 編輯

Option Explicit
Private WithEvents GB_CbE As CommandBarEvents
Private WithEvents Big5_CbE As CommandBarEvents
 
________________________________________
Private Sub Workbook_Open()
    CreateVBEMenu
End Sub
 
________________________________________
Private Sub Workbook_AddinInstall()
    Dim AI As AddIn, hWnd As Long
    On Error Resume Next
    hWnd = Application.VBE.MainWindow.hWnd
    If Err.Number = 1004 Then
        MsgBox "您的安全性設定不允許您執行此程序." _
                & vbCrLf & vbCrLf & "請更改安全性設定後重新執行:" _
                & vbCrLf & vbCrLf & " 1. 點選 工具 - 巨集 - 安全性." _
                & vbCrLf & " 2. 點選  '信任存取 Visual Basic 專案"
        On Error Resume Next
        For Each AI In Application.AddIns
            If AI.Name = ThisWorkbook.Name Then
                AI.Installed = False
                ThisWorkbook.Close False
            End If
        Next AI
    End If
End Sub
 
________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Application.VBE.CommandBars(2).Left = 0
End Sub
 
________________________________________
Sub CreateVBEMenu()
    Dim vcbr As CommandBar, vctl As CommandBarControl
    '如果 cmd_TCSC存在的話,刪除它
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Set vcbr = Application.VBE.CommandBars.Add(Name:="cmd_TCSC", _
            Position:=msoBarTop, temporary:=True)
    '新增Button
    vcbr.Visible = True
    vcbr.RowIndex = Application.VBE.CommandBars(2).RowIndex
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("TCSC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "繁轉簡"
        Set GB_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("SCTC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "簡轉繁"
        Set Big5_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
End Sub
 
________________________________________
Private Sub GB_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call BIG5_GB
End Sub
 
________________________________________
Private Sub Big5_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call GB_BIG5
End Sub




這個是在某個網站上看到的
可以用來轉換簡體的VBA變成繁體
我直接貼到程式碼中
可是會出現問題
有人知道怎麼使用這個嗎?
資料來源網址
http://chijanzen.net/wp/?p=358
字典兩各字 還真難理解

出問題的畫面詳附加檔
請問有人知道步驟嗎?
還是有什麼限制?

出問題的部分.rar (179.63 KB)

字典兩各字 還真難理解

TOP

出問題的畫面詳附加檔
請問有人知道步驟嗎?
還是有什麼限制?
freeffly 發表於 2010-7-24 19:25



    留意一下這裡, THISWORKBOOK的要放在THISWORKBOOK, MODULE1的放進MODULE1...
TSCC.JPG
2010-7-24 23:31
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

還是沒辦法耶
有人會將簡體的vba轉成繁體嗎

新增 Microsoft Word 文件.rar (85.15 KB)

字典兩各字 還真難理解

TOP

chijanzen已製作增益集放在該網址,你下載後在增益集中載入,vbe視窗內即多了繁簡轉換的按鈕,按一下即可轉換!

TOP

回復 4# freeffly


   
1.jpg
2010-7-26 13:52



H0077.rar (37.26 KB)

TOP

回復 6# PD961A


    我後來有看到
  我也照做可是一樣沒有那個按鈕
  難道還有什麼步驟要做嗎?
  我安裝了也打開那個增益集
也點選大大畫面上那個勾勾
真是失望怎麼大家都可以為什麼我試不出來
版本有差嗎?

沒有.rar (185.74 KB)

字典兩各字 還真難理解

TOP

[版主管理留言]
  • Hsieh(2010-7-29 20:05): 這是不一樣的增益集 一個是針對工作表文字 一個是針對VBE文字

回復 7# freeffly

H0077是2007
試改用H0067
http://chijanzen.net/wp/?p=142

TOP

回復 7# freeffly


   
未命名.png
2010-7-29 20:09
學海無涯_不恥下問

TOP

回復 9# Hsieh
    謝謝超級版主
只有看到適用於2003的版本沒注意到是針對工作表文字

Noname2.gif
2010-7-29 20:30


回復 7# freeffly不好意思
H0077的那篇文裡有MODULE的按鍵裡面有程式碼

Noname.gif
2010-7-29 20:30

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題