Leerzeilen in Office-Dokumenten vermeiden
Einleitende Bemerkung
Mittels umfassender Scripts lassen sich Leerzeilen im Ausdruck vermeiden, d.h. Felder, die in der Adresse, Person oder Firma nicht gefüllt sind, werden nicht als sog. Leerzeilen angedruckt. In den meisten Fällen muss dies durch bossinfo.com erstellt werden.
Definition der Office-Vorlage
Anstelle von exakten Titeln wie Firma, Person oder Strasse sind die Bezeichnungen der Platzhalter im Word-Dokument als ///Zeile/// anzugeben. Hinweis: Wir empfehlen aufgrund von gemachten Erfahrungen, dass die Zeichenfolge /// - zwar selten - zu Problemen führen kann. Verwenden Sie an deren Stelle z.B * oder ***.
Die einzelnen Zeilen können je nach Adresse verschiedene Werte haben. Im nachfolgenden Script ist folgender Aufbau der Adresse vorgesehen:
| Platzhalter | Adressausgabe | Adressausgabe | Adressausgabe | Adressausgabe |
|---|---|---|---|---|
| ///Zeile1/// | Firma/Person | Firma/Person | Firma/Person | Firma/Person |
| ///Zeile2/// | Firma2/Person2 | Firma2/Person2 | Adresszusatz | Strasse |
| ///Zeile3/// | Adresszusatz | Strasse | Strasse | Ort |
| ///Zeile4/// | Strasse | Ort | Ort | |
| ///Zeile5/// | Ort | |||
| ///Zeile6/// | ||||
| ///Datum/// | Tagesdatum | Tagesdatum | Tagesdatum | Tagesdatum |
| ///Briefanrede/// | Firma/Person | Firma/Person | Firma/Person | Firma/Person |
Im aufgeführten Beispiel wird davon ausgegangen, dass
- immer eine Strasse und ein Ort vorhanden sind
- die Postfachzeile nicht ausgegeben wird
- automatisch unterschieden wird ob es sich um eine Firmen oder Personenadresse handelt. Durch dieses Vorgehen werden die Leerzeilen jeweils am Schluss und nicht zwischen die Adresszeilen gedruckt.
Platzhalter-Scripts
Zeile1: Firma oder Person1
RELATE ONE([s0_Adresse]r_Person) RELATE ONE([s0_Adresse]r_Firma) Case of : ([s0_Adresse]r_Person#0) <>Result_Text:=[s0_Person]c_Anrede+" "+[s0_Person]s_Vorname+" "+[s0_Person]s_Nachname : ([s0_Adresse]r_Firma#0) <>Result_Text:=[s0_Firma]s_Firma End case
Zeile2: Person2, Firma2, Zusatz, Strasse
RELATE ONE([s0_Adresse]r_Person) If ([s0_Adresse]r_Person#0) If ([s0_Person]s_Nachname__2="") If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Adresse]s_Strasse Else <>Result_Text:=[s0_Adresse]s_Adresszusatz End if Else <>Result_Text:=[s0_Person]c_Anrede__2+" "+[s0_Person]s_Vorname__2+" "+[s0_Person]s_Nachname__2 End if Else If ([s0_Firma]s_Firma__2="") If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Adresse]s_Strasse Else <>Result_Text:=[s0_Adresse]s_Adresszusatz End if Else <>Result_Text:=[s0_Firma]s_Firma__2 End if End if
Zeile3: Zusatz, Strasse, Ort
RELATE ONE([s0_Adresse]r_Ortschaft) RELATE ONE([s0_Adresse]r_Person) If ([s0_Adresse]r_Person#0) If ([s0_Person]s_Nachname__2="") If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft Else <>Result_Text:=[s0_Adresse]s_Strasse End if Else If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Adresse]s_Strasse Else <>Result_Text:=[s0_Adresse]s_Adresszusatz End if End if Else If ([s0_Firma]s_Firma__2="") If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft Else <>Result_Text:=[s0_Adresse]s_Strasse End if Else If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Adresse]s_Strasse Else <>Result_Text:=[s0_Adresse]s_Adresszusatz End if End if End if
Zeile4: Strasse, Ort
RELATE ONE([s0_Adresse]r_Ortschaft) RELATE ONE([s0_Adresse]r_Person) If ([s0_Adresse]r_Person#0) If ([s0_Person]s_Nachname__2="") If ([s0_Adresse]s_Adresszusatz#"") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft End if Else If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft Else <>Result_Text:=[s0_Adresse]s_Strasse End if End if Else If ([s0_Firma]s_Firma__2="") If ([s0_Adresse]s_Adresszusatz#"") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft End if Else If ([s0_Adresse]s_Adresszusatz="") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft Else <>Result_Text:=[s0_Adresse]s_Strasse End if End if End if
Zeile5: Ort
RELATE ONE([s0_Adresse]r_Ortschaft) If ([s0_Adresse]s_Adresszusatz#"") <>Result_Text:=[s0_Ortschaft]s_PLZ+" "+[s0_Ortschaft]s_Ortschaft Else <>Result_Text:="" End if