Выделите числа в пределах указанной c строки

Question

Я совершенно новичок в этом, полезный код, который я нашел здесь. Запросите небольшую модификацию в соответствии с моими требованиями. на самом деле я sh, чтобы выделить строку в текстовом документе и закрыть ее, но не знаю, как это сделать? Пожалуйста, помогите ....

 Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim startt As String
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\......")

    Dim i As Long

'For i = 1 To 6
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    startt = Range("A" & i).Value

    Set rng1 = wrdDoc.Range
    If rng1.Find.Execute(FindText:=startt) Then
        Set rng2 = wrdDoc.Range(rng1.End, wrdDoc.Range.End)
        If rng2.Find.Execute(FindText:="=") Then
            strTheText = wrdDoc.Range(rng1.End, rng2.Start).Text
           ' MsgBox strTheText
            Sheet1.Range("F" & i).Value = startt & " " & strTheText
        End If
    End If
    Next i
   '

End Sub