поиск строк содержащих символы

[shanemac51]

забыла звездочку

Sub X_Z_A0_A360()
Dim numpar As Paragraph
open "c:\temp\f_x_z_a0_a360.doc" for output as #1
    For Each numpar In Documents(1).Paragraphs
        if numpar.Range.Text like "*X*Z*A0*A360*" Then 
       print #1,numpar.Range.Text ;
        endif
    Next
    close #1
End Sub