Sub Test()
    Dim objRange1 As IHTMLTxtRange
    Dim objRange2 As IHTMLTxtRange
    Dim blnFound1 As Boolean
    Dim blnFound2 As Boolean
    
    
    
    Set objRange1 = ActiveDocument.body.createTextRange
    blnFound1 = objRange1.findText("ODT Resistance Characterization")
    
    Set objRange2 = ActiveDocument.body.createTextRange
    blnFound2 = objRange2.findText("ODT Resistance Summary")
    
    If blnFound1 And blnFound2 Then
        objRange1.setEndPoint "EndToStart", objRange2
        
        ActiveWebWindow.PageWindows.Add
        ActiveDocument.body.innerHTML = objRange1.htmlText
    End If
End Sub