"Renjith" wrote in message
...
Hi

This is working!!! Thank you very much. But now the question asyou
mentioned below is how to differentiate between Bulletted and
Non-Bulletted
paragraphs. Any idea how to solve this problem??

Dim pPar as word.paragraph
For each pPar in Activedocument.Paragraphs
If not pPar.Range.ListFormat.ListTemplate is nothing then
... Bulleted
end if
Next