Hi Graham, thank you very much for the extra code, it is very much appreciated. I have added And Not .Font.Bold to the below code which seems to have sorted some of the bold being highlighted issues.
 
If Len(.Text) > 2 And Not .Style Like "Heading*" And Not .Font.Bold Then
I'm just doing my first house style document of the day and have run the code, looks like this is going to be an ongoing project as it needs to ignore table of contents, if para ends with footnote reference or square bracket and maybe not to include tables at all..

How do you tell code to read a square bracket as a square bracket so I can add it to this line of code

If Not .Characters.Last.Previous Like "[.!?:;]" Then