Need Macro to UnBold TOC

[Al]

My TOC is bold and I want it unbold.
All my Headings are Character Bold (from another application) so I changed
all Heading Styles to be NOT bold so they remain bold.
But the TOC stays bold independent of the style definition of bold or not
bold.
I can manually select the TOC an unbold it but would like a macro to select
TOC an unbold it.
Thanks

 

[Jonathan West]

My TOC is bold and I want it unbold.
All my Headings are Character Bold (from another application) so I changed
all Heading Styles to be NOT bold so they remain bold.
But the TOC stays bold independent of the style definition of bold or not
bold.
I can manually select the TOC an unbold it but would like a macro to
select
TOC an unbold it.
Thanks

Sub UnBoldToc()
ActiveDocument.TablesOfContents(1).Range.Font.Bold = False
End Sub

 

[Al]

Sub UnBoldToc()
ActiveDocument.TablesOfContents(1).Range.Font.Bold = False
End Sub

Thanks Jonathan.
Works great.
Al