I have a Word document (attached) where the user is to enter information about the status of several tasks. For each task the user is to select the status of the task from a content control dropdown list. Options are: "No issues" or "Issues found". If "Issues found" is selected, the user is to provide a description of the issue for that task in a textbox.
While the code works for the first task, it does not work for the content controls in the second task
What am I doing wrong?
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean) If CCtrl.Title = "CCDDL" Then With CCtrl.Range Select Case .Text Case "Issues found" .Font.ColorIndex = wdRed ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , "Enter issues here" Case Else .Font.ColorIndex = wdBlack ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , ChrW(8203) ActiveDocument.SelectContentControlsByTitle("CCTB")(1).Range.Text = vbNullString End Select End With End If End Sub Private Sub Document_ContentControlOnExit2(ByVal CCtrl As ContentControl, Cancel As Boolean) If CCtrl.Title = "CCDDL2" Then With CCtrl.Range Select Case .Text Case "Issues found" .Font.ColorIndex = wdRed ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , "Enter issues here" Case Else .Font.ColorIndex = wdBlack ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , ChrW(8203) ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).Range.Text = vbNullString End Select End With End If End Sub





Reply With Quote