Office 365: Word - Makro - Dropdown-Feld - Inhalt ändern

[Blade1981]

Hallo zusammen,

ich habe eine Vorlage erstellt, in welcher beim Starten automatisiert eine Abfrage erfolgt, mit welchem Wert das Dropdownfeld gefüllt werden soll.

Nun ist das Dropdownfeld aber zukünftig in der Fußzeile und ich kann das Element (Objekt) nicht mehr ansprechen. Was muss ich ändern, dass ich nun das in der Fußzeile befindliche Element ansprechen kann?

Vielen lieben Dank für eure Hilfe!

Bisheriger Code:

Private Sub Document_New()

Dim objCC As ContentControl
Dim objLE As ContentControlListEntry

Dim Message, Title, varValue
   
    Message = "Welcher Wert?" & vbCrLf & vbCrLf & "1 = Auswahl 1" & vbCrLf & "2 = Auswahl 2"
    Title = "InputBox Wertabfrage"
    varValue = InputBox(Message, Title)
   
    Select Case varValue
        Case 1 To 2
            Set objCC = ActiveDocument.ContentControls.Item(1)
            Set objLE = objCC.DropdownListEntries.Item(varValue)
            objLE.Select
        Case Else
            MsgBox "Bitte zwingend einen Wert auswählen"
            fncFunktion1
    End Select
   
End Sub