Sub Test()

Dim oRng As range
Dim oRngD As range
Dim oRngDD As range
Dim vWd As Variant
Dim vHi As Variant
  
    Set oRng = ActiveDocument.range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = "\<img width*\>"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        If .Execute Then
            Set oRngD = oRng.Duplicate
            Set oRngDD = oRng.Duplicate
            .text = "width=" & "[0-9]@ "
            .MatchWildcards = True
             If .Execute Then vWd = oRng
            With oRngD.Find
                .text = "height=" & "[0-9]@ "
                .MatchWildcards = True
                If .Execute Then  vHi = oRng
            End With
        End If
    End With
    oRngDD.Delete
MsgBox "'" & vWd & "'" & vbCr & "'" & vHi & "'"
lbl_Exit:
Set oRng = Nothing
Set oRngD = Nothing
Set oRngDD = Nothing
 End Sub