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

freeffly

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

freeffly

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

freeffly

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

freeffly

回復 6# PD961A


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

freeffly

終於看到了
謝謝各位大大的幫忙
原來還要再使另外一個模組的程式碼
我很好奇我一開始貼的那一段程式碼好像沒做用
是不是?

freeffly

最近在使用這各東西不知道為什麼有時後檔案關掉在打開那各繁簡的圖案就不見
還要重新去勾選增益集
安裝時"信任存取Visual Basic 專案"沒打勾也可以過但是不能用
不知道是不是公司電腦的excel有問題