Keuzelijsten in Word 2003

[Kimmi]

Ik moet voor een klant een word template maken met keuzelijsten. Leek op voorhand heel simpel, documentje mooi gemaakt in Word 2007. Maar hun sturingspakket herkent alleen *.dot bestanden en geen *.dotx.

Oké, leek ook geen probleem, ik wou heel da ding gewoon opnieuw maken in Word 2003. Maar daar is het aantal characters van een keuzelijst beperkt tot 50 terwijl ze telkens lange zinnen hebben

Valt blijkbaar niet eenvoudig aan te passen en 'k weet niet hoe 'k het kan oplossen. Kan ik dit op één of andere manier toch omzeilen?

Is er eventueel een manier om desnoods het keuzeveld te beperken tot een code/omschrijving en er een 2de veld aan te koppelen dat meer info geeft?

 

[snb]

Gebruik een keuzelijst voor het maken van de keuze en een tekstvak of titelvak voor het weergeven van de totale keuze.

Private Sub ComboBox1_Change()
   sq=split("tekst van keuze 0|tekst van keuze 1|tekst van keuze 2","|")
   Label1.caption=sq(combobox1.listindex)
   '  of
   TextBox1.Text=sq(combobox1.listindex)
next

 

[Kimmi]

Gebruik een keuzelijst voor het maken van de keuze een een tekstvak of titelvak voor het weergeven van de totale keuze.

Private Sub ComboBox1_Change()
   sq=split("tekst van keuze 0|tekst van keuze 1|tekst van keuze 2","|")
   Label1.caption=sq(combobox1.listindex)
   '  of
   TextBox1.Text=sq(combobox1.listindex)
next

Hm, dat is redelijk chinees voor mij
Heb in een heel ver verleden wat vba gehad maar 'k weet begot niet hoe 'k hier aan moet beginnen ..

 

[Kimmi]

Kan iemand mij alsjeblief nog iets verder helpen?
'k Heb deze code geprobeerd maar krijg het niet werkende ..
Een mini voorbeeldje in Word misschien?

 

[Kimmi]

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "keuze 1"     'ListIndex = 0
    ComboBox1.AddItem "keuze 2"     'ListIndex = 1
    ComboBox1.AddItem "keuze 3"     'ListIndex = 2
    ComboBox1.AddItem "keuze 4"     'ListIndex = 3
    ComboBox1.AddItem "keuze 5"     'ListIndex = 4
    ComboBox1.AddItem "keuze 6"     'ListIndex = 5
    ComboBox1.AddItem "keuze 7"     'ListIndex = 6
    ComboBox1.AddItem "keuze 8"     'ListIndex = 7
    ComboBox1.AddItem "keuze 9"     'ListIndex = 8
    ComboBox1.AddItem "keuze 10"     'ListIndex = 9
    ComboBox1.AddItem "keuze 11"     'ListIndex = 10
    ComboBox1.AddItem "keuze 12"     'ListIndex = 11
    ComboBox1.AddItem "keuze 13"     'ListIndex = 12
    'Use drop-down list
    ComboBox1.Style = fmStyleDropDownList
    'Combo box values are ListIndex values
    ComboBox1.BoundColumn = 0
    'Set combo box to first entry
    ComboBox1.ListIndex = 0

    ComboBox1.Left = 0
    ComboBox1.Top = 0
    ComboBox1.Width = 500
    ComboBox1.ListWidth = 500
End Sub

Oké, dit is wat 'k nu heb. Hoe moet het nu verder? Ik heb een combobox die meer characters kan bevatten maar hoe gebruik ik deze in mijn word document?

 

[sirlanalot1]

Kimmi,

ik ben echt een leek op het gebied programmeren, dus ik wilde jou eigenlijk een vraagje stellen:

Het lukt mij namelijk helemaal niet om ook maar een hele simpele keuzelijst te maken met 5 opties (bijv. 'heel goed', 'goed', 'neutraal', 'slecht', 'heel slecht'). Hoe doe je dat?


Alvast bedankt
Dennis

 

[snb]

Velen gingen u reeds voor en keken hier.(registreer om de bijlage te kunnen downloaden)
De principes voor een userform zijn voor Word niet anders dan voor Excel.

 

[Amilo 2515]

als je word 2007 wil openen in word 2003 kan je volgens mij het beste via opslaan als, en dan opslaan als word 97-2003-document