#1
|
|||
|
|||
Hiding rich text content control using checkbox - Removing extra spacing
Hi all,
I have a check box content control which I'm using to show/hide a rich text content control containing multiple paragraphs of text. Everything works great, except I have one issue — the rich text content control "container" is still visible, which produces an extra line/paragraph in my document that I do not want. For example, here is what it looks like: Image.png and here is what I want it to look like: Image2.png Below is a snippet of the code I'm using to (1) determine the status of the checkbox, and (2) hide the content control. Code:
isChecked = ActiveDocument.SelectContentControlsByTitle("Checkbox")(1).Checked ActiveDocument.SelectContentControlsByTitle("Content Control")(1).Range.Font.Hidden = Not isChecked Is there any way I can get rid of this extra line? I tried bookmarking the content control and hiding it that way, as well as playing around with the paragraph settings, but no luck. Thank you! |
#2
|
||||
|
||||
Have you looked at whether the content control includes the final paragraph mark or not?
If the content control sits in front of a paragraph mark then the macro to hide the content control range ONLY won't impact the visibility of that paragraph mark. So have your macro also hide that element of the document or set its height to 1pt.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Thanks for the reply and suggestions! I had the paragraphs written and then basically highlighted all of them and put them inside the rich text content control after the fact, rather than establishing the rich text content control first and then entering the content.
All that to say the content control likely sits in front of the paragraph mark (which may be my issue), though I'm not sure. See screenshot below if you can tell from that. Screenshot.png Any ideas how I would go about modifying the macro to hide that element of the document, especially considering the content control may contain a variable number of paragraphs? Would I create a loop? I tried the following code and it hides a few of the paragraphs (including the last paragraph in the document outside of the content control, which should not be hidden) before producing a runtime error. Code:
Sub HideText() Dim isChecked As Boolean, cc As ContentControl, i As Integer 'Get the state of the checkbox isChecked = ActiveDocument.SelectContentControlsByTitle("Checkbox")(1).Checked 'Toggle the visibility of the content control Set cc = ActiveDocument.SelectContentControlsByTitle("ContentControl")(1) If cc.Title = "ContentControl" Then For i = 1 To cc.Range.Paragraphs.Count cc.Range.Paragraphs(i).Range.Font.Hidden = Not isChecked Next i End If End Sub |
#4
|
||||
|
||||
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#5
|
|||
|
|||
Thank you! That worked except the code is also hiding the first paragraph outside of the content control for some reason. I can get around this by just inserting an extra blank paragraph at the bottom of the content control, which seems to fix the issue. Appreciate your help!
|
|
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 |