Using macro to delete styles

[fogharty]

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.

[Stefan Blom]

The Source parameter must specify the name and path of the document or template containing the style you want to delete. For example, if the style is in the Normal template, you can use the following:

 
Application.OrganizerDelete _
Source:=NormalTemplate.FullName, _
Name:="style name here", _
Object:=0