Make styles in tv-script visible by userform

Hi there,
Is there an easy way in vba (word 2010) to detect the used styles in a document and add them as check boxes on a userform, where I can hide/show the styles by toggle check box status? And automatically add another check box, named "All visible" that shows/hide all? (Except from two pre-defined styles). And - if all the styles are present - the "All visible" check box turns on? And vice versa?
The reason I ask, is that I am a writer/producer - and when going into production I write notes that aren´t interesting for the whole crew.
I kind of achieved this through an endless, stupid and not bug-free code. (Sometimes I have to check the boxes all over again, even if I have pressed the "All visible"-checkbox)
I think there might be a "each/next"-statement that could do the trick - but I am a newbee. Are there someone out there who could help me write a more efficient code that:
1 ) scans the used styles in the document
2 ) pass them to a userform (whith names )
3) when checkbox is pressed - the dependent style is toggles its visible/not visible status?
The styles I uses now are:

• TOC
• Heading
• Sequence
• Synopsis
• Sceneheading (numbered) (Should always be visible)
• Action
• Technichians
• Scenography
• Administration
• Character/Dialogue (which is actually two different styles - but they have to show up at the same time)

Maybe with the ability to change styles easy - and fire the same code?
Thank you so much in advance.
Best,
Madeleine [:)]
A little snippet of code from my UserForm ("Visalle" means "Show all")

Private Sub Admin_Change()
If Admin.Value = False Then
ActiveDocument.Styles("Admin").Font.Hidden = True
ElseIf Admin.Value = True Then
ActiveDocument.Styles("Admin").Font.Hidden = False
End If
selvtest
End Sub
 
Private Sub selvtest()
Dim ctl As Control
Dim j As Long
Dim msg As String
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.CheckBox Then
If Me.Controls(ctl.Name).Value = True Then
j = j + 1
End If
End If
Next
If j <> 6 Then
Me.Visalle.Value = False
Else
If Me.Visalle.Value = True Then
Me.Visalle.Value = False
Else
Me.Visalle.Value = True
End If
End If
End Sub

Re: Urgent: Make styles in tv-script visible by userform

Thank you so much. I think i by mistake edited my post. There was something about wrapping the code in brackets or something? I will have a look and see what my post looks like.
Best,
Mad

Re: Urgent: Make styles in tv-script visible by userform

Hi again
I tried your code - but I got all the word built-in-styles showing in the immediate-window? Do I have to delete all the styles first? A bit afraid of deleting built-in-styles?

Best,
M

Re: Urgent: Make styles in tv-script visible by userform

Yes, I think that is correct. I have a document - formatted with like 7-10 different styles. From Sequence, Sceneheading, Synopsis, Action, Character, Dialogue, Photographer, Scenographer and so on. I would like to have a UserForm which is based on this styles which I have createded (some of them due to factory standards) - and then - by enable or disable checkboxes - I can hide/unhide the custom styles. And by doing this, building specific reports to the crew-members that need just that kind of information (in other words - hiding information that is not interesting for other crew-members). Thank you for taking your time.

Re: Urgent: Make styles in tv-script visible by userform

Thank you so much for helping me :). I will try right now. Thank you, thank you. Hope this works :). Best, M

Re: Urgent: Make styles in tv-script visible by userform

Hi again, there. I tried to save the attachment as a .dotm. But no userform shows up when I open it? Do I have to activate anything? Best, Madde.

Re: Urgent: Make styles in tv-script visible by userform

I tried to open it, but the form did not load. I ran the form from vba - but everything is disabled (as you mentioned). I think this really is what I am trying to achieve. But why does the UserForm not load on open? And how do I enable the check-boxes? Sorry for the hazzle. Thank you, anyway.

Re: Urgent: Make styles in tv-script visible by userform

I think I am getting there Awsome. I am Norwegian - so the name "Title" is "Tittel" in Norwegian. In your code you disable styles that are not in the document? I tried adding "Title" as a style - and all of the sudden - the "Title"-checkbox was enabled. I checked it - and the style disappeared. Do you know how to show all/hide all? And reflect the changes in the userform? If you got time. Thank you, anyway. :):)

Re: Urgent: Make styles in tv-script visible by userform

Where do I put the code you mentioned in "minor change"?

Re: Urgent: Make styles in tv-script visible by userform

Off couse. I have to do it my self. Thank you so much for your help. If you have the time and will - you can help me tomorrow. But you allready done a lot. But maybe I will have some questions tomorrow. I will try to post you, but if you dont have the time, thank you anyway :). You tracked me in the right direction here

Re: Urgent: Make styles in tv-script visible by userform

I you have noet left - the code you sent me afterwards (the little change). Where shall I put it? Madeleine.