Pre-Populated fields

gmayor · #1 05-28-2023, 09:43 PM

Sorry, I missed this the other day

What you propose is easy enough with content controls. You need a list box to make the selection, a rich text control for the related value and a macro to evaluate the selection(s) and fill the text control(s) appropriately.
You may find Insert Content Control Add-In useful.
The macro must go in the ThisDocument module of the form template and would be something like:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oCC As ContentControl
    With ContentControl
        If .ShowingPlaceholderText = False Then
            Select Case .Title
                Case Is = "System"
                    Set oCC = ActiveDocument.SelectContentControlsByTitle("Queues Impacted").Item(1)
                    Select Case .Range.Text
                        Case Is = "AS400"
                            oCC.Range.Text = "NA"
                        Case Is = "Genesys"
                            oCC.Range.Text = ""
                    End Select
                Case Else
            End Select
        End If
    End With
    Set oCC = Nothing
End Sub

The first level of case statements are your list boxes. The second the results according to the selected values.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Check Form fields populated before save	OTPM	Word	12	03-10-2017 11:13 PM
copying one populated template to another	caz46	PowerPoint	0	02-27-2017 05:04 AM
Naming Documents From Populated Cells	TYPOGRAPHICS	Word VBA	8	04-08-2016 09:13 AM
Please Help! Need auto populated last saved date.	Neveradayoff	Excel	0	02-05-2014 09:42 AM
Drop-down Populated with text entry	ReviTULize	Word VBA	14	02-21-2013 07:06 PM