Hi
I want to fill a bunch of comboboxes situated in a table in a word doc using a macro stored in a special dotm template.
So I name the macro AutoNew for it to be executed at start after a new doc is loaded.


When storing in a docm everything works like it should, but when storing in a dotm I can not grab the combobox.additem function or combobox.items.add... they are just not there, so when running the script it halts at the first fill combobox.
The only things I can grab here is settings for the ThisDocument.ComboBox1.BackColor

Same thing if I use
ThisDocument. infront of the comboboxes..etc

also tried
combobox1.items.add("sdfsdfd")





Sub AutoNew()
'
' AutoNew Makro
'



Dim Produkter(13) As String
Produkter(0) = ""
Produkter(1) = "GUNGSTÄLLNING"
Produkter(2) = "LEKSTÄLLNING"
Produkter(3) = "KLÄTTERSTÄLLNING"
Produkter(4) = "LEKHUS"
Produkter(5) = "STAKET"
Produkter(6) = "BRUNNSLOCK"
Produkter(7) = "RUTSCHKANA"
Produkter(8) = "FJÄDERGUNGA"
Produkter(9) = "VIPPGUNGA"
Produkter(10) = "VOLTRÄCKE"
Produkter(11) = "SANDLÅDA"
Produkter(12) = "FOTBOLLSMÅL"
Produkter(13) = "LINBANA"
Dim lngPosition As Integer

For lngPosition = LBound(Produkter) To UBound(Produkter)
ComboBox1.AddItem (CStr(Produkter(lngPosition)))
ComboBox2.AddItem (CStr(Produkter(lngPosition)))
ComboBox3.AddItem (CStr(Produkter(lngPosition)))
ComboBox4.AddItem (CStr(Produkter(lngPosition)))
ComboBox5.AddItem (CStr(Produkter(lngPosition)))
ComboBox6.AddItem (CStr(Produkter(lngPosition)))
ComboBox7.AddItem (CStr(Produkter(lngPosition)))
ComboBox8.AddItem (CStr(Produkter(lngPosition)))
ComboBox9.AddItem (CStr(Produkter(lngPosition)))
ComboBox10.AddItem (CStr(Produkter(lngPosition)))
ComboBox11.AddItem (CStr(Produkter(lngPosition)))
Next lngPosition
End Sub