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