How do I hide certain text until a Text Content Control box is Modified?

I am creating a customized form for printing labels.  I have 5 cells on the page.  On the bottom of each cell there is a Line of Text that I want to display for each label (footer for each cell).  However I would not like to waste a label should the Text controls are not used.  Is there any way to have conditions where if the Text Controls are not modified, their respective "footer" line is not displayed?
cgsolutionsAsked:
Who is Participating?
 
dlc110161Commented:
I'll let you test this out. I've tested, but I'm not sure how you are going to use it, so you will need to execute the macro to test. At some point, I am sure that you will want to attach the code to some event such as the Print command.

Anyway, give it a whirl and let me know.

If you need help installing the macro, see http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

Dawn Bleuel
Word MVP
Sub HideCell()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
Dim cc As ContentControl
Dim oRowe As Integer
Dim i As Integer
On Error GoTo EH
 
Selection.HomeKey Unit:=wdStory
With Selection
    If .Information(wdWithInTable) Then
        oRowe = .Information(wdEndOfRangeRowNumber)
        For Each cc In ActiveDocument.ContentControls
            If cc.Range.Text <> cc.PlaceholderText Then
                rDcm.Tables(1).Rows(oRowe).Select
                i = i + 1
                Debug.Print oRowe
            Else
                rDcm.Tables(1).Rows(oRowe).Select
                Debug.Print oRowe
                If i = 1 Then .Font.Hidden = True
                i = i + 1 'Increment cc
                    If i = 6 Then
                        i = 1 'Reset cc
                        oRowe = oRowe + 1
                    End If
            End If
        Next
        oRowe = oRowe + 1
    End If
End With
 
'Handle Errors Gracefully
Exit_EH:
    Exit Sub
 
EH:
    Select Case Err.Number
        Case 5941
            Resume Exit_EH
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_EH
    End Select
 
End Sub

Open in new window

0
 
dlc110161Commented:
Could you post an example form for me to test with?

Thanks.

Dawn Bleuel
Word MVP
0
 
cgsolutionsAuthor Commented:
Here you go... Thanks.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
cgsolutionsAuthor Commented:
I guess ee doesn't like dotx files...
sample.docx
0
 
dlc110161Commented:
Is there a reason you have 6 content controls per label? You can set it so that it allows multiple paragraphs.

Hiding the text would be much easier if two things are done. 1. Only one content control per label. 2. The text to be hidden is a unique style - preferably using the same prefix incremented with a number ie. Label1, Label2, etc.

Dawn Bleuel
Word MVP
0
 
cgsolutionsAuthor Commented:
The reason I have 6 content controls is because I want to limit the amount of lines the user can have to 6 and also have the text in a specific position.  Would there be a way to have one content label while acheiving the same results?  Labeling the content controls is not a problem, they can be whatever name that will suit the needs for this.
0
 
cgsolutionsAuthor Commented:
Thanks will try it out.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.