Sub Test()

Dim oRng As range
Dim vWd As Variant
 Dim vHi As Variant

    Set oRng = ActiveDocument.range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = "width=^#^#^#"
        .Replacement.text = ""
        .MatchWildcards = False
        .Forward = True
        .Wrap = wdFindStop
        If .Execute Then vWd = oRng
    End With

    Set oRng = ActiveDocument.range
    With oRng.Find
        .text = "height=^#^#^#"
        If .Execute Then vHi = oRng
    End With

    With ActiveDocument.range.Find
        .text = "\<" & "img width" & "*" & "\>\<"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
MsgBox vWd & vbCr & vHi
lbl_Exit:
Set oRng = Nothing
End Sub