add english version

Author: vbatools

Addin_MacroTools.xlsb

@@ -42,17 +42,17 @@ Private m_objParent As Object
 21:    Set cbrTemp = Application.CommandBars.Add(mEDIT_CONTEXTMENU_NAME, Position:=msoBarPopup)
 22:    With cbrTemp
 23:        With .Controls.Add(msoControlButton)
-24:            .Caption = "ÓÄÀËÈÒÜ"
+24:            .Caption = "DELETE"
 25:            .FaceId = CUT_MENUID
 26:            .Tag = mCUT_TAG
 27:        End With
 28:        With .Controls.Add(msoControlButton)
-29:            .Caption = "ÑÎÇÄÀÒÜ"
+29:            .Caption = "TO CREATE"
 30:            .FaceId = COPY_MENUID
 31:            .Tag = mCOPY_TAG
 32:        End With
 33:        With .Controls.Add(msoControlButton)
-34:            .Caption = "ÈÇÌÅÍÈÒÜ"
+34:            .Caption = "TO CHANGE"
 35:            .FaceId = PASTE_MENUID
 36:            .Tag = mPASTE_TAG
 37:        End With

Addin_MacroTools_ENG.xlsb

@@ -44,18 +44,18 @@ Public LogSeparator As String
 
     Public Sub WriteErrorLog(Optional ByVal sNameFunction As String = vbNullString)
 29:    Dim Txt    As String
-30:    If sNameFunction = vbNullString Then sNameFunction = "Èìÿ ïðöåäóðû íå çàäàíî"
-31:    Txt = String(2, vbNewLine) & "Íàçâàíèå ôóíêöèè/ïðîöåäóðû: " & sNameFunction & vbNewLine
-32:    Txt = Txt & "Íîìåð îøèáêè: " & Err.Number & vbNewLine
-33:    Txt = Txt & "Íîìåð ñòðîêè: " & Erl
-34:    Call AddRecord(Txt, vbTab & vbTab & "Îïèñàíèå: " & Err.Description, 0, LOG_SEPARATOR_BEFORE_AND_AFTER, True)
+30:    If sNameFunction = vbNullString Then sNameFunction = "Procedure name not specified"
+31:    Txt = String(2, vbNewLine) & "Function/procedure name:" & sNameFunction & vbNewLine
+32:    Txt = Txt & "Error number:" & Err.Number & vbNewLine
+33:    Txt = Txt & "Line number:" & Erl
+34:    Call AddRecord(Txt, vbTab & vbTab & "Description:" & Err.Description, 0, LOG_SEPARATOR_BEFORE_AND_AFTER, True)
 35: End Sub
 
     Public Sub SaveLog()
 38:    If AddIntoTXTfile(LogFileFullName, Buffer) Then
 39:        Buffer = Empty
 40:    Else
-41:        Debug.Print "Îøèáêà çàïèñè ëîãà â ôàéë " & LogFileFullName
+41:        Debug.Print "Error writing the log to the file" & LogFileFullName
 42:    End If
 43: End Sub
 
@@ -156,3 +156,4 @@ Public LogSeparator As String
 139:    Set ts = Nothing: Set FSO = Nothing
 140:    AddIntoTXTfile = Err = 0
 141: End Function
+

Addin_MacroTools_RUS.xlsb

@@ -25,7 +25,7 @@ Private Sub EvtHandler_Click(ByVal Ctrl As CommandBarButton, CancelDefault As Bo
 16:    Exit Sub
 ErrorHandler:
 18:    If Err.Number <> 0 Then
-19:        Debug.Print "Îøèáêà! â EvtHandler_Click" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "â ñòðîêå " & Erl
+19:        Debug.Print "Error in Eventhandler_Click" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "in the line" & Erl
 20:        Call WriteErrorLog("EvtHandler_Click")
 21:        Err.Clear
 22:        Resume Next

scripts/Class_Modules/CTextBox_ContextMenu.cls

@@ -38,14 +38,14 @@ Option Private Module
 36:    Set prjProject = Application.VBE.ActiveVBProject
 37:
 38:    If prjProject Is Nothing Then
-39:        Debug.Print "Íåò àêòèâíîãî ïðîåêòà VBA"
+39:        Debug.Print "No active VBA project"
 40:        Exit Sub
 41:    End If
 42:
 43:    Set cpCodePane = Application.VBE.ActiveCodePane
 44:
 45:    If cpCodePane Is Nothing Then
-46:        Debug.Print "Íåò àêòèâíîãî ìîäóëÿ êîäà VBA"
+46:        Debug.Print "No active VBA code module"
 47:        Exit Sub
 48:    End If
 49:
@@ -54,7 +54,7 @@ Option Private Module
 52:    sCode = cpCodePane.CodeModule.Lines(nStartLine, IIf(nEndline - nStartLine = 0, 1, nEndline - nStartLine))
 53:
 54:    If (sCode = vbNullString) Then
-55:        Debug.Print "Êîä VBA íå âûäåëåí"
+55:        Debug.Print "VBA code is not allocated"
 56:        Exit Sub
 57:    End If
 58:

scripts/Class_Modules/LogRecorder.cls

@@ -31,7 +31,7 @@ Const ProcNoUnderscore = "1"
 29:   Dim nI               As Integer
 30:   Dim nIndex           As Integer
 31:
-32:   If MsgBox("Îòñîðòèðîâàòü ïðîöåäóðû è ôóíêöèè ïî àëôàâèòó?", vbQuestion + vbYesNo + vbDefaultButton1, "Ñîðòèðîâêà:") = vbNo Then
+32:   If MsgBox("Sort procedures and functions alphabetically?", vbQuestion + vbYesNo + vbDefaultButton1, "Sorting:") = vbNo Then
 33:      Exit Sub
 34:   End If
 35:
@@ -41,14 +41,14 @@ Const ProcNoUnderscore = "1"
 39:   ReDim CollectedKeys(0) As String
 40:
 41:   If Application.VBE.ActiveVBProject Is Nothing Then
-42:      Debug.Print "Íåò àêòèâíîãî ïðîåêòà VBA"
+42:      Debug.Print "No active VBA project"
 43:      Exit Sub
 44:   End If
 45:
 46:   Set cpCodePane = Application.VBE.ActiveCodePane
 47:
 48:   If cpCodePane Is Nothing Then
-49:      Debug.Print "Íåò àêòèâíîãî ìîäóëÿ êîäà VBA"
+49:      Debug.Print "No active VBA code module"
 50:      Exit Sub
 51:   End If
 52:

scripts/Class_Modules/VBECommandHandler.cls

@@ -36,17 +36,17 @@ Option Explicit
 35:    On Error GoTo ErrorHandler
 36:    If VBAIsTrusted Then
 37:        Workbooks(C_Const.NAME_ADDIN & ".xlam").Sheets(C_Const.SH_SNIPPETS).Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
-38:        Call MsgBox("Âûãðóçêà áàçû êîäà ïðîèçâåäåíà", vbInformation, "Âûãðóçêà áàçû êîäà:")
+38:        Call MsgBox("The code base has been uploaded", vbInformation, "Code Base Upload:")
 39:    Else
 40:        Call MsgBox(C_Const.sMSGVBA1, vbCritical, C_Const.sMSGVBA2)
 41:    End If
 42:    Exit Sub
 ErrorHandler:
 44:    Select Case Err.Number
         Case 91:
-46:            Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+46:            Call MsgBox("No open files" & Chr(34) & "Excel files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Error:")
 47:        Case Else:
-48:            Call MsgBox("Îøèáêà! â ImportCodeBaseBtn" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "â ñòðîêå " & Erl, vbOKOnly + vbExclamation, "Îøèáêà:")
+48:            Call MsgBox("Error in ImportCodeBaseBtn" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "in the line" & Erl, vbOKOnly + vbExclamation, "Error:")
 49:            Call WriteErrorLog("ImportCodeBaseBtn")
 50:    End Select
 51:    Err.Clear
@@ -74,7 +74,7 @@ ErrorHandler:
 73:    Exit Sub
 ErrorHandler:
 75:    Err.Clear
-76:    Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+76:    Call MsgBox("No open files" & Chr(34) & "Excel files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Error:")
 77: End Sub
     Private Sub VBABtn(ByRef control As IRibbonControl)
 79:    Call VBAVBEOpen
@@ -115,9 +115,9 @@ ErrorHandler:
 ErrorHandler:
 115:    Select Case Err.Number
         Case 91:
-117:            Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+117:            Call MsgBox("No open files" & Chr(34) & "Excel files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Error:")
 118:        Case Else:
-119:            Call MsgBox("Îøèáêà! â onUnUnProtectSheets" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "â ñòðîêå " & Erl, vbOKOnly + vbExclamation, "Îøèáêà:")
+119:            Call MsgBox("Error in onUnProtectSheets" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "in the line" & Erl, vbOKOnly + vbExclamation, "Error:")
 120:            Call WriteErrorLog("onUnUnProtectSheets")
 121:    End Select
 122:    Err.Clear
@@ -199,19 +199,19 @@ ErrorHandler:
 198:    Call RegExpTemplateManager.Show
 199: End Sub
      Private Sub onRegExpFunValNumber(control As IRibbonControl)
-201:    ActiveCell.FormulaR1C1 = "=ÐÅÃÂÛÐ_ÏÎËÓ×ÇÍÀ×ÏÎÍÎÌÅÐÓ()"
+201:    ActiveCell.FormulaR1C1 = "=REG_GetValueByNumber()"
 202:    Call FunctionWizardShowExc
 203: End Sub
      Private Sub onExpFunCount(control As IRibbonControl)
-205:    ActiveCell.FormulaR1C1 = "=ÐÅÃÂÛÐ_ÑרÒ()"
+205:    ActiveCell.FormulaR1C1 = "=REG_Count()"
 206:    Call FunctionWizardShowExc
 207: End Sub
      Private Sub onRegExpFunTest(control As IRibbonControl)
-209:    ActiveCell.FormulaR1C1 = "=ÐÅÃÂÛÐ_ÒÅÑÒ()"
+209:    ActiveCell.FormulaR1C1 = "=REG_Test()"
 210:    Call FunctionWizardShowExc
 211: End Sub
      Private Sub onRegExpFunReplace(control As IRibbonControl)
-213:    ActiveCell.FormulaR1C1 = "=ÐÅÃÂÛÐ_ÇÀÌÅÍÈÒÜ()"
+213:    ActiveCell.FormulaR1C1 = "=REG_Replace()"
 214:    Call FunctionWizardShowExc
 215: End Sub
      Private Sub FunctionWizardShowExc()