Add Parsing Strings Form Capiton

Add Parsing Strings Form Capiton

Author: vbatools

Addin_MacroTools.xlsb

@@ -14,7 +14,7 @@ Option Explicit
 5:    Set frm = New AddEditCode
 6:    With frm
 7:        .Caption = "ÑÎÇÄÀÒÜ SNIPPET:"
-8:        .lbOK.Caption = "ÑÎÇÄÀÒÜ"
+8:        .lbOk.Caption = "ÑÎÇÄÀÒÜ"
 9:        .txtRow = X + 1
 10:        .Show
 11:    End With
@@ -32,7 +32,7 @@ Option Explicit
 23:    Set snippets = SHSNIPPETS.ListObjects(C_Const.TB_SNIPPETS)
 24:    With frm
 25:        .Caption = "ÈÇÌÅÍÈÒÜ SNIPPET:"
-26:        .lbOK.Caption = "ÈÇÌÅÍÈÒÜ"
+26:        .lbOk.Caption = "ÈÇÌÅÍÈÒÜ"
 27:        st = Split(snippets.ListColumns(3).Range(X, 1), ".")
 28:        .cmbENUM.Style = fmStyleDropDownCombo
 29:        .cmbENUM.Text = st(0)

scripts/Modules/G_AddCodeViewForm.bas

@@ -14,15 +14,15 @@ Public Sub AddShapeStatistic()
 5:    Dim fForm  As AddStatistic
 6:    Dim wb_name As String, macro_name As String
 7:    Dim shp    As Shape
-8:    Dim sh     As Worksheet
+8:    Dim SH     As Worksheet
 9:    Dim i      As Integer
 10:    Const SH_SHAPE As String = "Ñòàòèñòèêà_shape"
 11:
 12:    On Error GoTo errmsg
 13:
 14:    Set fForm = New AddStatistic
 15:    With fForm
-16:        .lbOK.Caption = "ÑÎÇÄÀÒÜ"
+16:        .lbOk.Caption = "ÑÎÇÄÀÒÜ"
 17:        .Show
 18:        wb_name = .cmbMain.Value
 19:        If wb_name = vbNullString Then Exit Sub
@@ -36,10 +36,10 @@ Public Sub AddShapeStatistic()
 27:        .Cells(1, 3).Value = "Òåêñò ôèãóðû"
 28:        .Cells(1, 4).Value = "Èìÿ ìàêðîñà"
 29:        i = 1
-30:        For Each sh In Workbooks(wb_name).Worksheets
-31:            For Each shp In sh.Shapes
+30:        For Each SH In Workbooks(wb_name).Worksheets
+31:            For Each shp In SH.Shapes
 32:                i = i + 1
-33:                .Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=sh.Name & "!A1", TextToDisplay:=sh.Name
+33:                .Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=SH.Name & "!A1", TextToDisplay:=SH.Name
 34:                .Cells(i, 2).Value = shp.Name
 35:
 36:                Select Case shp.Type

scripts/Modules/I_StatisticShape.bas

@@ -18,7 +18,7 @@ Option Private Module
 10:    Set Form = New AddStatistic
 11:    With Form
 12:        .Caption = "Îáôóñöèðîâàíèå êîäà:"
-13:        .lbOK.Caption = "ÎÁÔÓÖÈÐÎÂÀÒÜ"
+13:        .lbOk.Caption = "ÎÁÔÓÖÈÐÎÂÀÒÜ"
 14:        .chQuestion.visible = True
 15:        .chQuestion.Value = True
 16:        .Show

scripts/Modules/N_ObfMainNew.bas

@@ -34,7 +34,7 @@ End Type
 33:    Set Form = New AddStatistic
 34:    With Form
 35:        .Caption = "Ñáîð äàííûõ êîäîâîé áàçû:"
-36:        .lbOK.Caption = "Ïàðñèòü êîä"
+36:        .lbOk.Caption = "Ïàðñèòü êîä"
 37:        .chQuestion.visible = True
 38:        .chQuestion.Value = True
 39:        .chQuestion.Caption = "Ñîáèðàòü ñòðîêîâûå çíà÷åíèÿ?"

scripts/Modules/N_ObfParserVBA.bas

@@ -37,20 +37,20 @@ errmsg:
 28:
 29:    Application.ScreenUpdating = False    ' îòêëþ÷àåì îáíîâëåíèå ýêðàíà
 30:    ' ñîçäà¸ì íîâóþ êíèãó
-31:    Dim sh     As Worksheet: Set sh = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
+31:    Dim SH     As Worksheet: Set SH = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
 32:    ' ôîðìèðóåì çàãîëîâêè òàáëèöû
-33:    With sh.Range("a1").Resize(, 5)
+33:    With SH.Range("a1").Resize(, 5)
 34:        .Value = Array("¹", "Èìÿ ôàéëà", "Ïîëíûé ïóòü", "Ðàçìåð ôàéëà", "Ðàñøèðåíèå ôàéëà")
 35:        .Font.Bold = True: .Interior.ColorIndex = 17
 36:    End With
 37:
 38:    ' âûâîäèì ðåçóëüòàòû íà ëèñò
 39:    For i = 1 To coll.Count    ' ïåðåáèðàåì âñå ýëåìåíòû êîëëåêöèè, ñîäåðæàùåé ïóòè ê ôàéëàì
-40:        sh.Range("a" & sh.Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value = _
+40:        SH.Range("a" & SH.Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value = _
                       Array(i, C_PublicFunctions.sGetFileName(coll(i)), coll(i), C_PublicFunctions.FileSize(coll(i)), C_PublicFunctions.sGetExtensionName(coll(i)))    ' âûâîäèì íà ëèñò î÷åðåäíóþ ñòðîêó
 42:        DoEvents    ' âðåìåííî ïåðåäà¸ì óïðàâëåíèå ÎÑ
 43:    Next
-44:    sh.Range("a:e").EntireColumn.AutoFit    ' àâòîïîäáîð øèðèíû ñòîëáöîâ
+44:    SH.Range("a:e").EntireColumn.AutoFit    ' àâòîïîäáîð øèðèíû ñòîëáöîâ
 45:    [a2].Activate: ActiveWindow.FreezePanes = True    ' çàêðåïëÿåì ïåðâóþ ñòðîêó ëèñòà
 46:    Application.ScreenUpdating = True    ' îòêëþ÷àåì îáíîâëåíèå ýêðàíà
 47:    Exit Sub