[VB.NET] Aanpassen Drop-down content control

[kloas_wokkel]

Hallo,

Ik heb een programma in VB.net waar vanuit ik naar een Word template wil schrijven.
Dit werkt voor een deel, bookmark's en een checkbox lukt prima
Echter zit er in de template ook een Drop down list content control die ik aan wil passen, en dit lukt me niet.
De code zover (dit werkt)

Visual Basic .NET:

 
oWord = New Word.Application
oWord = CType(CreateObject("Word.Application"), Word.Application)
oDoc = oWord.Documents.Add("c:\blaat.dotx")

oDoc.Bookmarks("Test").Range.Text = "Hello world"
oDoc.FormFields("Checkbox_1").CheckBox.Value = True

Iemand een hint/suggestie? Alvast bedankt

[jip_86]

MSDN heeft vaak al aanwijzingen die je kan gebruiken. Zo verwees formfields naast checkbox ook naar een dropdown en dan kom je hier: https://msdn.microsoft.co...ord.dropdown_members.aspx

[kloas_wokkel]

Dan kom ik als test tot het volgende:

Visual Basic .NET:

MsgBox(oDoc.FormFields("a").DropDown.Value)

waarbij ik de volgende foutmelding krijg:

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Conducted emission.exe
Additional information: The requested member of the collection does not exist.

terwijl er wel een dropdown in het document zit met de bookmark "a" (op dezelfde manier als bij de checkbox die wel werkt)

[Damic]

Je doet het verkeerd: MSDN: DropDown.ListEntries Property (Word)

Volgens mij moet dit simpeler kunnen.

ActiveDocument.FormFields("DropDown1").DropDown.ListEntries(ActiveDocument.FormFields("DropDown1").DropDown.value).name

[ Voor 39% gewijzigd door Damic op 20-05-2016 23:23 ]

[kloas_wokkel]

Opgelost

Visual Basic .NET:

             For Each contentcontrol In oDoc.ContentControls
                If contentcontrol.title = "a" Then
                    contentcontrol.DropdownListEntries.item(1).select
                    Exit For
                End If
           Next