Microsoft Office Forums - View Single Post - Can a text form field be dependent on a drop-down?

gmayor · 07-31-2019, 06:29 AM

Assuming the list box is titled 'Country' and the others are titled "Short Name" the following macro in he thisdocument module will fill the short name fields with the selection from the country as US or MEX. You may find Insert Content Control Add-In useful

Code:

Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oCC As ContentControl
    If ContentControl.ShowingPlaceholderText = False Then
        If ContentControl.Title = "Country" Then    'the title of the list box control
            Select Case Trim(ContentControl.Range.Text)
                Case "United States"
                    For Each oCC In ActiveDocument.ContentControls
                        If oCC.Title = "Short Name" Then    'the title of the fields used for the short version
                            oCC.Range.Text = "US"
                        End If
                    Next oCC
                Case "Mexico"
                    For Each oCC In ActiveDocument.ContentControls
                        If oCC.Title = "Short Name" Then
                            oCC.Range.Text = "MEX"
                        End If
                    Next oCC
                    'etc
            End Select
        End If
    End If
    Set oCC = Nothing
End Sub