![]() |
|
#1
|
||||
|
||||
![]()
In that case, try:
Code:
Private Sub CheckBox1_Click() Call ShowHide End Sub Private Sub CheckBox2_Click() Call ShowHide End Sub Sub ShowHide() Dim bVis As Boolean: bVis = True If CheckBox1.Value = True Then bVis = False If CheckBox2.Value = True Then bVis = False ActiveDocument.Bookmarks("Bookmark1").Range.Font.Hidden = bVis End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#2
|
|||
|
|||
![]() Quote:
|
#3
|
|||
|
|||
![]()
Need help with another thing..
We were able to make it so that the bookmark doesn't go away when more than one checkbox acting on the same bookmark is checked. Now, how do we make it so that a bookmark only appears when two or more bookmark is checked? Adding on to my example above about products and requirements: I have an additional feature called CheckBox3 that I can add to products CheckBox1 and/or CheckBox2. I have an additional requirement that comes with CheckBox3 called Bookmark2. The thing is that Bookmark2 should only appear when Checkbox3 is checked AND when CheckBox1 and/or CheckBox2 is checked. Everything else that we did still need to apply as well.. |
#4
|
|||
|
|||
![]()
Also, How do I do the same thing that the code you provided does but for a whole different set of checkboxes and bookmarks within the same document? For example, I got a CheckBox4, CheckBox5 , and Bookmark3 that's completely separate from the first two checkboxes and bookmark. I'm getting an ambiguous error when trying to do this. I know it's because I'm using the ShowHide method more than once. WHat's the solution?
|
#5
|
|||
|
|||
![]() Quote:
Code:
Private Sub CheckBox1_Click() Call ShowHide End Sub Private Sub CheckBox2_Click() Call ShowHide End Sub Private Sub CheckBox4_Click() Call ShowHide End Sub Private Sub CheckBox5_Click() Call ShowHide End Sub Sub ShowHide() Dim bVis As Boolean: bVis = True Dim aVis As Boolean: aVis = True If CheckBox1.Value = True Then bVis = False If CheckBox2.Value = True Then bVis = False ActiveDocument.Bookmarks("Bookmark1").Range.Font.Hidden = bVis If CheckBox4.Value = True Then aVis = False If CheckBox5.Value = True Then aVis = False ActiveDocument.Bookmarks("Bookmark3").Range.Font.Hidden = aVis End Sub |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Hide rows with checkbox | gebobs | Excel | 3 | 03-24-2015 12:05 PM |
Show/hide text macro and security issues? | subspace3 | Word VBA | 1 | 10-05-2014 10:05 AM |
![]() |
tammytran105 | Word VBA | 7 | 10-02-2014 04:30 PM |
![]() |
vinceplunkett | Word | 1 | 12-03-2013 01:53 AM |
![]() |
mutchy25 | PowerPoint | 1 | 09-21-2012 01:40 AM |