PDA

Vollständige Version anzeigen : Adressdaten in Worddokument übernehmen...


Megamike
30.06.2001, 08:11
Dieses Forum ist ja klasse...

Hallo Leute,
ich habe ein Kundenformular in Access und möchte per Knopfdruck ein Worddokument aufrufen in dem direkt die Kundenadresse (Name, Anschrift etc.) steht.

Wahrscheinlich ist die Frage so einfach, dass Ihr Euch kaputtlacht... aber meine Access-Schulung ist schon einige Jahre her...

Vielen Dank schon mal!

Micha

Pepi
30.06.2001, 10:27
Hi Micha,
du könntest folgenden Code anwenden (bzw. ein wenig umbauen...)

Set appWord = CreateObject("Word.Application")
'Ggf. mit GetObject auf existierendes Doc. zugreifen (s. Onlinehilfe)
appWord.Documents.Add 'ggf. die zu verwendende Vorlage angeben
With appWord
.Selection.Goto what:=wdGoToBookmark, Name:="Name"
.Selection.TypeText Feld_mit_Name
.Selection.Goto what:=wdGoToBookmark, Name:="Adresse"
.Selection.TypeText Feld_mit_Adresse
.Selection.Goto what:=wdGoToBookmark, Name:="PLZ"
.Selection.TypeText Feld_mit_PLZ
.Selection.Goto what:=wdGoToBookmark, Name:="Ort"
.Selection.TypeText Feld_mit_Ort
End With

Res1999
30.06.2001, 15:32
Hallo Micha

Schau mal unter www.haraldlanger.de (http://www.haraldlanger.de) nach dort kannst du unter Donwnloads eine Fertige Datenbank für dein Problem bekommen.

Christian