Quote:
Originally Posted by gmaxey
Perhaps:
For lngIndex = 0 To UBound(arrData, 2)
If Not IsNull(UBound(arrData, 2) then
oCC.DropdownListEntries.Add arrData(0, lngIndex), arrData(0, lngIndex)
End If
Next
|
Thanks Greg. I've incorporated this into my code.
'Get the data. Change sheet name to suit.
arrData1 = fcnExcelDataToArray(strWorkbook, "Simple List")
Set oCC = ActiveDocument.SelectContentControlsByTitle("CC Dropdown List").Item(1)
'Populate the CC
If oCC.DropdownListEntries.Item(1).Value = vbNullString Then
'Assumes the CC has a placeholder "Choose Item" entry with no defined value. _
Preserve the placeholder entry.
For lngIndex = oCC.DropdownListEntries.Count To 2 Step -1
oCC.DropdownListEntries.Item(lngIndex).Delete
Next lngIndex
Else
'Assumes no placeholder entry. Simple clear list.
oCC.DropdownListEntries.Clear
End If
For lngIndex = 0 To UBound(arrData1, 2)
If Not IsNull(UBound(arrData1, 2)) Then
oCC.DropdownListEntries.Add arrData1(0, lngIndex), arrData1(0, lngIndex)
End If
Next
However, I got an error highlighting the line "oCC.DropdownListEntries.Add arrData1(0, lngIndex), arrData1(0, lngIndex)". The error is Run-time error '6215'
An entry with the same display name already exists - each entry must specify a display name.
I have other dropdown lists which I named them as arrData2, arrData3 etc to create a few simple dropdown list but I didn't have that error earlier.
Able to advise?
Thanks.