Hiding rich text content control using checkbox

Guessed · #4 11-14-2023, 07:23 PM

Try this code. Put it into the ThisDocument Module to have it run automatically when you exit any content control.

Code:

Private Sub Document_ContentControlOnExit(ByVal myCC As ContentControl, Cancel As Boolean)
  Dim aCC As ContentControl
  If myCC.Title = "Checkbox" Then
    For Each aCC In ActiveDocument.SelectContentControlsByTitle("ContentControl")
      aCC.Range.Font.Hidden = Not myCC.Checked
      aCC.Range.Paragraphs.Last.Range.Font.Hidden = Not myCC.Checked
    Next aCC
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Rich text Content Control Duplicate or Alternative	BarnabyS	Word	11	10-08-2020 12:06 PM
Copy Formatted Text in one Rich Text Content Control to another Rich Text Content Control	Haygordon	Word	1	04-05-2019 05:43 AM
Replicate rich text content control value at top of each page	gebobs	Word	5	05-16-2018 06:00 AM
How do you set rich text in a content control	Testor	Word VBA	4	07-08-2012 07:55 AM
Rich Text Content Control - Allow User Formatting	keithacochrane	Word	1	05-28-2012 05:06 PM