translate to ENG

Author: vbatools

Addin_MacroTools_ENG.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_RUS.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 = "The procedure name is not set"
+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
+

scripts/Class_Modules/CTextBox_ContextMenu.cls

@@ -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 "Mistake! in EvtHandler_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/LogRecorder.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 "There is 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 "There is 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 "The VBA code is not highlighted"
 56:        Exit Sub
 57:    End If
 58:

scripts/Class_Modules/VBECommandHandler.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 "There is 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 "There is no active VBA code module"
 50:      Exit Sub
 51:   End If
 52:

scripts/Modules/AA_SwapEgual.bas

@@ -33,15 +33,15 @@ Option Explicit
 32:    On Error GoTo ErrorHandler
 33:    If VBAIsTrusted Then
 34:        Workbooks(C_Const.NAME_ADDIN & ".xlam").Sheets(C_Const.SH_SNIPPETS).Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
-35:        Call MsgBox("Âûãðóçêà áàçû êîäà ïðîèçâåäåíà", vbInformation, "Âûãðóçêà áàçû êîäà:")
+35:        Call MsgBox("The code base has been unloaded", vbInformation, "Unloading the code base:")
 36:    End If
 37:    Exit Sub
 ErrorHandler:
 39:    Select Case Err.Number
         Case 91:
-41:            Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+41:            Call MsgBox("No open" & Chr(34) & "Excel Files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Mistake:")
 42:        Case Else:
-43:            Call MsgBox("Îøèáêà! â ImportCodeBaseBtn" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "â ñòðîêå " & Erl, vbOKOnly + vbExclamation, "Îøèáêà:")
+43:            Call MsgBox("Mistake! in ImportCodeBaseBtn" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "in the line" & Erl, vbOKOnly + vbExclamation, "Mistake:")
 44:            Call WriteErrorLog("ImportCodeBaseBtn")
 45:    End Select
 46:    Err.Clear
@@ -65,7 +65,7 @@ ErrorHandler:
 64:    Exit Sub
 ErrorHandler:
 66:    Err.Clear
-67:    Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+67:    Call MsgBox("No open" & Chr(34) & "Excel Files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Mistake:")
 68: End Sub
     Private Sub VBABtn(ByRef control As IRibbonControl)
 70:    Call VBAVBEOpen
@@ -106,9 +106,9 @@ ErrorHandler:
 ErrorHandler:
 106:    Select Case Err.Number
         Case 91:
-108:            Call MsgBox("Íåò îòêðûòûõ " & Chr(34) & "Ôàéëîâ Excel" & Chr(34) & "!", vbOKOnly + vbExclamation, "Îøèáêà:")
+108:            Call MsgBox("No open" & Chr(34) & "Excel Files" & Chr(34) & "!", vbOKOnly + vbExclamation, "Mistake:")
 109:        Case Else:
-110:            Call MsgBox("Îøèáêà! â onUnUnProtectSheets" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "â ñòðîêå " & Erl, vbOKOnly + vbExclamation, "Îøèáêà:")
+110:            Call MsgBox("Mistake! in onUnUnProtectSheets" & vbLf & Err.Number & vbLf & Err.Description & vbCrLf & "in the line" & Erl, vbOKOnly + vbExclamation, "Mistake:")
 111:            Call WriteErrorLog("onUnUnProtectSheets")
 112:    End Select
 113:    Err.Clear