Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 682
  • Last Modified:

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?
0
cgsolutions
Asked:
cgsolutions
  • 4
  • 3
1 Solution
 
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
 
cgsolutionsAuthor Commented:
I guess ee doesn't like dotx files...
sample.docx
0
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

 
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
 
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
 
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.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now