[Word 2000]: Sjablonen en formulieren

[koelkast]

Ik wil in Word 2000 graag een sjabloon maken voor het maken van memos. Dat bijv. datum, naam voor wie het bestemd is, onderwerp, etc. op een standaard plaats komen te staan. Nu ben ik zover dat ik formulieren kan maken, en die in het document in kan vullen. Tot zover prima. Nu heb ik gezien dat het mogelijk is dat je bij het openen van een sjabloon automatisch een pop-up krijgt, waarin je die gegevens in kan vullen, die dan weer in het document komen te staan. Dát is wat ik ook wil.

Heeft iemand enig idee hoe je dit doet? En waar ik informatie kan vinden hierover? Of heeft iemand voorbeeldsjablonen ergens? Of ergens online staan?

[mjax]

Het antwoord:

- VBA (Alt-F11 in elke Office applicatie)
- UserForms
- Sjabloon maken en op DocumentNew event het UserForm laten zien

Ga verder maar lekker zoeken, want hier is een hoop over te vinden op internet.

[koelkast]

Bedankt! Nu kan ik wel een formulier ontwerpen, maar ik krijg het niet voor elkaar om een knop te maken, bijv. OK, waar je dan op klikt en waarmee het ingevulde spulletje in het document ingevoegd wordt. Hoe moet ik dat uberhaupt doen? En waar kan ik daar meer info over vinden op het internet?

[mjax]

Menu Beeld, Werkset tonen. Verder werkt de VBA ontwikkelingomgeving ongeveer zoals Visual Basic.

Knop neerzetten, dubbelklikken, code invoeren.

[Remco]

Ik zal je wel wat code geven.
Moet je zelf maar even plaatsen/wijzigen, maar dan ben je in ieder geval op weg.
Je moet ook even je bladwijzers definieren in het document.

***bij starten
Sub AutoNew()
Load UserForm1
UserForm1.Show
End Sub

*** na OK knop
Private Sub CommandButton1_Click()
UserForm1.Hide

Selection.GoTo What:=wdGoToBookmark, Name:="Aan"
Selection.TypeText Text:=Aan
Selection.GoTo What:=wdGoToBookmark, Name:="TAV"
Selection.TypeText Text:=TAV
Selection.GoTo What:=wdGoToBookmark, Name:="Fax"
Selection.TypeText Text:=Fax
Selection.GoTo What:=wdGoToBookmark, Name:="Van"
Selection.TypeText Text:=Van
Selection.GoTo What:=wdGoToBookmark, Name:="Datum"
Selection.TypeText Text:=Datum
Selection.GoTo What:=wdGoToBookmark, Name:="FaxToestel"
Selection.TypeText Text:=FaxToestel
Selection.GoTo What:=wdGoToBookmark, Name:="Toestel"
Selection.TypeText Text:=Toestel
Selection.GoTo What:=wdGoToBookmark, Name:="Bijlagen"
Selection.TypeText Text:=Bijlagen
Selection.GoTo What:=wdGoToBookmark, Name:="Onderwerp"
Selection.TypeText Text:=Onderwerp

Selection.EndKey Unit:=wdStory

Unload UserForm1

End Sub

*** Bij Cancel knop
Private Sub CommandButton2_Click()
Unload UserForm1
ActiveWindow.Close
End Sub

[koelkast]

Op donderdag 04 april 2002 14:46 schreef Remc0 het volgende:
Hele hoop code waar ik wat mee kan!

Remc0, cool, ontzettend bedankt! Het werkt prima zo!