Bullets & Numbering in MS Word 2007 + VBA Handling

Hi

I am using MS Word 2007 in a web project. I have uploaded my word templates to a server and these word templates are loaded at run-time. I have added my custom list styles in all my templates but the issue is that I want that the same style should be followed by commencing text. In simpler form, I need VBA code which should pick the style of first list from my template and apply that style to the list created at runtime.

Kind Regards