VBA-Makro: Word Dropdowns ansprechen

[Kevin (Gast)]

Hallo Forengemeinde,

leider ist es so weit gekommen, dass ich doch ein VBA Makro schreiben 
muss.
Ich habe: ein Word-Dokument, in dem ich an vielen Stellen aus dem 
Developer-Bereich Dropdowns platziert habe, welche alle zwei Einträge 
enthalten. Anhand von einem Integer, der mal eins und mal zwei ist, 
sollen alle Dropdowns in dem Dokument auf den ersten, bzw. zweiten 
Eintrag gestellt werden.

Aktuell sieht der Code wie folgt aus:

Sub FillDropDowns()
    Dim DropDownLine As Integer
    Dim aField As FormField
    
    If ActiveDocument.CustomDocumentProperties("Product").Value = True Then
        DropDownLine = 1
    Else
        DropDownLine = 2
    End If
    
    For Each aField In ActiveDocument.FormFields
        MsgBox aField.Result
        If aField.Type = wdFieldFormDropDown Then
            DropDownLine = DropDownLine + 1
        End If
    Next aField
    MsgBox DropDownLine
End Sub

Aus dem Property "Product" wird DropDownLine korrekt gesetzt, die MsgBox 
aField.Result erscheint aber nicht und DropDownLine zählt nicht mit 
jedem gefundenen DropDown hoch. Ich scheitere also schon an der 
For-Schleife.
Frage an euch: wie muss die Abfrage korrekt lauten, damit die Schleife 
überhaupt über alle Objekte läuft, zu denen auch die Dropdowns gehören?

Vielen Dank schon einmal!

[Manfred S. (Firma: Manfred) (xfred343)]

In welchem Bereich befinden sich die Dropdowns?
Um das gesamte Dokument zu durchlaufen solltest du auch Kopf- und 
Fußzeilen beachten, z.B. so:

Sub sTest()
Dim aField As FormField
Dim lngStoryCounter As Long
Dim aStoryRange As Range
lngStoryCounter = 0
For Each aStoryRange In ActiveDocument.StoryRanges
    lngStoryCounter = lngStoryCounter + 1
    For Each aField In aStoryRange.FormFields
        Debug.Print lngStoryCounter, aField.Type
    Next aField
Next aStoryRange
End Sub

Ich vermute aber eher, dass dein Formularfeld ein anderes ist (es gibt 
legacy und neuere) - das kannst du am besten über das Lokalfenster 
herausfinden, in dem du es selektierst und weiter untersuchts.