Microsoft Office Forums - View Single Post - [Solved] Deleting lines above selected text

fumei · 11-02-2013, 08:55 PM

One way (there are alternatives) would be:

Code:

Sub RemoveAboveBX()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
   If InStr(oPara.Range.Text, "BX") > 0 Then
      oPara.Previous.Range.Delete
   End If
Next
End Sub