fout 424 object vereist

[Roeeeedi]

Hallo,

Ik heb voor het eerst iets geprogrammeerd in vba in word.

Ik heb de onderstaande userform geprogrammeerd:

Private Sub CommandButtonAnnuleren_Click()
    Unload Me
    ActiveDocument.Close SaveChanges:=False
End Sub

Private Sub CommandButtonLeegmaken_Click()
     OptionButtonVriendelijkeGroet.Value = True
     TextNaamOntvanger = Null
     TextAdresOntvanger = Null
     TextBoxAanhef = Null
     TextBoxFunctie = Null
     ComboBoxPlaatsGesprek = Null
     ComboBoxDagGesprek = Null
     TextBoxDatumGesprel = Null
     TextBoxTijdGesprek = Null
     ComboBoxDuurVanGesprek = Null
     TextBoxNaamAfzender = Null
     TextBoxFunctieAfzender = Null
 End Sub

Private Sub CommandButtonOk_Click()
    Dim strAfsluiting As String
    If OptionButtonVriendelijkeGroet = True Then strAfsluiting = "Vriendelijke groet"
    If OptionbuttonHoogachtend = True Then strAfsluiting = "Hoogachtend"
    If OptionButtonSportieveGroet = True Then strAfsluiting = "Sportieve groet"
    If OptionButtonGraagTotZiens = True Then
    strAfsluiting = "Graag tot ziens"
    End If
        Application.ScreenUpdating = False
    With ActiveDocument
    .Bookmarks("Aanhef").Range.Text = TextBoxAanhef.Value
    .Bookmarks("AdresOntvanger").Range.Text = TextAdresOntvanger.Value
    .Bookmarks("Afsluiting").Range.Text = Afsluiting.Value
    .Bookmarks("Daggesprek").Range.Text = ComboBoxDagGesprek.Value
    .Bookmarks("Datum").Range.Text = TextBoxDatumGesprel.Value
    .Bookmarks("Duurgesprek").Range.Text = ComboBoxDuurVanGesprek.Value
    .Bookmarks("Functie").Range.Text = TextBoxFunctie.Value
    .Bookmarks("FunctieAfzender").Range.Text = TextBoxFunctieAfzender.Value
    .Bookmarks("NaamAfzender").Range.Text = TextBoxNaamAfzender.Value
    .Bookmarks("Naamontvanger").Range.Text = TextNaamOntvanger.Value
    .Bookmarks("PLaatsgesprek").Range.Text = ComboBoxPlaatsGesprek.Value
    .Bookmarks("Tijdstip").Range.Text = TextBoxTijdGesprek.Value
    End With
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    OptionButtonVriendelijkeGroet.Value = True
        With ComboBoxPlaatsGesprek
        .AddItem "Utrecht, Spierstraat 88"
        .AddItem "Utrecht Spierstraat 90"
        .AddItem "Antwerpen, Amerikalei 12"
        .AddItem "Antwerpen, Amerikalei 14"
        End With
        With ComboBoxDagGesprek
        .AddItem "maandag"
        .AddItem "dinsdag"
        .AddItem "woensdag"
        .AddItem "donderdag"
        .AddItem "vrijdag"
        End With
        With ComboBoxDuurVanGesprek
        .AddItem "een half uur"
        .AddItem "1 uur"
        .AddItem "2 uur"
        .AddItem "de hele dag"
        End With
        With AdresvanAfzender
        .AddItem "Utrecht, Spierstraat 88"
        .AddItem "Utrecht Spierstraat 90"
        .AddItem "Antwerpen, Amerikalei 12"
        .AddItem "Antwerpen, Amerikalei 14"
        End With
End Sub

Nu wil ik bij het openen van het sjabloon dat de userform automatisch wordt geopend.

Dit heb ik ingesteld bij ThisDocument met:

Private Sub Document_New()
UitnodigingGesprek.Show
End Sub

Maar als ik het sjabloon open dan geeft hij fout 424 object vereist aan. Het userform wordt niet geopend en "uitnodiginggesprek.show wordt geel gemarkeerd.

Kan iemand mij vertellen wat ik fout doe en hoe ik dit kan oplossen?

 

[huijb]

Verplaatst, Visual Basic is iets anders dan VBA

 

[Roeeeedi]

Is er iemand die een oplossing weet voor het probleem?

 

[OctaFish]

De foutmelding duidt er op dat het formulier niet gevonden kan worden. Check dus (al lijkt dat een open deur) of de naam van het formulier wel identiek is.... Post anders de sjabloon mee, dan kunnen we het zelf uitproberen. Dat werkt voor ons zowiezo veel makkelijker, dan door meters code te hoeven ploegen