Sub findTest()
    Application.ScreenUpdating = False
    Dim firstTerm As String
    Dim secondTerm As String
    Dim myRange As Range
    Dim documentText As String

    Dim startPos As Long 'Stores the starting position of firstTerm
    Dim stopPos As Long 'Stores the starting position of secondTerm based on first term's location
    Dim nextPosition As Long 'The next position to search for the firstTerm
    Application.ScreenUpdating = False
    nextPosition = 1
    'Get all the document text and store it in a variable.
    Set myRange = ActiveDocument.Range

    documentText = myRange.Text
    i = 1
    With Selection.Find
    
        Do While .Execute(FindText:="ref[")
            Selection.HomeKey Unit:=wdStory
    'First and Second terms as defined by your example.  Obviously, this will have to be more dynamic
    'if you want to parse more than justpatientFirstname.
            firstTerm = "ref["
            secondTerm = "]ref"
            
            startPos = InStr(nextPosition, documentText, firstTerm, vbTextCompare)
            stopPos = InStr(startPos, documentText, secondTerm, vbTextCompare)
            myString = Mid$(documentText, startPos + Len(firstTerm), stopPos - startPos - Len(firstTerm))
            myString2 = "ref[" & myString & "]ref"
            nextPosition = InStr(stopPos, documentText, firstTerm, vbTextCompare)

    
            myRange.Find.Execute FindText:=myString2, ReplaceWith:="[" & i & "]", Replace:=wdReplaceAll
     
            i = i + 1
        Loop
    End With
    Application.ScreenUpdating = True
        
End Sub

Sub ReplaceText()
    Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Replacement.Text = ""
        Do While .Execute(FindText:="\[*\]", MatchWildcards:=True)
            .Execute FindText:="[[\] ]", MatchWildcards:=True, _
                ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindStop
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

 Sub procedure()
If range("A1").Value=1 Then
MsgBox("значение равно единице")
else
Exit Sub
End If
End Sub

Sub primer1()
Dim myPhrase As Variant, myCell As Range
myPhrase = myPhrase = Range("A7").Value
myPhrase = CDate(myPhrase)
Set myCell = Range("F8:F17").Find(myPhrase)

If Not myCell Is Nothing Then

MsgBox "Адрес: " & myCell.Address
Else
MsgBox "фраза не найдена"
End If
End Sub

Sub Number()

Workbooks.Open Filename:="C:\Users\1\Desktop\вставляем_номер.xlsx"
Workbooks("вставляем_номер.xlsx").Worksheets("Лист1").Cells(1, 26).Copy

Dim bookconst As Workbook
Dim oFile As Object
Dim oFolder As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = FSO.GetFolder("C:\Users\1\Desktop\вставить")
    For Each oFile In oFolder.Files
        ControlFile = ActiveWorkbook.Open
        ActiveWorkbook.Worksheets("Лист1").Cells("A26").Select
        ActiveSheet.Paste
        bookconst.Save
        bookconst.Close
    Next
End Sub

=РЯД("Верхний предел";'стандарт'!$A$24:$A$912;'стандарт'!$O$24:$O$912;6)

=РЯД("Верхний предел";ДВССЫЛ(AB&"!"&2)!$A$24:$A$912;ДВССЫЛ(AB&"!"&2)!$O$24:$O$912;6)

 =РЯД("Верхний предел";'стандарт'!$A$24:$A$912;'стандарт'!$O$24:$O$912;6)

Sub console_geo()
    FilePath = Sheets("sheet1").Cells(1, 1)
    Workbooks.Open Filename:=FilePath
End Sub

Sub console_geo()
FilePath = Sheets("sheet1").Cells(1, 1)
If Application.Windows().WindowState = xlMinimized Then Application.Windows().WindowState := xlMaximized
Else
Workbooks.Open Filename:=FilePath
End Sub