Microsoft Office Forums - View Single Post - [Solved] Changing words depending on the dropdown list

gmaxey · 12-14-2018, 06:50 AM

Use the one you wish. I am not competing with anyone here for points. Clearly you didn't pay much attention as you changed selection because the text did change and behave exactly as it does with the first solution.

If you want to be more creative with the change you could use something like this:

Code:

Private Sub Document_ContentControlBeforeStoreUpdate(ByVal ContentControl As ContentControl, Content As String)
Dim oNode As CustomXMLNode
Dim lngIndex As Long
  If ContentControl.Tag = "Master" Then
    Select Case Content
      Case 1
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "One, two buckle my shoe"
             Case 2: oNode.Text = "three, four shut the door"
             Case 3: oNode.Text = "five, six pick up sticks"
             Case 4: oNode.Text = "seven, eight close the gate"
             Case 5:  oNode.Text = "nine, ten the big fat hen."
           End Select
        Next lngIndex
      Case 2
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "one little, two little"
             Case 2: oNode.Text = "three little, four little"
             Case 3: oNode.Text = "five little, six little"
             Case 4: oNode.Text = "seven little, eight little"
             Case 5:  oNode.Text = "nine little, ten little (you pick) boys."
           End Select
        Next lngIndex
      Case 3
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "AAAAAAAAAAA"
             Case 2: oNode.Text = "BBBBBBBBBBB"
             Case 3: oNode.Text = "CCCCCCCCCCC"
             Case 4: oNode.Text = "DDDDDDDDDDD"
             Case 5:  oNode.Text = "EEEEEEEEEE"
           End Select
        Next lngIndex
      Case Else
        For lngIndex = 1 To 5
          Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
          oNode.Text = ChrW(8203)
        Next lngIndex
      End Select
  End If
lbl_Exit:
  Exit Sub
End Sub