Probleem met VBA script in word sjabloon

[erikdw]

Ik ben bezig een word-sjabloon te maken, waarbij je bij het openen een userform te zien krijgt dat je dient in te vullen, en waarvan de antwoorden dan op verschillende plaatsen in het document zullen ingevuld worden.

Hiervoor heb ik in het document DocVariables gezet, en een scriptje gemaakt in VBA.
Nu ben ik een absolute nieuweling in het gebruik van VBA, en zit er ergens een foutje in het script dat ik er maar niet uitkrijg (document crasht altijd na het invullen van het userform)

Ergens in het script zou dus een fout(je) moeten zitten

Stukje "ThisDocument" script:

Option Explicit

Private Sub Document_New()

Dim oForm As frmeindafrekening

On Error GoTo Error_Documentnew


Set oForm = New frmeindafrekening
oForm.Tag = "Cancel"
oForm.Show

If oForm.Tag = "Ok" Then
ActiveDocument.Variables("provincie").Value = oForm.provincie.Text
ActiveDocument.Variables("gemeente_stad").Value = oForm.gemeente_stad.Text
ActiveDocument.Variables("dossiernr").Value = oForm.dossiernr.Text
ActiveDocument.Variables("dossiernaam").Value = oForm.dossiernaam.Text
ActiveDocument.Fields.Update

Unload oForm
Set oForm = Nothing
Else
Unload oForm
Set oForm = Nothing
ActiveDocument.Close wdDoNotSaveChanges
End If

Exit_Documentnew:

Exit Sub

Error_Documentnew:
On Error Resume Next

Unload oForm
Set oForm = Nothing
ActiveDocument.Close wdDoNotSaveChanges

Resume Exit_Documentnew

End Sub


Stukje frmeindafrekening script:

Private Sub knop_einde_Click()
Hide
End Sub

Private Sub knop_vervolg_Click()
With ActiveDocument
For j = 1 To 4
.Variables(Me("titel" & j).Caption).Value = Me("tekst" & j).Text
Next
.Fields.Update
End With
Hide
End Sub


Heeft er iemand van jullie enig idee waar mijn fout zit?

Alvast heel erg bedankt...

 

[etri]

Zet even de optie 'Break on all errors' aan en je weet direct waar het fout gaat:
- Ga in de VBA omgeving naar menu Tools > Options
- Ga naar het derde tabblad 'General'
- Klik de optie 'Break on all errors' aan

De volgende keer zal VBA gewoon een foutmelding geven, ondanks je error handlers.

Succes!

 

[erikdw]

Zet even de optie 'Break on all errors' aan en je weet direct waar het fout gaat:
- Ga in de VBA omgeving naar menu Tools > Options
- Ga naar het derde tabblad 'General'
- Klik de optie 'Break on all errors' aan

De volgende keer zal VBA gewoon een foutmelding geven, ondanks je error handlers.

Succes!

Heb ik zonet gedaan, en ik kom op het Userform uit dan... maar eigenlijk geen idee waar de fout dan precies zit...

Iemand die een fout in de code ziet?