For clarity:
We can 'Show' only specified styles on all future documents on our own machines - simply by following the standard steps to save in Normal.dot (as Stefan mentions).
What we're trying to do is create code that will amend the Normal.dot on the machine of someone else (who is not computer savvy) to - by default - show specific styles only in their new documents. (We could send them a self-extracting utility to place their Normal.dot with a custom Normal.dot in the required directory, but we don't want to do this in case it wipes away anything they may have themselves saved in Normal.dot.)
("not computer savvy" meaning: they can't even follow instructions to select to show specified styles only; but we also mean that we'd like to automate it for their convenience - especially as we're talking about selecting at least a dozen specific styles and making sure that only these are visible.)
Recording the process doesn't provide any useful statements.
In any case, the above will always show 'Custom', whereas we want it to show 'Available Styles'.
Here's something from another forum:
Thanks for the info, but the solutions only work for the Custom view! Seems there is a VBA bug or even a main Word bug.
See the site:
http://www.tek-tips.com/viewthread.cfm?qid=1212007
Where the bottom line seems to be:
******************
There IS the following:
wdShowFilterStylesAvailable
it is part of the wdShowFilter class. Others a
wdShowFilterFormattingAvailable
wdShowFilterStylesInUse
So they are there. There must be a way to do something with them.
... I am trying hard to make VBA DO something with it. So far, no luck. I can get a Variant to [b]be[\b] wdShowFilterStylesAvailable. Great. That's nice. I still have not found a method or a property that will accept it.
There is Document.FormattingShowFilter but I can't make it do anything at the moment.
As far as I can tell the Document filter properties don't appear to work - it wouldn't be the first time!