Office: (Office 2016) Bericht Zeilenumbruch in Textfeld

edv-master · 15. November 2016

Hallo,
gibt es irgendwie die Möglichkeit in einem mehrzeiligen Textfeld nur die erste Zeile nach einer bestimmten Anzahl Zeichen (idealerweise nach einem bestimmten Maß) den Text zu "umbrechen".

das Problem ist bei einer Adresse, die Post hat in der ersten Zeile einen Frankiervermerk.
Leider sind die Adressen immer unterschiedlich lang (haben manchmal 3, 4 oder 5 Zeilen)

Sieht also z.B. so aus (sind Daten die z.B. mit "=[Firmenname]" aus der berichtsabfrage geholt werden):
Firmenname
Vor- und Nachname
Zusatztext
Adresse
PLZ und Ort

Code:

Der darin enthaltene Steuerelementinhalt sieht so aus:

=Wenn([LieferadresseFirma]>"";[LieferadresseFirma] & "
") & Wenn([LieferadresseNachname] & [LieferadresseVorname]>"";[LieferadresseNachname] & " " & [LieferadresseVorname] & "
") & Wenn([LieferadresseZusatz]>"";[LieferadresseZusatz] & "
") & Wenn([LieferadresseStrasse]>"";[LieferadresseStrasse] & "
") & Wenn([LieferadresseLandkurz] & [LieferadressePLZ] & [LieferadresseOrt]>"";[LieferadresseLandkurz] & " - " & [LieferadressePLZ] & " " & [LieferadresseOrt])
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die erste Zeile sollte z.B. nach 20 Zeichen "umbrochen" werden - das Problem ist jedoch, das die erste Zeile manchmal der Firmenname, Vor-/Nachname oder Zusatz sein kann....

Hier mal ein Bild, evtl. versteht man dann das Problem besser (die Roten Linien/Rechtecke im Adressfeldbereich dürfen nicht beschrieben werden):

PS: man kann leider auch keine Art Bild (weißes Viereck) oder so einfügen was man "umfließen" lassen würde (was Access ja so und so nicht kann), da das Post-Programm ein Bild erkennt

Gruß und Danke
Stefan

:)

hcscherzer · 17. November 2016

Das alles im Steuerelement des Formulars zusammen zu setzen, halte ich für etwas umständlich und schlecht bearbeitbar.

Ich würde die Zeichenverkettung in eine Abfrage vor das Formular verlagern.
Oder - noch besser - in eine globale Prozedur, die in der Abfrage aufgerufen wird.
Die ID des Datensatzes wird als Argument übergeben und das Ergebnis zurückgeliefert. In der Prozedur selbst wird die Verkettung vorgenommen und - in Abhängigkeit von den Längen und den enthaltenenen Leerzeichen - ein oder mehrere Zeilenumbrüche durchgeführt.
Du willst ja, wenn die Länge > 20 ist, nicht genau bei 20 trennen, sondern beim Leerzeichen davor ...

edv-master · 17. November 2016

Hallo hcscherzer,

steh im Moment etwas auf dem Schlauch, wie würdest du das lösen - blick im Moment nicht wirklich durch *frown.gif*
Soweit check ichs: Du würdest die "fertige" Adresse bereits mit der Abfrage in den Bericht liefern (per VBA) - aber wie löse ich das in der Prozedur mit dem Zeilenumbruch....

...geil wäre es wenn man das irgendwie in einem Längenmaß trennen könnte - also bei z.B. 5 cm, aber das wird unmöglich sein....

Gruß
Stefan

PS: Man...... warum muss bei der Post immer alles kompliziert sein???? - Das nerft echt *mad.gif*

hcscherzer · 17. November 2016

5cm ist sehr schwierig, dazu müsste man den Zeichensatz und den gewählten Font berücksichtigen ... das ist in VB.Net zwar möglich aber nicht in VBA.

Die Sache mit dem Umbruch geht ungefähr so: Code:

function umbruch(text as string, wo as long) as string
dim p as long

do while len(text) > wo
p = instr(text, " ")
if p = 0 then exit do
umbruch = umbruch & left(text, p-1) & vbcrlf
text = mid(text, p+1)
loop
umbruch = umbruch & text
end function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist jetzt mit heißer Feder, ungetestet und ich sehe mindestens zwei Dinge, die noch geprüft werden müssten (wenn das Leerzeichen hinter der Marke 'wo' liegt oder wenn überhaupt kein Leerzeichen vorkommt).

edv-master · 17. November 2016

hi hcscherzer,

hmmm.... hab mal einfach deinen Code so genommen wie du ihn geschrieben hast....

aus dem "Ursprungs-Text":
Code:

Dies ist ein sehr langer Firmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird:
Code:

Dies
ist
ein
sehr
langer
Firmenname
Hans-Ludwig
Müller-Meyer
Zusatztext
zur
Adresse
Teststraße
123
D-12345
Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Problem ist vor allem wenn der Text ein Wort (also ohne Leerzeichen) ist (1. Zeile hier):
Code:

DiesIstEinSehrLangerFirmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann kommt das heraus:
Code:

DiesIstEinSehrLangerFirmenname
Hans-Ludwig
Müller-Meyer
Zusatztext
zur
Adresse
Teststraße
123
D-12345
Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab auch schon versucht einfach ein Rechteck über den Text zu legen - ist dann eben der Post Ihr Problem, wenn die so ein bescheuertes Adressfed möchten (muss der Postbote halt Rätselraten üben)
....der Druckertreiber an dem ich den Bericht sende erkennt dann aber das Rechteck als Bild (auch wenn es weiß ist) und sagt das an der Stelle (wo oben ja rot markiert ist) ein Bild (und auch ein Text - auch wenn hinter dem weißen Rechteck) ist und der "Brief" über die Post-Box nicht versendet werden kann....

Wie bescheuert muss man eigentlich sein, ein Adressfeld so seltsam zu formen....????

PS: Idalerweise sollte es so aussehen (Bei umbruch nach z.B. 18 Zeichen):
Code:

DiesIstEinSehrLang
erFirmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name

bzw. bei Leerzeichen zwischen den Wörtern:

Dies Ist Ein Sehr
Langer Firmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fraeser · 17. November 2016

Zur Ermittlung der Textbreite hatten wir hier mal das Thema:

http://www.ms-office-forum.net/forum...d.php?t=257155

markusxy · 17. November 2016

Man kann die Textbreite mit der Methode Report.TextWidth feststellen.
Natürlich geht das auch direkt über API.
Ich würde es vom Konzept so angehen:
Erstelle ein Label für das Adressfeld mit den vorgesehenen Maßen.

Nutze das Format Event, des Report Bereichs.
Ich würde im Event direkt ein Recordset mit den Rohdaten öffnen und den Text erstellen und dem Label zuweisen. Label.caption = Text.

Sollte nicht zu schwer sein, ansonsten gibts ja Helfer.

Ach ja, die Methode liefert Twips. 567 Twips = 1 cm.
LG Markus

hcscherzer · 17. November 2016

Stimmt, ich trenne nach jedem Blank ... wie gesagt, "mit heißer Feder" ..
Es muss ja der letzte Blank vor der Trennlänge genommen werden.

Ersetze mal die Zeile Code:

p = instr(text, " ")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch Code:

p = 1
do while p < wo
p = instr(p, text, " ")
loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und die Angelegenheit dass das erste Leerzeichen erst hinter der Trennlänge ist, hatte ich schon erwähnt.
Dass lässt sich (fast) nicht automatisieren, denn da muss man entweder eine Regel erfinden, wo getrennt wird oder (besser) von Hand trennen.

readonly · 17. November 2016

Hallo edv-master,

eine andere Möglichkeit wäre mit RegExp:
Code:

Option Compare Database
Option Explicit

Public Property Get ptyRegEx() As Object

Static objRegEx As Object

If objRegEx Is Nothing Then
Set objRegEx = CreateObject("VBScript.RegExp")

End If

Set ptyRegEx = objRegEx

End Property

Public Function ErsteZeileUmbrechen(ByVal varQuellText As Variant, _
Optional ByVal lngMaximalLaenge As Long = 18) As Variant

' Erste Zeile eines Textes spätestens nach einer bestimmten Anzahl von Zeichen (wenn möglich an einem Leerzeichen) umbrechen (zu max. 4 Zeilen).

Dim objMatch As Object
Dim lngZeilenAnzahl As Long
Dim lngWortAnzahl As Long
Dim strErgebnis As String
Dim lngI As Long

On Error GoTo Fehlerbehandlung

If varQuellText > vbNullString Then

With ptyRegEx

.IgnoreCase = True
.Global = True
.MultiLine = True
.Pattern = "^(.{0," & lngMaximalLaenge & "}(?: |$)|[^ ]{0," & lngMaximalLaenge & "})(.{0," & lngMaximalLaenge & "}(?: |$)|[^ ]{0," & lngMaximalLaenge & "})(.{0," & lngMaximalLaenge & "}(?: |$)|[^ ]{0," & lngMaximalLaenge & "})(.*)"
Set objMatch = .Execute(varQuellText)
lngZeilenAnzahl = objMatch.Count

If lngZeilenAnzahl > 0 Then
lngWortAnzahl = objMatch(0).SubMatches.Count

For lngI = 0 To lngWortAnzahl - 1 ' Ev. überlange erste Zeile zu mehreren Textzeilen (max. 4) zusammensetzen.

If objMatch(0).SubMatches(lngI) > vbNullString Then
strErgebnis = strErgebnis + objMatch(0).SubMatches(lngI) + vbCrLf

End If

Next lngI

For lngI = 1 To lngZeilenAnzahl - 1 ' Die restlichen Zeilen unverändert anfügen.

If objMatch(lngI) > vbNullString Then
strErgebnis = strErgebnis + objMatch(lngI) + vbCrLf

End If

Next lngI

End If

End With

ErsteZeileUmbrechen = strErgebnis

Else
ErsteZeileUmbrechen = varQuellText

End If

Verlassenprozedur:

Exit Function

Fehlerbehandlung:

ErsteZeileUmbrechen = "F e h l e r " & Err.Number & " in der VBA-Funktion ErsteZeileUmbrechen."
Resume Verlassenprozedur

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Funktionsaufruf wäre dann z. B. in der Form
Code:

NeuerText = ErsteZeileUmbrechen(MehrzeiligerOriginaltext,18)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Freundliche Grüße
readonly

edv-master · 17. November 2016

Hi readonly,

super Hammer geil....

ein klitzekleines Problem nur noch, wer trennt den Text mehrmals, glaub das kann ich nurso erklären das man es auch versteht:

Code:

aus dem:
Dies IstEinSehrLanger Firmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name

wird z.B.:
Dies
IstEinSehrLanger
Firmenname
Hans-Ludwig Müller-Meyer
Zusatztext zur Adresse
Teststraße 123
D-12345 Stadt ohne Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

auf die zweite Zeile kann man das nicht auch noch evtl. erweitern (wobei das mit meiner ersten Verbesserungs- / Fehlerbehebungsanfrage etwas in Konflikt stehen würde) - evtl. kann ich dann Textfeld noch weiter nach oben schieben - muss ich aber erst testen - denke aber das das geht das mein Textfeld ganz nach oben kann....

....wenns nicht geht oder nur sehr sehr schwierig ist diese beiden Dinge einzubauen lass ich es so, sollte so auch funktionieren - nehme das Textfeld in dieser Formatierung nur wenn auf den "E-PostBussiness"-Druckertreiber gedruckt wird....

Gruß und Danke
Stefan

PS: Hatte bisher noch keiner ähnliche Probleme mit der "E-POSTBUSINESS BOX"?

readonly · 17. November 2016

Hallo edv-master,

nachfolgend erweiterter VBA-Funktion (Achtung, neuer Funktionsname):
Code:

Option Compare Database
Option Explicit

Public Property Get ptyRegEx() As Object

Static objRegEx As Object

If objRegEx Is Nothing Then
Set objRegEx = CreateObject("VBScript.RegExp")

End If

Set ptyRegEx = objRegEx

End Property

Public Function ErsteZeilenUmbrechen(ByVal varQuellText As Variant, _
Optional ByVal lngWievieleZeilenUmbrechen As Long = 2, _
Optional ByVal lngNeueMaximaleZeilenLaenge As Long = 18, _
Optional ByVal lngNeueMaximaleZeilenAnzahl As Long = 4) As Variant

' Erste Zeilen eines Textes spätestens nach einer bestimmten Anzahl von Zeichen (wenn möglich an einem Leerzeichen) umbrechen.
' varQuellText = mehrzeiliger Ursprungstext
' lngWievieleZeilenUmbrechen = Anzahl Zeilen ab erster Zeile, welche umgebrochen werden sollen
' lngNeueMaximaleZeilenLaenge = neue maximale Zeilenlänge der umgebrochenen Zeilen (ausgenommen deren letzte umgebrochene Zeile)
' lngNeueMaximaleZeilenAnzahl = neue maximale Zeilenanzahl aus einer umgebrochenen Zeile

Dim objMatch As Object
Dim lngZeilenAnzahl As Long
Dim lngWortAnzahl As Long
Dim strMuster As String
Dim strErgebnis As String
Dim lngI As Long
Dim lngJ As Long
Dim lngK As Long

On Error GoTo Fehlerbehandlung

If varQuellText > vbNullString Then

With ptyRegEx

If lngNeueMaximaleZeilenAnzahl < 1 Then
lngNeueMaximaleZeilenAnzahl = 1

ElseIf lngNeueMaximaleZeilenAnzahl > 10 Then
lngNeueMaximaleZeilenAnzahl = 10

End If

For lngI = 2 To lngNeueMaximaleZeilenAnzahl

strMuster = strMuster & "(.{0," & lngNeueMaximaleZeilenLaenge & "}(?: |$)|[^ ]{0," & lngNeueMaximaleZeilenLaenge & "})"

Next lngI

.Pattern = "^" & strMuster & "(.*)"
.IgnoreCase = True
.Global = True
.MultiLine = True
Set objMatch = .Execute(varQuellText)
lngZeilenAnzahl = objMatch.Count

If lngZeilenAnzahl > 0 Then

If lngWievieleZeilenUmbrechen < 1 Then
lngWievieleZeilenUmbrechen = 1

ElseIf lngWievieleZeilenUmbrechen > lngZeilenAnzahl Then
lngWievieleZeilenUmbrechen = lngZeilenAnzahl

End If

lngK = 0

For lngI = 0 To lngZeilenAnzahl - 1

If objMatch(lngI) > vbNullString Then

If lngK < lngWievieleZeilenUmbrechen Then
lngK = lngK + 1
lngWortAnzahl = objMatch(lngI).SubMatches.Count

For lngJ = 0 To lngWortAnzahl - 1 ' Ev. überlange erste Zeilen zu mehreren Textzeilen ohne vor- und nachlaufende Leerzeichen zusammensetzen.

If objMatch(lngI).SubMatches(lngJ) > vbNullString Then
strErgebnis = strErgebnis + Trim(objMatch(lngI).SubMatches(lngJ)) + vbCrLf

End If

Next lngJ

Else ' Die restlichen Zeilen ohne vor- und nachlaufende Leerzeichen anfügen.
strErgebnis = strErgebnis + Trim(objMatch(lngI)) + vbCrLf

End If

End If

Next lngI

End If

End With

ErsteZeilenUmbrechen = strErgebnis

Else
ErsteZeilenUmbrechen = varQuellText

End If

Verlassenprozedur:

Exit Function

Fehlerbehandlung:

ErsteZeilenUmbrechen = "F e h l e r " & Err.Number & " in der VBA-Funktion ErsteZeilenUmbrechen."
Resume Verlassenprozedur

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Funktionsaufruf wäre dann z. B. in der Form
Code:

NeuerText = ErsteZeilenUmbrechen(MehrzeiligerOriginaltext,2,18,4)
' 2 = erste 2 Zeilen umbrechen, 18 = neue maximale Zeilenlänge, 4 = eine Zeile auf maximal 4 neue Zeilen umbrechen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Freundliche Grüße
readonly

edv-master · 18. November 2016

Hallo readonly,

sau cool, funktioniert alles wie gewünscht, bist SUPER!!!!!
DANKE!!!!

Gruß
Stefan

readonly · 20. November 2016

Hallo edv-master,

mir ist aufgefallen, dass beim Aufruf der VBA-Funktion ErsteZeilenUmbrechen meines vorherigen Beitrags im Rückgabewert teilweise falsche Zeilenbrüche enthalten sein können. Statt richtig CR + LF konnte manchmal auch fälschlicherweise CR + CR + LF am Zeilenende vorkommen. Beim Anzeigen in Abfragen wirkt sich das nicht weiter aus, allerdings wenn mit diesen Daten weiter gearbeitet werden soll, oder bei Verwendung von Copy und Paste können diese fehlerhaften Zeilenumbrüche unerwartete Ergebnisse hervorbringen, z. B. zusätzliche Leerzeilen.

Nachfolgend daher eine korrigierte Fassung der VBA-Funktion ErsteZeilenUmbrechen, bei der der Fehler behoben ist:
Code:

Option Compare Database
Option Explicit

Public Property Get ptyRegEx() As Object

Static objRegEx As Object

If objRegEx Is Nothing Then
Set objRegEx = CreateObject("VBScript.RegExp")

End If

Set ptyRegEx = objRegEx

End Property

Public Function ErsteZeilenUmbrechen(ByVal varQuellText As Variant, _
Optional ByVal lngWievieleZeilenUmbrechen As Long = 2, _
Optional ByVal lngMaximaleUmbruchzeilenLaenge As Long = 18, _
Optional ByVal lngMaximaleUmbruchzeilenAnzahl As Long = 4, _
Optional ByVal blnLeerzeilenEntfernen As Boolean = False) As Variant

' Erste Zeilen eines Textes spätestens nach einer bestimmten Anzahl von Zeichen (wenn möglich an einem Leerzeichen) umbrechen.
' varQuellText = ............. mehrzeiliger Ursprungstext
' lngWievieleZeilenUmbrechen = 1 bis .... Anzahl Zeilen ab erster Zeile, welche umgebrochen werden sollen
' lngMaximaleUmbruchzeilenLaenge = 1 bis .... neue maximale Zeilenlänge der umgebrochenen Zeilen (ausgenommen deren letzte umgebrochene Zeile)
' lngMaximaleUmbruchzeilenAnzahl = 1 bis Limit . neue maximale Zeilenanzahl aus einer umgebrochenen Zeile
' blnLeerzeilenEntfernen = False/True .. Ev. vorhandene Leerzeilen entfernen

Const conHOECHSTLIMITUMBRUCHZEILENANZAHL As Long = 1000 ' Willkürlich gewähltes Höchstlimit an umgebrochenen Zeilen pro Originalzeile. Ein größerer Wert könnte die Programmausführung stark verlangsamen.
Dim objMatch As Object
Dim strMuster As String
Dim strErgebnis As String
Dim lngI As Long
Dim lngJ As Long
Dim lngK As Long

On Error GoTo Fehlerbehandlung

If varQuellText > vbNullString _
And lngWievieleZeilenUmbrechen > 0 _
And lngMaximaleUmbruchzeilenLaenge > 0 _
And lngMaximaleUmbruchzeilenAnzahl > 0 Then

With ptyRegEx

If lngMaximaleUmbruchzeilenAnzahl > conHOECHSTLIMITUMBRUCHZEILENANZAHL Then
Err.Description = "Der Parameter 'lngMaximaleUmbruchzeilenAnzahl' mit dem Wert '" & lngMaximaleUmbruchzeilenAnzahl & "' liegt außerhalb des gültigen Bereichs von 1 bis " & conHOECHSTLIMITUMBRUCHZEILENANZAHL & "."
Err.Raise 1

End If

For lngI = 2 To lngMaximaleUmbruchzeilenAnzahl

strMuster = strMuster & "(.{0," & lngMaximaleUmbruchzeilenLaenge & "}(?: |$)|[^ ]{0," & lngMaximaleUmbruchzeilenLaenge & "})"

Next lngI

.Pattern = "^" & strMuster & "(.*)"
.IgnoreCase = True
.Global = True
.MultiLine = True
Set objMatch = .Execute(Replace$(Replace$(Replace$(varQuellText, vbCrLf, vbLf), vbLf & vbCr, vbLf), vbCr, vbLf)) ' Chr(13) aus Quelltext entfernen oder in Chr(10) umwandeln, da VBScript.RegExp nur Chr(10) als Zeilenumbruch wertet.

lngJ = 0

For lngI = 0 To objMatch.Count - 1

If blnLeerzeilenEntfernen = False _
Or objMatch(lngI) > vbNullString Then

If lngJ < lngWievieleZeilenUmbrechen Then
lngJ = lngJ + 1

For lngK = 0 To objMatch(lngI).SubMatches.Count - 1 ' Ev. überlange erste Zeilen umbrechen zu mehreren Textzeilen ohne ev. vor- und nachlaufende Leerzeichen zusammensetzen.

If lngK = 0 _
Or objMatch(lngI).SubMatches(lngK) > vbNullString Then
strErgebnis = strErgebnis + Trim(objMatch(lngI).SubMatches(lngK)) + vbCrLf

End If

Next lngK

Else ' Die restlichen Zeilen ohne ev. vor- und nachlaufende Leerzeichen anfügen.
strErgebnis = strErgebnis + Trim(objMatch(lngI)) + vbCrLf

End If

End If

Next lngI

End With

ErsteZeilenUmbrechen = Left$(strErgebnis, Len(strErgebnis) - 2) ' Letztes vbCrLf entfernen.

Else
ErsteZeilenUmbrechen = varQuellText ' Bei leerem Quelltext oder bei Parametern
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2016) Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld

Bericht Zeilenumbruch in Textfeld - Similar Threads - Bericht Zeilenumbruch Textfeld

2 Berichte in eine Excel-Datei exportieren

Access Berichte

Bericht Seiten (PDF) formatieren

Bericht mit optionalen Feldern

DOMAnzahl in einem Bericht

Bericht Steuerelementinhalt Kreuztabelle

Memofelder: Zeilenumbrüche kommen nicht im Bericht