[WORD][VBA] Sub of Function is niet gedefinieerd

[4Real]

Visual Basic:

Private Sub cmdOK_Click()
VullenBladwijzer "Naam", txtNaam.Text
VullenBladwijzer "Telefoon", txtTelefoon.Text
Unload Me
End Sub

De eerste regel wordt niet gedefinieerd.
Wie kan me helpen hiermee?
Heb heel google al afgezocht en niks gevonden.

Het is nodig voor userform om in word naam en telefoon in te voegen dmv Bladwijzers.

[ Voor 15% gewijzigd door 4Real op 26-03-2004 10:44 ]

[Schonhose]

Allereerst: welk dik gedrukt stuk bedoel je? Ik zie namelijk niets.

Je hebt een formulier met twee velden: txtNaam en txtTelefoon.
Deze geef je als parameters mee aan een sub (functie) VullenBladwijzer (weet niet of dat een eigenschreven functie of een gedefineerde functie in Word zelf is)

Maar ik snap er verder niet veel van.... waar gaat het nu fout?

[4Real]

Waar het fout gaat??
Als ik in visual basic editor op Play druk.
Dan komt ie met de fout dat Private Sub cmdOK_Click() niet gedefinieerd is

Wat doe ik niet goed??

[Schonhose]

Post het word document anders even met de macro erin.

Als ik het goed begrijp wil je die functie laten uitvoeren? Dus laat je de code starten vanaf die sub?

Die sub wordt aangeroepen op het moment dat je op de OK knop van je formulier drukt.

Ik begrijp nog steeds niet wat je doet...

[4Real]

Visual Basic:

On Error Resume Next
txtNaam.Text = ActiveDocument.Bookmarks("Naam").Range.Text
txtTelefoon.Text = ActiveDocument.Bookmarks("Telefoon").Range.Text
End Sub
Private Sub cmdOK_Click()
VullenBladwijzer "Naam", txtNaam.Text
VullenBladwijzer "Telefoon", txtTelefoon.Text
Unload Me


End Sub

Public Sub Autonew()
FrmTelefoon.Show

End Sub

[Schonhose]

On Error Resume Next
txtNaam.Text = ActiveDocument.Bookmarks("Naam").Range.Text
txtTelefoon.Text = ActiveDocument.Bookmarks("Telefoon").Range.Text
End Sub

Private Sub cmdOK_Click()
VullenBladwijzer "Naam", txtNaam.Text
VullenBladwijzer "Telefoon", txtTelefoon.Text
Unload Me
End Sub

Public Sub Autonew()
FrmTelefoon.Show
End Sub

Blokken zijn in bold weergegeven, in Italics vind ik een End sub die nergens aangekoppeld is. Is dat je volledige code???

[ Voor 13% gewijzigd door Schonhose op 26-03-2004 12:04 ]