MS Word VBA texbox default waarde

[JohanError]

Hallo,
Ik heb een userform aangemaakt in VBA(word 2013) die mij toelaat op een snelle manier de document custumproperties aan te passen.
In mijn userform heb ik dus textboxen voor elke propertie gemaakt. Nu zou ik willen dat de default waarde vandeze textboxen de huidige waarde is van des betreffende propertie in de active word document.
Wie kan mij hierbij helpen?
Alvast bedankt

 

[OctaFish]

Dat kan door ze bij het initialiseren van het formulier weer uit te lezen. Dus in essentie dezelfde regels die je gebruikt bij het opslaan, maar dan omgekeerd.

 

[JohanError]

Bedankt voor de info OctaFish

Gezien ik zeer groen ben in deze materie lukt het mij niet

Dit is de code die ik gebruik.
Weet soms ook hoe het komt dat het soms niet werkt als ik een new document heb?
Nog thans is de code en de form gemaakt onder normal.dotm
Ik wil dit in alle word documenten kunnen gebruiken.

Private Sub Knop16_Click()

Dim Strklantnaam As String

On Error GoTo line1

Strklantnaam = txtboxklantnaam


ActiveDocument.CustomDocumentProperties("klantnaam") = txtboxklantnaam.Text

ActiveDocument.Fields.Update
line1:
Userform1.Hide
End Sub

 

[OctaFish]

Ik zou zeggen: doe er een voorbeeld bestandje bij, dat werkt voor ons een stuk makkelijker. Normaal gesproken zou ik zeggen:

txtboxklantnaam = ActiveDocument.CustomDocumentProperties("klantnaam")

 

[JohanError]

word

Dan had ik al gedaan maar.
in bijlage het bestandBekijk bijlage Protocol_IQ_ME_01_Conform_A_Opp_ruwheid008_eng.zip

 

[OctaFish]

Je bestand bevat geen Userform.

 

[JohanError]

userform

Bekijk bijlage DatafieldsVulin.zipBekijk bijlage DatafieldsVulin.zip

 

[OctaFish]

We gaan de goede kant op; de macro is in te lezen, maar het formulier niet. Het zou een stuk handiger zijn als je de dotm sjabloon zou posten .

 

[JohanError]

Bekijk bijlage Normal01.zip