Kann man in VB.NET 2003 Zeilenumbrüche, die durch RightMargin in einer RTF-Box erzeugt wurden, in echte Zeilenumbrüche umwandeln?

In VB.NET 2003 (und generell in Windows Forms) ist es so, dass der `RightMargin`-Wert einer RichTextBox lediglich die Anzeige beeinflusst: Der Text wird optisch umgebrochen, aber im zugrundeliegenden Text (RTF oder Plaintext) werden **keine echten Zeilenumbrüche** (`vbCrLf` oder `\par` im RTF) eingefügt.

**Das bedeutet:**
Zeilen, die durch den `RightMargin`-Wert umgebrochen werden, sind im Text weiterhin eine einzige Zeile. Wenn du den Text ausliest (z.B. mit `.Text` oder `.Rtf`), findest du dort keine zusätzlichen Zeilenumbrüche an den Umbruchstellen.

**Umwandlung in echte Zeilenumbrüche:**

Das automatische Erkennen und Umwandeln dieser "Soft Wraps" (also Anzeige-Umbrüche) in echte Zeilenumbrüche ist mit Bordmitteln nicht möglich, weil die Information, wo der Umbruch angezeigt wird, nicht im Text gespeichert ist.

**Möglicher Workaround:**

1. **Text manuell umbrechen:**
Du könntest den Text selbst analysieren und an der gewünschten Zeichenanzahl (entsprechend der Breite des Controls und der Schriftart) echte Zeilenumbrüche einfügen. Das ist allerdings aufwändig, da du die Breite jedes Wortes/Zeichens berechnen musst (z.B. mit `Graphics.MeasureString`).

2. **Text ausdrucken und Zeilenumbrüche erkennen:**
Wenn du den Text z.B. druckst oder exportierst, könntest du die Zeilenumbrüche anhand der sichtbaren Zeilen im Control erkennen. Dazu müsstest du die Methode `GetLineFromCharIndex` und `GetFirstCharIndexFromLine` der RichTextBox verwenden, um die sichtbaren Zeilen zu ermitteln und dann an diesen Stellen echte Zeilenumbrüche einfügen.

**Beispiel für das Ermitteln sichtbarer Zeilen:**

```vb.net
Dim lines As New List(Of String)
For i As Integer = 0 To RichTextBox1.GetLineFromCharIndex(RichTextBox1.TextLength)
Dim start As Integer = RichTextBox1.GetFirstCharIndexFromLine(i)
Dim length As Integer
If i = RichTextBox1.Lines.Length - 1 Then
length = RichTextBox1.TextLength - start
Else
length = RichTextBox1.GetFirstCharIndexFromLine(i + 1) - start
End If
If length > 0 Then
lines.Add(RichTextBox1.Text.Substring(start, length).TrimEnd(vbCr, vbLf))
End If
Next
Dim newText As String = String.Join(vbCrLf, lines.ToArray)
```

**Achtung:**
Das funktioniert nur für "harte" Zeilenumbrüche, nicht für die durch `RightMargin` erzeugten "weichen" Umbrüche. Für die "weichen" Umbrüche gibt es keine direkte Methode, da sie nur visuell sind.

**Fazit:**
Mit Standardmitteln von VB.NET 2003 kannst du die durch `RightMargin` erzeugten Umbrüche **nicht** automatisch in echte Zeilenumbrüche umwandeln, weil diese Information nicht im Text gespeichert wird. Du müsstest den Text selbst nach den Anzeige-Umbrüchen analysieren und an den entsprechenden Stellen echte Zeilenumbrüche einfügen – das ist aber sehr aufwändig und fehleranfällig.

**Weitere Infos:**
- [Microsoft Doku zu RichTextBox.RightMargin](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.richtextbox.rightmargin)
- [StackOverflow: How to get visible lines in RichTextBox](https://stackoverflow.com/questions/1050175/how-to-get-visible-lines-in-richtextbox)

**Zusammengefasst:**
Eine automatische Umwandlung ist nicht vorgesehen und nur mit erheblichem Aufwand möglich.