Word 2003, keuzelijst

[guppie1]

Hallo,

Ik heb de volgende uitdaging:
Ik heb in een word.doc een keuzelijst gemaakt en wil afhankelijk van de keuze die wordt gemaakt verderop in het document automatisch tekst wordt toegevoegd.
Via VBA heb ik de keuzelijst laten vullen met de volgende code:

Private Sub ListBox1_Click()
Set myField = _
ActiveDocument.FormFields.Add(Range:=Selection.Range, _
Type:=wdFieldFormDropDown)
With myField.DropDown.ListEntries
.Add Name:="Kies een item"
.Add Name:="aap"
.Add Name:="noot"
.Add Name:="mies"
End With
End Sub

Vervolgens heb ik een bladwijzer in het document toegevoegd met de naam bldwzr1.
Nu ben ik zelf al druk bezig geweest en is het mij gelukt om via een macro tekst op een bladwijzer te laten zetten met de volgende code

Sub termijn1()
' termijn1 Macro
'
'
ActiveDocument.Unprotect
With ActiveDocument
Selection.GoTo What:=wdGoToBookmark, Name:="bldwzr1"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.TypeText Text:="aap"
ActiveDocument.Protect wdAllowOnlyFormFields, True
End With
End Sub

Nu wil ik alleen dat de tekst afhankelijk wordt van de keuze in de listbox, dus na het kiezen van aap in de listbox, bladwijzer "bldwzr1" vullen met de tekst aap etc.

Alvast bedankt!