Dropdown list dependency and autofill

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

LustNik · #2 03-17-2022, 01:02 AM

This did the trick! Thanks a lot!

Another question: is there anything I can add to control postion and size of the text? I'd like the text t be centered in the cells.

macropod · #3 03-17-2022, 05:34 AM

Quote:

Originally Posted by LustNik

Another question: is there anything I can add to control postion and size of the text? I'd like the text t be centered in the cells.

Simply format the cells as you would if they had ordinary text content.

PS: Please don't quote previous posts in your replies unless there's something specific you need to refer to - and then include only the relevant portion(s). Anything more just adds clutter.

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