Hi Marty

Word has only the haziest notion of what a "line" is. Are these "lines"
actually paragraphs? If so, then the following should work. Make a backup of
your document before you start, just in case.

Option Explicit

Sub RemoveXXXXX()
'Finds paragraphs starting with particular
'text and deletes the contents of the paragraph

'Change the following line to change the
'text to search for
Const csTextToFind As String = "xxxxxxxx"

Dim oPara As Word.Paragraph
Dim rngDelete As Word.Range

For Each oPara In ActiveDocument.Paragraphs
   With oPara
       If .Range.Text Like csTextToFind & "*" Then
           Set rngDelete = oPara.Range
           rngDelete.MoveEnd wdCharacter, -1
           rngDelete.Delete
       End If
   End With
Next oPara

End Sub

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word

Use

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
   Do While .Execute(FindText:="[x]{3,}", MatchWildcards:=True, _
       MatchCase:=False, Wrap:=wdFindStop, Forward:=True) = True
       Selection.Bookmarks("\line").Range.Text = vbCr
   Loop
End With