Es gibt mehrere Möglichkeiten Serienbriefe für WinWord aus dem
Visual Data Publisher oder der Turbo Datenbank für Windows zu erstellen.
Tip 1:
|
| Serienbriefe mit Microsoft Word für Windows mittels DDE |
Vorgehensweise:
1. VDP starten und Formular öffnen
2. Word starten
3. <STRG> <F9> drücken
{} erscheinen
4. zwischen den beiden Klammern folgende Anweisungen schreiben
Syntax:
{DDEAUTO WINTDB "TABELLE.Formular" "Feld" *\ FORMATVERBINDEN}
Beispiel:
{DDEAUTO WINTDB "ADRESSEN.Formular_ADRESSEN" "Name" *\ FORMATVERBINDEN}
5. rechte Maustaste drücken und Menü anwählen
<Feldfunktionen anzeigen ein/aus><RETURN>
6. <Feld aktualisieren><RETURN>
jetzt wird immer der Feldinhalt des aktuellen Datensatz aus TDB in Word angezeigt.
Tip 2:
| | Serienbriefe mit Word für Windows mittels Datenbankjob |
Eine recht einfache besteht darin, eine Textdatei zu generieren, bei welcher die Felder durch
Semikolon getrennt sind. Über die Standard Exportfunktion geht das leider nicht, da für WinWord in der ersten Zeile der Textdatei die Feldlabels stehen müssen.
Über einen Datenbankjob ist die Sache schnell erledigt.
Die Methode hat auch noch mehrere Vorteile:
Man kann nur die wirklich benötigten Felder exportieren.
Man kann noch einige Feinheiten einbauen.
Hier ein Beispiel für einen entsprechenden Datenbankjob:
.REPORT
..Erstellt eine Textdatei zur Verwendung als Steuerdatei für
..WinWord Serienbriefe.
.PROLOG
.PW 0
..Feldlabels in die erste Zeile der Ausgabedatei
Firma; Firma2; Name; Strasse; Ort
.DATA
$(Firma ";" Zusatz ";" xAnrede Titel +" "??(Titel) Vorname +""??(Vorname) Name ";" xStrasse
";" xPLZ " " Ort ")
.EPILOG
Im nächsten Beispiel wurden folgende Erweiterungen implementiert:
Wenn eine Postfachpostleitzahl (PPLZ) angegeben ist, wird das Postfach und die PPLZ
ausgegeben.
Wenn keine Firma angegeben ist, wird in der ersten Zeile die Anrede und der Zusatz erst
nach dem Namen ausgegeben.
Außerdem wird noch eine komplette Briefanrede zusammengesetzt.
.REPORT
..Erstellt eine Textdatei zur Verwendung als Steuerdatei für
..WinWord Serienbriefe.
.PROLOG
.PW 0
Firma; Firma2; Name; Strasse; Ort; Briefanrede
.DEF xAnrede = Choice(Geschlecht,"Herrn ", "Frau ", "")
.DEF xBAnrede = Choice(Geschlecht, "r Herr ", " Frau ", " Damen undHerren")
.DEF xStrasse = Choice(SEL(PPLZ), "Postfach "+Postfach, Straße)
.DEF xPLZ = Choice(SEL(PPLZ), PPLZ, PLZ)
.DATA
.IF Firma
$(Firma ";" Zusatz ";" xAnrede Titel+" "??(Titel) Vorname+""??(Vorname) Name ";" xStrasse
";" xPLZ " " Ort "; Sehr geehrte" xBAnrede Titel+" "??(Titel) Name)
.ELSE
$(xAnrede ";" Titel+" "??(Titel) Vorname+" "??(Vorname) Name ";"Zusatz ";" xStrasse ";" xPLZ
" " Ort "; Sehr geehrte" xBAnrede Titel+" "??(Titel) Name)
.END
.EPILOG
|
