Word 8 REVISION find in second window 8 36951 REVISION

Hello from Steve

Objective

Window 1 has 8 REVISION

Window 2 has 8 36951 REVISION

Is it possible please from Window 1 8 REVISION to find in Window 2 8 36951 REVISION

Sub Testing2()

Dim i As Integer

Dim blnFound As Boolean

Dim strText As String

' First window: find pattern with wildcards

With Selection.Find

    .ClearFormatting

    .Text = "[0-9]{1,} [A-Z]{1,}"

    .Replacement.ClearFormatting

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchAllWordForms = False

    .MatchSoundsLike = False

    .MatchWildcards = True

    blnFound = .Execute

End With

If Not blnFound Then

    MsgBox "No match found in Window 1.", vbExclamation

    Exit Sub

End If

' Optional: update fields in the found selection

Selection.Fields.Update

' Capture the found text

strText = Selection.Text

' Collapse selection so next operations start at beginning of match

Selection.Collapse Direction:=wdCollapseStart

' Activate second window and search for the same text

Windows(2).Activate

With Selection.Find

    .ClearFormatting

    .Text = strText

    .Replacement.ClearFormatting

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchCase = True

    .MatchWholeWord = True

    .MatchAllWordForms = False

    .MatchSoundsLike = False

    .MatchWildcards = False

    ' Find the 1st and 2nd occurrence

    For i = 1 To 2

        blnFound = .Execute

        If Not blnFound Then

            MsgBox "Occurrence " & i & " was not found in Window 2!", vbExclamation

            Exit Sub

        End If

    Next i

End With

' Copy the entire line of the 2nd occurrence

Selection.HomeKey Unit:=wdLine

Selection.Extend

Selection.EndKey Unit:=wdLine

Selection.Copy

MsgBox "The 2nd occurrence has been copied successfully!", vbInformation
```End Sub