Userform i Word 2000

På ComboBoxens Change event/hændelse lave du dette her:

Private Sub ComboBox1_Change()
    SetBookmarkAgain "BOGMÆRKETS NAVN", ComboBox1.List(ComboBox1.ListIndex)
End Sub

og så indsætter du makro'en, som du finder her:
http://www.win-consult.com/Tips/LibrarySource.asp?App=Word&Lib=Bookmarks

God fornøjelse www.win-consult.com

Hej !
Kan ikke gennemskue din kode i "PrivateSub ComboBox1_Change()"
Har prøvet at lave en simpel UserForm tilknyttet et dokument, og skrevet koden, men der viser sig ikke noget i cboBoxen. Ku' du' gi et simpelt eksempel, hvor du lister et par navne og adresser. (eller er det for meget forlangt). forøvrigt ! er vi enige om: at bogmærmærkerne skal hedde det samme både på¨formularen og på UserFormen.
Hilsen Hanne

I dit dokument har du et bogmærke som hedder "NAVN"

Privat Sub Userform_Initialize()
    ComboBox1.AddItem "Peter"
End Sub

Private Sub ComboBox1_Change()
    SetBookmarkAgain "NAVN", ComboBox1.List(ComboBox1.ListIndex)
End Sub

Public Sub SetBookmarkAgain...og resten fra det link du har fået, ikk' !?!
fd@win-consult.com

Jeg bryder lige ind *S*

Det er ikke nogen god ide at have indsættelse af oplysninger på comboBox1_Change, da oplysningerne fra comboboksen, så kan blive indsat ved bogmærkerne flere gange (ved nyt valg). I stedet burde oplysningene indsættes via en commandoknap (en OK knap)

rvm> Enig.

Hej
Det med at data overføres v.h.a en OK-knap er faktisk det jeg ønsker. Det der står i "Private Sub Userform_Initialize()
(alså cboBoxen) skal indsættes ved et bogmærke i dokumentet. Men det jeg så også gerne vil have er:

Når jeg har valgt "NAVN" i cboBoxen skal der være en kode, der sætter adressen ind ved et andet bogmærke på formularen, når jeg klikker på OK-knappen.
Hanne

Hvor kommer adressen fra? Hvis den er kodet ind i et modul, så kunne koden se således ud:

Sub OK-Knap_Clik()
    ActiveDocument.Bookmarks("Navn").Select
    Selection.TypeText Text:=ComboBox1
    ActiveDocument.Bookmarks("Adresse").Select

    Select Case ComboBox1
        Case "Peter"
            Selection.TypeText Text:="Petersvej"
        Case "Jørgen"
            Selection.TypeText Text:="Jørgensvej"
        Case Else
            MsgBox "Kender ikke personen :-)"
    End Select
end sub

Hej
Tak for koden - den virker
Hilsen Hanne