Make paragraphs appear according to specific combination

Guessed · #1 04-16-2019, 06:29 PM

OK, so you set up the checkboxes using CheckBox content controls. Bookmark the show/hide text ranges with a specific name. Put that bookmark name in the tag property for each checkbox that must be checked to show that particular bookmark.

Then add the following macro into your ThisDocument module

Code:

Private Sub Document_ContentControlOnExit(ByVal myCC As ContentControl, Cancel As Boolean)
  Dim aCC As ContentControl, bChecked As Boolean, sTag As String
  sTag = myCC.Tag
  bChecked = True   'set initial value
  If ActiveDocument.Bookmarks.Exists(sTag) Then
    For Each aCC In ActiveDocument.SelectContentControlsByTag(sTag)
      bChecked = bChecked And aCC.Checked
    Next aCC
    ActiveDocument.Bookmarks(sTag).Range.Font.Hidden = Not bChecked
  End If
End Sub

Refer to attached doc for a working example based on your doc.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Make Autocorrect Case-Specific?	rjb	Word	4	11-19-2018 09:11 PM
keep specific paragraphs in word documents in a folder	modiria50989	Word VBA	7	08-14-2017 05:31 PM
Trouble Formatting Specific Paragraphs - Bullets, Spacing, Centering, etc	adzialo	Word	2	05-01-2017 12:53 PM
VBA to set format for paragraphs that meet with specific requirements	AustinBrister	Word VBA	3	06-01-2015 07:00 AM
Macro to Insert text into the beginning on specific paragraphs unless the paragraph is blank	caboy	Word VBA	2	04-01-2015 07:00 AM