Gegevens uit VBA formulier plaatsen in velden Word

[HuubVermeulen]

Hoi

Ik wil graag het volgende bereiken met VBA en Word
- gegevens worden in een VBA formulier zijn ingevuld en worden vervolgens automatisch in een MS word document geplaatst
- als er later gegevens gewijzigd worden in het VBA formulier moeten deze in het Word document de eerdere ingevoegde gegegevens vervangen.
- wordt het Word document geopend dan worden automatisch de eerder gevulde gegevens uit het Word document in het formulier geplaatst

Kan iemand mij helpen? Het gaat me er met name om: wat moet ik Word doen en vervolgens in VBA om gegegevens uit te kunnen wisselen tussen formulier en Word docuemnet.

Alvast bedankt.

Groet,

Huub

 

[snb]

zet in het userform bijvoorbeeld 3 tekstvakken met de namen tekst1, tekst2 en tekst3.
Zet in het Word-document 3 documentvariabeelen (menubalk/ivoegen/veld/docvariable) met de namen tekst1, tekst2 en tekst3.
Schrijf de gegevens van het userform weg naar het document met:

Private Sub knop_vervolg_Click()
  For j=1 to 3
    ActiveDocument.Variables("tekst" & j) =me("tekst" & j).Text
  next
End Sub

lees de gegevens van het document in in het userform met

Private Sub Userform_Initialize()
  For j=1 to 3
    me("tekst" & j).Text=activedocument.variables("tekst" & j)
  Next
End Sub

 

[benjansen]

Extraatje

Hoi,

Als ik de bovenstaande code gebruik krijg ik een error op ME. Ik wil deze code precies gebruiken voor hetgeen wat er staat.

Inlezen waardes van de variabelen bij opstarten
Wegschrijven van de nieuwe variabelen in het userform.

Kunnen jullie helpen?

Groetjes,
Ben

 

[snb]

Dan heb je in het formulier geen tekstvakken staan met de Name tekst1, tekst2 en tekst3 (Name is iets anders dan Caption).
Of je moet de regel Option Explicit verwijderen.

 

[HanZl]

Dan heb je in het formulier geen tekstvakken staan met de Name tekst1, tekst2 en tekst3 (Name is iets anders dan Caption).
Of je moet de regel Option Explicit verwijderen.

Mijn Name staat goed, maar het uitlezen blijft hangen op Me.

Ik probeer mijn userform1 nu te vullen met de docvariabelen (knop voor gemaakt)
Private Sub CommandButton1_Click()
For j = 1 To 3
Me("tekst" & j).Text = ActiveDocument.Variables("tekst" & j)
Next
End Sub


Help, ik zie geen Option Explicit...