Access tietoja valmiiseen Word lomakkeeseen, miten?

Visual basicilla pystyisit tekemään ohjelman, jolla voi lukea suoraan tietokannasta tietoa esimerkiksi word-lomakkeeseen.

Muuta keinoa ei oikein ole, vb:llä tai vastaavalla ohjelmointikielellä pystyt parhaiten hallitsemaan tietoa ja kirjoittamaan sen haluttuun kohtaan.

Tsekkaa lisätietoa myös osoitteessa http://www.msdn.com

Tätä oon käytellyt-elikkä tee lomakkeelle kirjainmerkit oikeisiin paikkoihin ja nimeä ne-muuta koodissa nimet vastaamaan kirjainmerkkejäsi jne...

Option Explicit
Public pappWord As Word.Application
Private Sub VieWord()
On Error GoTo Virhe
Dim Päiväys As String
Dim Polku As String

Set pappWord = GetObject(, "Word.Application")
Päiväys= Format(Date, "mmmm d, yyyy")
Polku = "C:\Bookmark.dot"
pappWord.Documents.Add Polku
On Error Resume Next
With pappWord.Selection
.GoTo What:=wdGoToBookmark, Name:="Nimi"
.TypeText Text:=txtNimi

.GoTo What:=wdGoToBookmark, Name:="Yritys"
.TypeText Text:=TxtYritys

.GoTo What:=wdGoToBookmark, Name:="Osoite"
.TypeText Text:=TxtOsoite

.GoTo What:=wdGoToBookmark, Name:="Fax"
.TypeText Text:=TxtFax

.GoTo What:=wdGoToBookmark, Name:="Päiväys"
.TypeText Text:=Päiväys
End With
On Error GoTo Virhe
With pappWord
.Selection.WholeStory
.Selection.Fields.Update
.Selection.HomeKey Unit:=wdStory
.ActiveWindow.WindowState = 0
.Visible = True
.Activate
End With
VirhePoistu:
Set pappWord = Nothing
Exit Sub

Virhe:

If Err.Number = 429 Then
Set pappWord = CreateObject("Word.Application")
Resume Next
Else
MsgBox "Virhe " & Err.Number & "; Wordiä ei voida avata"
Resume VirhePoistu
End If

End Sub