Make paragraphs appear according to specific combination

[razdul]

Hello,



I'm fairly new to Word VBA programming.

I have a certain project that has plenty of constraints.

I would like certain paragraphs to appear according to a specific combination of checkboxes. A drop down list can be used also to replace the checkboxes to simplify the document.

Those paragraph could be in form of an autotext and a bookmark to help specify the location.

Ideally, I'm trying to make it work without the use of a userform.

The goal is to produce a universal tool, but also minimizing the information conveyed to the reader.

I have messed around with some code, but I can't seem to make the paragraphs replace each other if the initial choices change.

Thank you

[Guessed]

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

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.

[razdul]

Wow it works perfectly!

Thank you very much!