All you need do is modify the TOC Styles. No code or looping required. See, for example:
http://www.msofficeforums.com/word/1...html#post52345