Michelle,

This is a quick hack.  It may need improving but it seems to work.  You
will need to add error handling to it for when it goes wrong.   But
basically it goes through each Paragraph object and checks to see if it's
the correct style and then has enough words to change and, if so, changes
it.

And then returns to cursor to where it was.  

Hope that this helps

- Malc
 www.dragondrop.com
 
 
 
Sub Test1()

 ConvertParagraphs "Normal", 1

End Sub

Sub test2()

 ConvertParagraphs "Data", 2

End Sub

Private Sub ConvertParagraphs(sStyle As String, nOmitNumberOfFirstWords As
Long)

 Dim oPara As Paragraph
 Dim nWords As Long
 
 Dim oSelection As Range
 
 ' Remember the selection poit
 Set oSelection = Selection.Range
 
 
 For Each oPara In ActiveDocument.Paragraphs
   If oPara.Style = sStyle Then
     nWords = oPara.Range.Words.Count
     If nWords > nOmitNumberOfFirstWords Then
       oPara.Range.Words(nOmitNumberOfFirstWords + 1).Select
       Selection.MoveDown wdParagraph, 1, wdExtend
       
       Selection.Range.Font.Bold = False
       Selection.Range.Font.Italic = False
       
     End If
   End If
 Next oPara

 ' Return the selection point
 oSelection.Select

End Sub

It might be a tad faster to work with a range rather than a selection.

Sub ScratchMacro
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
oRng.Collapse wdCollapseStart
Do
 With oRng
   .Expand wdParagraph
   Select Case .Style
   Case Is = "Style1"
     .MoveStart wdWord, 1
     .MoveEnd wdCharacter, -1
     .Font.Bold = False
     .Font.Italic = False
   Case Is = "Style2"
      .MoveStart wdWord, 2
      .MoveEnd wdCharacter, -1
      .Font.Bold = False
      .Font.Italic = False
   Case Else
     'Do nothing
  End Select
  .Move wdParagraph, 1
End With
Loop Until oRng.End = ActiveDocument.Range.End - 1
End Sub

My first answer assumed that the first two words of each list item
where not punctuation marks.  As Word counts punctuation marks as a
"word" then the following may be more accurate for your purposes:

Sub ScratchMacro()
Dim oRng As Word.Range
Dim i As Long
Set oRng = ActiveDocument.Content
oRng.Collapse wdCollapseStart
Do
 With oRng
   .Expand wdParagraph
   Select Case .Style
   Case Is = "Style1"
      i = 0
      Do Until i = 1
      If oRng.Characters(1) Like "[A-z]" Then
        i = i + 1
        .MoveStart wdWord, 1
      Else
        .MoveStart wdWord, 1
      End If
      Loop
     .MoveEnd wdCharacter, -1
     .Font.Bold = False
     .Font.Italic = False
   Case Is = "Style2"
      i = 0
      Do Until i = 2
      If oRng.Characters(1) Like "[A-z]" Then
        i = i + 1
        .MoveStart wdWord, 1
      Else
        .MoveStart wdWord, 1
      End If
      Loop
      .MoveEnd wdCharacter, -1
      .Font.Bold = False
      .Font.Italic = False
   Case Else
     'Do nothing
  End Select
  .Move wdParagraph, 1
End With
Loop Until oRng.End = ActiveDocument.Range.End - 1
End Sub