I'm working with documents where there are a lot of unused styles. I tried to record a macro using the organizer to delete unwanted styles, but I can't get it to work. I tried to edit it, and what I came up with is:

Application.OrganizerDelete Source:= _
"ActiveDocument" _
, Name:="body play", Object:=wdOrganizerObjectStyles

repeated for each style.

I'm thinking the "ActiveDocument" is the problem.

If I could get this to work, it would be better for my purposes than the usual things, copying and pasting in a new template, etc.

This is in Word 2007.