Shelley,


Try:
For Each oPar In ActiveDocument.Range.Paragraphs
If Not oPar.Range.Characters(1) Like ("[a-z1-9([]") Then
'Existing code
End If
Next

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/