Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon desperate vom 16.04.2019, 10:42 Options
Datensatzinhalte in ein bestehenden Wordbrief importieren
Hallo Access-Experte,
Ich bin gerade am verzweifeln.
Ich stehe vor folgendem Problem:
In der Access-DB, will ich eine Befehlsschaltfläche einfügen, welche mir die Daten aus dem aktuellen Datensatz an einen Wordbrief weiter gibt.
Also z.B. die Adresse und die Briefanrede automatisch aus der Datenbank erstellt.
Also soll diese Befehlsschaltfläche...
...die Briefvorlage öffnen,
...die Daten aus der Datenbank im Brief einfügen,
...und mir diesen Brief anzeigen!
was muss ich dafür Access- und Word-technisch anstellen?!
Wäre echt froh, wenn mir jemand dabei weiter helfen könnte.
Grüsse vom Verzweifelten_Access_user.
Ich bin gerade am verzweifeln.
Ich stehe vor folgendem Problem:
In der Access-DB, will ich eine Befehlsschaltfläche einfügen, welche mir die Daten aus dem aktuellen Datensatz an einen Wordbrief weiter gibt.
Also z.B. die Adresse und die Briefanrede automatisch aus der Datenbank erstellt.
Also soll diese Befehlsschaltfläche...
...die Briefvorlage öffnen,
...die Daten aus der Datenbank im Brief einfügen,
...und mir diesen Brief anzeigen!
was muss ich dafür Access- und Word-technisch anstellen?!
Wäre echt froh, wenn mir jemand dabei weiter helfen könnte.
Grüsse vom Verzweifelten_Access_user.
Antwort 1 von Teddy7 vom 16.04.2019, 12:18 Options
dazu hab ich mir mal diesen Schnipsel gespeichert:
füge den folgenden Code ein und pass ihn an:
Dim oWrd As New Word.Application
Set oWrd = CreateObject("word.application")
oWrd.Documents.Open ("e:\Pfad\Dateiname.doc")
oWrd.Visible = True 'wenn du das Dokument sehen willst
With oWrd.ActiveDocument
.Bookmarks("Anrede").Range.Text = strAnrede
.Bookmarks("Nachname1").Range.Text = strKpName
.Bookmarks("Nachname2").Range.Text = strKpName
.Bookmarks("Vorname1").Range.Text = strKPVorname
.Bookmarks("Vorname2").Range.Text = strKPVorname
End With
Achte auf darauf, daß der Verweis auf die Wordbibliothek gesetzt ist.
Und natürlich müssen in dem Word-Dokument entsprechend benamste Textmarken existieren.
Gruß
Teddy
füge den folgenden Code ein und pass ihn an:
Dim oWrd As New Word.Application
Set oWrd = CreateObject("word.application")
oWrd.Documents.Open ("e:\Pfad\Dateiname.doc")
oWrd.Visible = True 'wenn du das Dokument sehen willst
With oWrd.ActiveDocument
.Bookmarks("Anrede").Range.Text = strAnrede
.Bookmarks("Nachname1").Range.Text = strKpName
.Bookmarks("Nachname2").Range.Text = strKpName
.Bookmarks("Vorname1").Range.Text = strKPVorname
.Bookmarks("Vorname2").Range.Text = strKPVorname
End With
Achte auf darauf, daß der Verweis auf die Wordbibliothek gesetzt ist.
Und natürlich müssen in dem Word-Dokument entsprechend benamste Textmarken existieren.
Gruß
Teddy
Antwort 2 von Springmaus vom 18.04.2019, 04:00 Options
viel einfacher ist es, wenn Du es einen Word-Serienbrief erstellst und mit der Abfrage verknüpfst. Dann brauchst Du mit dem Button nur den Brief zu öffnen und den Seriendruck auszuführen und der Text ist automatisch eingefügt.
Also wie Teddy bereits geschrieben hat einfach nur öffnen, die with-end with-Anweisung kann dann entfallen.
gruß Marie
Also wie Teddy bereits geschrieben hat einfach nur öffnen, die with-end with-Anweisung kann dann entfallen.
gruß Marie
Ähnliche Themen
pst datei importieren in exchange
lisi 15.05.2007 - 138 Hits -
Lesezeichen lassen sich nicht in den IE importieren
treikul 21.11.2007 - 95 Hits -
Aus excel Datei Adressetiketen importieren?
gogogol 18.12.2007 - 285 Hits - 3 Antworten
outlook express mails importieren von dbx dateien
dela4 06.03.2008 - 280 Hits -
exel datei importieren
georgehta 14.03.2008 - 89 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
