Hi

I would like to have a macro to find a particular style(A) and copy that
row. Once it finds all the "A" styles, it should copy all the rows to the
clipboard and open a new document and paste the clipboard contents.  Here is
part of the pseudocode:

      Jim
     History
    Fall
    A

      Great student

      Alice
     Art
     Spring
    B
    Loves to learn

     Allen  Science
    Fall
    A

      Zestful Student

      Steve
     Art
     Spring
    C
    Needs more work

Sub stylereport()

Dim oPara As Paragraph
For Each oPara In ActiveDocument.Range.Paragraphs
 Select Case oPara.Style
    Case Is = "A"
    SELECT ROWS WITH STYLE "A"
    Case Else
     'Do nothing
 End Select
Next oPara
OPEN NEW DOCUMENT
COPY ROWS OF STYLE "A"
End Sub

New document should have the following results:
        Jim
     History
    Fall
    A

      Great student

     Allen  Science
    Fall
    A

      Zestful Student

Thanks