Microsoft Office Forums - View Single Post - [Solved] Dropdown list dependency and autofill

macropod · 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