![]() |
#1
|
|||
|
|||
![]() Anyone can help How to Display Text on Multiple dependent dropdown content control result? Attache the doc. Please assist how to make the vba coding eg. Level 0 Dropdown: Option2 Level 1 Dropdown: Fire Level 2 Dropdown: Red Level 3 Dropdown: 100 Display Text below (Level 1 Result & Level 3 Result) = text “Match the requirement. You are qualified” The text Change on every result Plain text CC Click or tap here to enter text. |
#2
|
||||
|
||||
![]()
You've already got code in your document that changes the content in the dropdowns. Please explain more clearly what it is that you want to happen.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
![]() Quote:
Thanks for your reponse. The doc only with multiple dependent dd. What I what is upon selecting the multiple item for instant level 1 & level 3, I want some text to be displayed. in another plain text CC. My bad not the coding below is not good syntax. Its just an example to show what i want. No sure how to achieve this. eg. Select Case CCtrl.Tag Case "Level 1" && Level 3 Set cc1 = CCtrl.Range.Document.SelectContentControlsByTag("L ogs")(1) Select Case CCtrl.Range.Text Case "Fire" && "100" cc1.Range.Text = "whatever text you want for abc" Case "Earth" && "600" cc1.Range.Text = "whatever text you want for def" Case "Air" && "1200" cc1.Range.Text = "whatever text you want for ghi" Case Else cc1.Range.Text = vbNullString End Select |
#4
|
||||
|
||||
![]()
For:
Dependent Text Content Controls https://www.msofficeforums.com/word-...html#post46903 and, for different elements from a selected item to be output to different content controls, see: https://www.msofficeforums.com/word-...tml#post120392 Dependent Dropdown Content Controls https://www.msofficeforums.com/word-...html#post77762 and, for multiple levels of dependency: https://www.msofficeforums.com/word-...tml#post132696 Cascading Dropdown Content Controls https://www.msofficeforums.com/word-...html#post94603
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
![]() Quote:
I've gone thru those. But not as what I expect. I want to have the coding as follow. But this for single dd content control. But the code I am looking for Multiple dd content control. How does that work? Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) Dim oCC As ContentControl For Each oCC In ActiveDocument.ContentControls If oCC.Title = "Room" Then Select Case oCC.Range.Text Case "Room 1" ActiveDocument.SelectContentControlsByTitle("Seats ").Item(1).Range.Text = "63 Seats" Case "Room 2" ActiveDocument.SelectContentControlsByTitle("Seats ").Item(1).Range.Text = "25 Seats" Case "Room 3" ActiveDocument.SelectContentControlsByTitle("Seats ").Item(1).Range.Text = "42 Seats" Case Else ActiveDocument.SelectContentControlsByTitle("Seats ").Item(1).Range.Text = ActiveDocument.SelectContentControlsByTitle("Seats ").Item(1).PlaceholderText End Select End If Next oCC lbl_Exit: Set oCC = Nothing Exit Sub End Sub Last edited by philip.anthony; 03-25-2022 at 12:02 PM. |
#6
|
|||
|
|||
![]()
Just clarifying, in the dependent content control, you want something different to display than was selected in the drop-down, based on the choice made in the drop-down.
If that is correct, you are on the right track. If, on the other hand, you want the same text to display in multiple locations, then use a mapped Content Control. Repeating Data Using Document Property Content Controls and Other Mapped Content Controls |
#7
|
||||
|
||||
![]() Quote:
• map those content controls; or • use VBA code to loop through your "Seats " collection. For example, using the approach in that link: Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) Dim i As Long, Seats As String With ContentControl If .Title = "Room" Then For i = 1 To .DropdownListEntries.Count If .DropdownListEntries(i).Text = .Range.Text Then Seats = .DropdownListEntries(i).Value Exit For End If Next With ActiveDocument.SelectContentControlsByTag("Seats ") For i = 1 To .Count .Item(i).Range.Text = Seats Next End With End If End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#8
|
|||
|
|||
![]() Quote:
Yes want something different to display than was selected in the drop-down, based on the choice made in the drop-down. Meaning, base on the value of 2nd Drop down & 4th Dropdown, I it to be display in the text box. I've Attachedmy Work also. Please review and guide me how to approach that. |
#9
|
|||
|
|||
![]()
Hi Paul,
This approach is good. But, it limits to 255 char. I want to display more than 255 chars. However, I am able to do that. What I need is base on the value of 2nd Drop down & 4th Dropdown, I it to be display in the text box. I need each selection for Level 3 and value select from level 1, and display text in the text box eg. Case "Microsoft Windows" ' I need a validation and Display text differently according to the Brand ' For Each CCtrl In ActiveDocument.ContentControls ' If CCtrl.Tag = "Brand" Then ' Select Case CCtrl.Range.Text ' Case "IBM" ' StrDetails = "IBM Windows" ' Case "DELL" ' StrDetails = "DELL Window" ' Case "HP" ' StrDetails = "HP Windows" ' End Select I've Attached my Work also. Please review and guide me if the coding is ok. |
#10
|
||||
|
||||
![]()
None of the examples you've given has anything like 255 characters per item. In any event, I've already given you a link that shows how the conditional output can be held in code rather than in the content control values: https://www.msofficeforums.com/word-...tml#post132696
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#11
|
|||
|
|||
![]() Quote:
Have you gone thru the doc. The link you sent precisely as what I have created.. Thats working now which I dont want that. What I want is to display text based on test 2 dropdown list result. Which not sure how to achieve that. |
#12
|
||||
|
||||
![]()
The code in the link clearly shows how to do that...
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
silverspr | Word VBA | 9 | 09-30-2020 07:53 AM |
![]() |
matthias92701 | Word VBA | 2 | 05-02-2019 03:54 PM |
Content Control DropDown List | gabster | Word VBA | 4 | 04-30-2019 09:53 PM |
![]() |
hrzagi | Word | 1 | 12-17-2017 09:38 PM |
![]() |
asteinroeder | Word VBA | 5 | 10-28-2015 03:56 PM |