[MS Word 2000] Kan ik dit met VBA voorelkaar krijgen?

[DPLuS]

Hoi,

Ik wil in een eigengemaakte Word-template waarden automatisch laten invoeren.
Waarden die de gebruiker van te voren via een input-box invoert. (Hij definieert bijv. 1 keer zijn naam en dat wordt dan 3 keer in het word document "geplakt").
Is dit überhaupt mogelijk?

Ik ben helemaal niet bekend met dit gedeelte van Word, dus als iemand me een beetje op weg kon helpen zou ik al heel gelukkig zijn.

Ik zag bij het menu'tje invoegen al iets staan met velden, dus misschien dat ik via VBA wat tekst kan plakken in die "speciale" velden...

[Verwijderd]

ik weet alleen dat het wel kan Hier wordt het gebruikt met een offerte database

[ Voor 43% gewijzigd door Verwijderd op 05-12-2003 13:22 ]

[whoami]

Ja, 't is mogelijk door middel van bookmarks te gebruiken.

Je maakt bookmarks aan voor de velden die je automatisch wilt laten invullen, en dan kan je met deze code die bookmark invullen:

code:

ThisDocument.Bookmarks.Item(1).Range.Text

Waarbij die 1 de index van je bookmark is. (En ik geloof dat je ook de naam van de bookmark kunt opgeven ipv de index).

[Remco]

zekers met namen:

Visual Basic:

    Selection.GoTo What:=wdGoToBookmark, Name:="Onderwerp"
    Selection.TypeText Text:=Onderwerp

onderwerp is een textbox.
Zit dit achter je "OK" knop, en maak het bookmark onderwerp aan.
Weet alleen niet of je meerdere dezelfde bookmarks mag toevoegen.

[Masch]

Hier de collega van talle

code:

'via access -->
    .ActiveDocument.Bookmarks("klantnaam").Select
    .Selection.Text = (CStr(rstklant!Klantnaam))
'via Word?? -->
    .ActiveDocument.Bookmarks("jouw bookmark naam").Select
    .Selection.Text = ("output van jouw inputbox, zoiets als InputBox("waarde")")

[ Voor 13% gewijzigd door Masch op 05-12-2003 14:40 ]

[Elissen]

Namen van bookmarks moeten uniek zijn. Ik denk dat het wellicht handiger is om te zoeken naar een tekst en deze te vervangen.

code:

Sub ReplaceDemo()
Dim achternaam As String
    achternaam = InputBox("Uw naam")
    If Len(Trim(achternaam)) = 0 Then Exit Sub
    Selection.Find.Execute findtext:="%achternaam%", Forward:=True, _
      Wrap:=wdFindContinue, ReplaceWith:=achternaam, Replace:=wdReplaceAll
End Sub

[DPLuS]

Jongens, alvast bedankt voor jullie reacties, alleen nu wil ik dus zo'n bookmark veld toevoegen, alleen weet ik niet hoe dat ding heet in de nederlandse versie.
Ik dacht zelf aan DOCVARIABLE of QUOTE, of zit ik compleet fout nu??

[Masch]

Ja!

Kijk eens naar het menu invoegen -- bladwijzer

[DPLuS]

Bedankt, ik heb het tot nu als volgt werkende:

Een formulier met een textbox vraagt om input, en de waarde van textbox1.text gooi ik daarna in de bookmark via:

code:

Selection.GoTo What:=wdGoToBookmark, Name:="test"
Selection.TypeText Text:=textbox1.text

Alleen, hoe sluit ik dat formulier nu af?
Want als ik:

code:

me.hide

of

code:

unload me

doe, sluit Word alles af, dus ook het document zelf...

[Remco]

UserForm1.Hide

Selection.GoTo What:=wdGoToBookmark, Name:="Aan"
Selection.TypeText Text:=Aan

Selection.EndKey Unit:=wdStory

Unload UserForm1