Dropdown list dependency and autofill

macropod · #9 03-15-2022, 02:14 PM

Oops! Add the following code the the document:

Code:

Private Sub Document_Open()
Dim CCtrl As ContentControl, i As Long
With ActiveDocument
  For Each CCtrl In .ContentControls
    With CCtrl
      If .Title = "Risiko" Then
        If .Type = wdContentControlRichText Then
          .LockContents = False
          .Type = wdContentControlDropdownList
          .DropdownListEntries.Add "Uakseptabel"
          .DropdownListEntries.Add "Akseptabel"
          .DropdownListEntries.Add "Middels"
          .Type = wdContentControlRichText
          .LockContents = True
        End If
      End If
    End With
  Next
  .Saved = True
End With
End Sub

or, if being run from a template, add all the code to that template, along with:

Code:

Private Sub Document_New()
Call Document_Open
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Autofill Dropdown	Syed Rashid	Word	1	06-22-2021 10:59 AM
Compose Email - Autofill List Style Change	RoscoW88	Outlook	2	05-24-2021 06:44 PM
Autofill a field based on drop down list selection	lascough20	Word	2	09-21-2018 02:24 AM
Selection of a dropdown creates another dropdown wih the list	krishnamurthy.ka2810	Word VBA	1	04-26-2018 11:44 PM
Autofill a form which is contingent on a dropdown selection.	biffle0764	Word	2	05-09-2012 12:54 PM